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

代碼已測試。

成都創(chuàng)新互聯(lián)公司堅(jiān)持“要么做到，要么別承諾”的工作理念，服務(wù)領(lǐng)域包括：成都網(wǎng)站建設(shè)、做網(wǎng)站、企業(yè)官網(wǎng)、英文網(wǎng)站、手機(jī)端網(wǎng)站、網(wǎng)站推廣等服務(wù)，滿足客戶于互聯(lián)網(wǎng)時代的玉田網(wǎng)站設(shè)計(jì)、移動媒體設(shè)計(jì)的需求，幫助企業(yè)找到有效的互聯(lián)網(wǎng)解決方案。努力成為您成熟可靠的網(wǎng)絡(luò)建設(shè)合作伙伴！

一、測試需要的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 怎么自定義類型

其實(shí)就是結(jié)構(gòu)體，如下面

Public Structure My_type

Public type_1 As Integer

Public type_2 As String

Public type_3 As Double

End Structure

vb.net 定義變量 ，類型，對象問題?

dim本身就表示定義某一個類型的變量的。這個類型，包括簡單的預(yù)定義類型，也包括自定義類型，比如類，數(shù)組等等所有類型，只要在一個項(xiàng)目中可見的類型都可以定義。

使用new當(dāng)然就是定義的時候?qū)嵗?/p>

這個類型，這時變量已有具體的內(nèi)存對應(yīng)。

類，類似于C里的結(jié)構(gòu)體，但是可以做到繼承、抽像等面向?qū)ο蟮奶匦?。結(jié)構(gòu)體和類都需要new來實(shí)例化。

你可以看一下面向?qū)ο缶幊谭矫娴闹R。

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

Class WorkerType

Dim No As Integer

Dim Name As String

Dim Pay As Single

End Class