vb.net 怎樣實現(xiàn)自定義類型啊

Class WorkerType

創(chuàng)新互聯(lián)是一家專業(yè)提供木壘哈薩克企業(yè)網(wǎng)站建設(shè),專注與成都網(wǎng)站設(shè)計、成都網(wǎng)站建設(shè)、H5技術(shù)、小程序制作等業(yè)務(wù)。10年已為木壘哈薩克眾多企業(yè)、政府機構(gòu)等服務(wù)。創(chuàng)新互聯(lián)專業(yè)的建站公司優(yōu)惠進行中。

Dim No As Integer

Dim Name As String

Dim Pay As Single

End Class

在vb.net中怎么調(diào)用自定義類？

代碼已測試。

一、測試需要的INI文件。名稱為“setinfo.ini”，存放路徑為你解決方案里“Bin“文件夾的”Debug“文件夾里。

內(nèi)容：

[Location]

pnlTime.Location.X=787

pnlTime.Location.Y=0

[TopMost]

Top=True

二、操作INI文件的類。新建一個類，類中內(nèi)容為：

Public?Class?Class1

Public?Declare?Function?GetPrivateProfileString?Lib?"kernel32"?Alias?"GetPrivateProfileStringA"?_

(?_

ByVal?lpApplicationName?As?String,?_

ByVal?lpKeyName?As?String,?_

ByVal?lpDefault?As?String,?_

ByVal?lpReturnedString?As?String,?_

ByVal?nSize?As?Int32,?_

ByVal?lpFileName?As?String?_

)?As?Int32

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?開辟存儲的內(nèi)存

myBf?=?New?String(CChar(""),?256)

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,關(guān)鍵字名稱

myKN?=?Me.TextBox2.Text

Class1.GetPrivateProfileString(myAN,?myKN,?"",?myBf,?myBf.Length,?myFN)?'調(diào)用讀取INI文件的操作

TextBox3.Text?=?Microsoft.VisualBasic.Left(myBf,?InStr(myBf,?Chr(0))?-?1)?'截取有用部分,有必要

End?Sub

End?Class

四、測試截圖如下

vb.net 自定義類屬性的問題？

注意下你給ButtonTop的Image屬性賦值的地方，你的屬性SET里是針對【上】這個類的改變，你如果這樣寫是觸發(fā)不了屬性改變的：

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

正確的處理辦法應(yīng)該是new一個【上】類的對象，初始化時進行賦值就可以了

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