vb.net中創(chuàng)建類

不熟悉VB,如有不妥的地方請包涵!

網(wǎng)站建設(shè)哪家好，找成都創(chuàng)新互聯(lián)！專注于網(wǎng)頁設(shè)計、網(wǎng)站建設(shè)、微信開發(fā)、小程序開發(fā)、集團企業(yè)網(wǎng)站建設(shè)等服務(wù)項目。為回饋新老客戶創(chuàng)新互聯(lián)還提供了裕華免費建站歡迎大家使用！

Public Class Stack

Dim aryData() As Integer

Sub New(ByVal Num As Integer)

Dim aryData(Num) As Integer

End Sub

Function Pop() As Integer

If (aryData.Length = 0) Then

Return 0

Else

Dim a As Integer

a = aryData(aryData.Length)

aryData(aryData.Length) = Convert.ToInt32(DBNull.Value)

Return a

End If

End Function

Sub Push(ByVal n As Integer)

For Each i As Integer In aryData

If (aryData(i) = Convert.ToInt32(DBNull.Value)) Then

aryData(i) = n

End

Else

Continue For

End If

Next

End Sub

Sub PrintStack()

For Each i As Integer In aryData

If (aryData(i) = Convert.ToInt32(DBNull.Value)) Then

End

Else

Print(aryData(i))

End If

Next

End Sub

End Class

vb.net中怎么使用createobject添加類呢，就好像vb中一樣

應(yīng)該是一樣的，createobject（“”）

不過你還是要添加引用的，否則那個調(diào)用對象是不行的。

建議你還是引用的好，這樣容易查錯，object對象無法繼承，所以就沒有下拉菜單的索引幫助。這樣往往運行時才會引發(fā)錯誤，且這種錯誤不方便查詢定位。

vb.net怎么添加類

模塊：相當于全局級變量。

類：可以實例化，繼承等。

對于你這樣的初學(xué)者來說，可以視作 模塊變量=類的public shared變量。

最好的方法是：項目-添加-類-粘貼代碼。

vb.net 自建類生成類e似xx.item(0).value或者xx.Name("zhangshan").Value

'這是數(shù)組的一個方法了，可是可以給數(shù)組定義擴展方法來實現(xiàn)這種形式。不過要給Item每個成員能動態(tài)生成相應(yīng)方法，想不出其它簡單點的辦法，只能一個一個的添加擴展方法。

Namespace?測試

Public?Class?Item

Public?Number()?As?String

Public?Name?As?String

Public?Symbol?As?String

Public?Value?As?Single

Public?Unit?As?String

Public?Description?As?String

Public?Remarks?As?String

End?Class

Public?Class?XX

Public?tty()?As?Item

Public?Sub?New()

tty(0).Name?=?"Women"

tty(0).Value?=?198000

tty(1).Name?=?"temen"

tty.Name("temen").Value?=?99999

End?Sub

End?Class

Public?Module?Module1

System.Runtime.CompilerServices.Extension()?_?

Public?Function?Name(ByVal?she?As?Item(),?ByVal?key?As?String)?As?Item?'定義擴展方法功能?在net.3.5前的版本像似沒有。

For?Each?it?In?she

If?it.Name?=?key?Then

Return?it

End?If

Next

Return?Nothing

End?Function

End?Module

End?Namespace

在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創(chuàng)建類引用類

你是指……

Dim 變量名 as 類型 = new 類型（構(gòu)造參數(shù)）

這樣么

或者是

Dim 變量名 as new 類型(構(gòu)造參數(shù))

這樣？

還是說

Class 類名

End Class

這樣？