vb点虐 自定义类属性的问题？

注意下你给ButtonTop的Image属性赋值的地方，你的属性SET里是针对【上】这个类的改变，你如果这样写是触发不了属性改变的：

创新互联建站服务项目包括东山网站建设、东山网站制作、东山网页制作以及东山网络营销策划等。多年来，我们专注于互联网行业，利用自身积累的技术优势、行业经验、深度合作伙伴关系等，向广大中小型企业、政府机构等提供互联网行业的解决方案，东山网站推广取得了明显的社会效益与经济效益。目前，我们服务的客户以成都为中心已经辐射到东山省份的部分城市，未来相信会继续扩大服务区域并继续获得客户的支持与信任！

ButtonTop.背景 = Image.FromFile("C:/1.png")

正确的处理办法应该是new一个【上】类的对象，初始化时进行赋值就可以了

Me.ButtonTop = New Class1() With {.背景 = Image.FromFile("C:/1.png")}

关于vb点虐 中属性的定义

Property用于标识一个类成员为属性而不是方法.属性可以被获取,属性在被获以的时候利用get句柄返回其值.属性可以被赋值,这个过程是由set句柄完成的.这两个句柄可以不同时存在.如果只有get而没有set,那属性就是只读的.如果只有set而没有get,那属性就是只写的.

就是定义了两个属性：s_name和s_sex

Overridable 表示这个属性可以被重载。

vb点虐 写了一个类，给这个类的属性赋值是总是提示该属性不是类的成员，求解

在vb点虐 窗口程序里测试你的代码没有问题，所以应该是其他问题.

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Protected Sub s_Msg()

Dim cust As New custinfo()

cust.CpName = "公司"

MsgBox(cust.CpName)

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

s_Msg()

End Sub

End Class

分享标题：vb点虐 类成员属性 vb name属性
浏览地址：http://ybzwz.com/article/ddsosjo.html