vb.net给类添加属性 vb对象属性的设置有哪两种方式

如何在VB.NET中使用动态属性

　Visual Basic .NET支持动态属性，其动态属性储存在一个应用程序配置文件中，该文件在应用程序执行时将会被读到。使用动态属性可以在不重新编译应用程序的情况下改变一些属性值。你可以使用它们保存数据库连接字符串、应用程序日志信息或者服务器连接信息。

创新互联-专业网站定制、快速模板网站建设、高性价比播州网站开发、企业建站全套包干低至880元,成熟完善的模板库,直接使用。一站式播州网站制作公司更省心,省钱,快速模板网站建设找我们，业务覆盖播州地区。费用合理售后完善，10余年实体公司更值得信赖。

要看动态属性的例子，首先在Visual Basic中创建一个Windows应用程序。添加一个TextBox到默认窗体中；确认TextBox是被选中的，然后在属性窗口中定位Dynamic属性。

点击Advanced标签旁边的省略号按钮，打开一个对话框，该对话框中列出了TextBox所有的属性，选择Text属性，键映射框将会被激活。键映射决定了键储存在配置文件中的值。点击确定关闭对话框。

关于vb.net中属性的定义

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

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

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

设置和重设vb.net的属性

当用户可以设置或者得到属性的值的时候，这些属性就在改变。有此属性可以在设计的时候改变。用户可以在属性窗口设置这些属性的值，而不需要写任何代码，而有些代码在设计的时候是不能改变的，所以必须在运行的程序中写入一些设置属性的值的代码。

那些可以在运行的时候设置和读取的属性被称作"read-write"属性。而那些只能在运行的时候读取的代码称为"read-only"属性。

1.设置属性值

当需要改变一个对象的外观或者行为时，就可以改变对象的属性值。例如可以通过改变一个textbox控件的Text属性值，来改变Textbox里面的内容。

设置一个属性的值，可以用以下的语法：

object.property=expression

如下一些实例：

TextBox1.Top=200 '让Top属性值为200

TextBox1.Visible=True '显示TextBox

TextBox1.Text="hello" '在TextBox中显示"hello"

2.得到属性的值

当代码要对一个对象进行一些操作时，用户可能需要得到一个对象的状态，例如，在对一个TextBox控件进行下一步操作时，可能需要得知TextBox的text属性的值，等等。

通常情况下，用户可以通过下面这样的语法得到一个对象的属性值：

variable=object.property

用户可以把一个对象的属性值作为一个复杂表达式的一部分，而不需要先把属性值赋给一个变量再进行计算，下面这个例子就是改变一个radio按钮的属性的代码：

Private Sub cmdAdd_Click()

'[statements]

RadioButton1.Top=RadioButton1.top+20

'[statements]

End Sub

注意：如果用户需要多次使用一个属性值的话，那么先把属性值赋给一个变量，将会使效率更快一点。

vb如何定义一个有属性的对象

用type关键字定义（VB.NET是Structure关键字）

或者定义一个class.VB6是类模块，VB.NET就是class类

例(VB6)

type Point

X as Integer

Y as Integer

end type

条用 dim zuobiao as point

zuobiao.x=你想要的X

zuobiao.y=你想要的Y

VB.NET

Structure Point

Dim X As Integer

Dim Y As Integer

End Structure

条用，要先创建实例对象

Dim X As New Point

X.X = 0

X.Y = 0

vb.net 自定义类属性的问题？

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

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

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

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