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

1. Shared Function System.Runtime.

創(chuàng)新互聯(lián)公司是一家從事企業(yè)網(wǎng)站建設(shè)、成都網(wǎng)站制作、成都網(wǎng)站建設(shè)、行業(yè)門戶網(wǎng)站建設(shè)、網(wǎng)頁設(shè)計(jì)制作的專業(yè)網(wǎng)絡(luò)公司，擁有經(jīng)驗(yàn)豐富的網(wǎng)站建設(shè)工程師和網(wǎng)頁設(shè)計(jì)人員，具備各種規(guī)模與類型網(wǎng)站建設(shè)的實(shí)力，在網(wǎng)站建設(shè)領(lǐng)域樹立了自己獨(dú)特的設(shè)計(jì)風(fēng)格。自公司成立以來曾獨(dú)立設(shè)計(jì)制作的站點(diǎn)上1000家。

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.net用指針或變量調(diào)用函數(shù)

指針是c語言的概念，VB、VB.NET沒有指針，除了指針以外也很少有人能玩到你的編程深度，關(guān)鍵看不懂呢。

？？？就是子程序的名稱，比如每次點(diǎn)擊c后就自動調(diào)動相對應(yīng)的子程序，如子程序是

Private Sub my_do ()

........

End Sub

相應(yīng)的AddHandler c.Click, AddressOf my_do

實(shí)際上是個委托

vb.net mdiform的父窗口調(diào)用子窗口的函數(shù)

既然子窗體都有同名函數(shù)，就應(yīng)該對子窗體進(jìn)行一層封裝，子類實(shí)現(xiàn)不同方法

Public?MustInherit?Class?AbstractChild

Public?MustOverride?Sub?Method1()

End?Class

Public?Class?ChildClass1

Inherits?AbstractChild

Public?Overrides?Sub?Method1()

MessageBox.Show("class1")

End?Sub

End?Class

Public?Class?ChildClass2

Inherits?AbstractChild

Public?Overrides?Sub?Method1()

MessageBox.Show("class2")

End?Sub

End?Class

Public?Class?ChildClass3

Inherits?AbstractChild

Public?Overrides?Sub?Method1()

MessageBox.Show("class3")

End?Sub

End?Class

Dim?child1?As?New?ChildClass1()

Dim?child2?As?New?ChildClass2()

Dim?child3?As?New?ChildClass3()

child1.Method1()

child2.Method1()

child3.Method1()

網(wǎng)頁標(biāo)題：vb.net子函數(shù)調(diào)用 vba 子程序調(diào)用
URL分享：http://www.rwnh.cn/article4/doppjie.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)頁設(shè)計(jì)公司、云服務(wù)器、移動網(wǎng)站建設(shè)、企業(yè)建站、商城網(wǎng)站、面包屑導(dǎo)航

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)