vb.net自定义类

vb.net 怎样实现自定义类型啊

Class WorkerType

Dim No As Integer

Dim Name As String

Dim Pay As Single

End Class

在vb.net中怎么调用自定义类?

代码已测试.

第一段：测试需要的INI文件.名称为"setinfo.ini",存放路径为你解决方案里"Bin"文件夹的"Debug"文件夹里.

内容：

[Location]

pnlTime.Location.Y=0

[TopMost]

Top=True

第二段：操作INI文件的类.新建一个类,类中内容为：

Public?Class?Class1

(?_

ByVal?lpApplicationName?As?String,?_

ByVal?lpKeyName?As?String,?_

ByVal?lpDefault?As?String,?_

ByVal?lpReturnedString?As?String,?_

ByVal?lpFileName?As?String?_

End?Class

第三段：界面代码：

Imports?System.IO?'for?path

Public?Class?Form1

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

getINI()

End?Sub

Private?Sub?getINI()

Dim?iniclass?As?New?Class1?'

Dim?myBf?As?String?'get?set_info?开辟存储的内存

Dim?myFN?As?String?'配置文件的文件路径

myFN?=?Path.Combine(My.Application.Info.DirectoryPath,?"setinfo.ini")

Dim?myAN?As?String?'Application_NAME,也是Section名称

myAN?=?Me.TextBox1.Text

Dim?myKN?As?String?'KEY_NAME,关键字名称

Class1.GetPrivateProfileString(myAN,?myKN,?"",?myBf,?myBf.Length,?myFN)?'调用读取INI文件的操作

第四段：测试截图如下

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

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

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

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

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

以上就是土嘎嘎小编为大家整理的vb.net自定义类相关主题介绍,如果您觉得小编更新的文章只要能对粉丝们有用,就是我们最大的鼓励和动力,不要忘记讲本站分享给您身边的朋友哦！！