如何正確理解VB.NET函數(shù)調(diào)用

1. Shared Function System.Runtime.

為清水等地區(qū)用戶提供了全套網(wǎng)頁設(shè)計(jì)制作服務(wù)，及清水網(wǎng)站建設(shè)行業(yè)解決方案。主營業(yè)務(wù)為成都網(wǎng)站制作、成都網(wǎng)站設(shè)計(jì)、清水網(wǎng)站設(shè)計(jì)，以傳統(tǒng)方式定制建設(shè)網(wǎng)站，并提供域名空間備案等一條龍服務(wù)，秉承以專業(yè)、用心的態(tài)度為用戶提供真誠的服務(wù)。我們深信只要達(dá)到每一位用戶的要求，就會得到認(rèn)可，從而選擇與我們長期合作。這樣，我們也可以走得更遠(yuǎn)！

InteropServices.DLLimport("user32.dll")

2. MessageBoxA(ByVal hwnd As Integer,

ByVal text As String, ByVal

lpcaption As String, ByVal

wtype As Integer) As Integer

3. End Function

首先integer被作為32位數(shù)據(jù)替代了long(long是64位)

System是Net語言中的一個族，System.Runtime.InteropServices是system中的一個類。System.Runtime.InteropServices.DLLimpor是其中的一個方法。調(diào)用DLL的API

接口，這個的意思就是vb6的lib"user32", share是共享的意思，例如：

1. Public Class classA

2. Shared Function System.Runtime.

InteropServices.DLLimport("user32.dll")

MessageBoxA(ByVal h As Integer,

ByVal m As String, ByVal c As

String, ByVal type As Integer) As Integer

3. End Function

4. End Class

你可以這樣調(diào)用 classA.MessageboxA 但是如果沒有這個share 在class后打點(diǎn)就沒有MessageboxA的成員出現(xiàn)了 ，現(xiàn)在你就象以前一樣的使用他吧。

其實(shí)上面這個VB.NET函數(shù)調(diào)用方法并不正確，我們?nèi)耘f要使用API聲明，只是換了一各形式

如果你認(rèn)為這就是VB.NET就錯了，看看這個：

system.WinForms.MessageBox.Show("對話內(nèi)容寫在這里", "標(biāo)題寫在這里", messagebox.OK BitOr messagebox.IconAsterisk)

這就是面向?qū)ο?，你已?jīng)完成了所有的任務(wù)。不需要任何的API聲明。不需要寫多余的代碼。

1. messagebox.IconAsterisk=驚嘆號圖標(biāo)

2. messagebox.IconError=錯誤圖標(biāo)

3. messagebox.IconExclamation=警告圖標(biāo)

4. messagebox.IconHand=錯誤圖標(biāo)

5. messagebox.IconInformation=提示圖標(biāo)

所經(jīng)點(diǎn)NET就是打點(diǎn)到達(dá)，在族后面打點(diǎn)，在類后面打點(diǎn)，在對象后面打點(diǎn)。第二個問題就是類與類之間相互的關(guān)系，Net在網(wǎng)上處理人與人的關(guān)系，在程序語言中處理類與類的關(guān)系。倒底是加不加share,倒底是類后面打點(diǎn),還是Dim成一個對象（把他當(dāng)一個變量吧）再說，是等于class,還是New class.是dim xxx as class=new class 還是dim xxx as new class

就是這樣VB.NET函數(shù)調(diào)用將更簡單，不須要研究一些很難的東西。

VB點(diǎn)虐 如何編寫一個可以返回?cái)?shù)組的函數(shù)（過程）？

public function createstringarr() as string()

return new string(){"d1","d2","d3","d4"}

end function

vb點(diǎn)虐 編寫一個函數(shù)

注意：參數(shù)為動態(tài)數(shù)組；

Private Function MyF(ByRef d() As Integer)

ReDim d(4, 13) As Integer

Dim i As Integer

Dim j As Integer

Dim n As Integer

Dim MyNum(4) As Integer

For i = 1 To 4

MyNum(i) = 0

Next i

Randomize

For i = 1 To 4

For j = 1 To 13

n = Int(Rnd * 4 + 1)

Do While MyNum(n) = 13

n = Int(Rnd * 4 + 1)

Loop

d(i, j) = n

MyNum(n) = MyNum(n) + 1

Next j

Next i

End Function