1. Shared Function System.Runtime.
創(chuàng)新互聯(lián)公司是一家從事企業(yè)網(wǎng)站建設(shè)、成都網(wǎng)站制作、成都網(wǎng)站建設(shè)、行業(yè)門戶網(wǎng)站建設(shè)、網(wǎng)頁(yè)設(shè)計(jì)制作的專業(yè)網(wǎng)絡(luò)公司,擁有經(jīng)驗(yàn)豐富的網(wǎng)站建設(shè)工程師和網(wǎng)頁(yè)設(shè)計(jì)人員,具備各種規(guī)模與類型網(wǎng)站建設(shè)的實(shí)力,在網(wǎng)站建設(shè)領(lǐng)域樹立了自己獨(dú)特的設(shè)計(jì)風(fēng)格。自公司成立以來(lái)曾獨(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語(yǔ)言中的一個(gè)族,System.Runtime.InteropServices是system中的一個(gè)類。System.Runtime.InteropServices.DLLimpor是其中的一個(gè)方法。調(diào)用DLL的API
接口,這個(gè)的意思就是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 但是如果沒有這個(gè)share 在class后打點(diǎn)就沒有MessageboxA的成員出現(xiàn)了 ,現(xiàn)在你就象以前一樣的使用他吧。
其實(shí)上面這個(gè)VB.NET函數(shù)調(diào)用方法并不正確,我們?nèi)耘f要使用API聲明,只是換了一各形式
如果你認(rèn)為這就是VB.NET就錯(cuò)了,看看這個(gè):
system.WinForms.MessageBox.Show("對(duì)話內(nèi)容寫在這里", "標(biāo)題寫在這里", messagebox.OK BitOr messagebox.IconAsterisk)
這就是面向?qū)ο螅阋呀?jīng)完成了所有的任務(wù)。不需要任何的API聲明。不需要寫多余的代碼。
1. messagebox.IconAsterisk=驚嘆號(hào)圖標(biāo)
2. messagebox.IconError=錯(cuò)誤圖標(biāo)
3. messagebox.IconExclamation=警告圖標(biāo)
4. messagebox.IconHand=錯(cuò)誤圖標(biāo)
5. messagebox.IconInformation=提示圖標(biāo)
所經(jīng)點(diǎn)NET就是打點(diǎn)到達(dá),在族后面打點(diǎn),在類后面打點(diǎn),在對(duì)象后面打點(diǎn)。第二個(gè)問(wèn)題就是類與類之間相互的關(guān)系,Net在網(wǎng)上處理人與人的關(guān)系,在程序語(yǔ)言中處理類與類的關(guān)系。倒底是加不加share,倒底是類后面打點(diǎn),還是Dim成一個(gè)對(duì)象(把他當(dāng)一個(gè)變量吧)再說(shuō),是等于class,還是New class.是dim xxx as class=new class 還是dim xxx as new class
就是這樣VB.NET函數(shù)調(diào)用將更簡(jiǎn)單,不須要研究一些很難的東西。
指針是c語(yǔ)言的概念,VB、VB.NET沒有指針,除了指針以外也很少有人能玩到你的編程深度,關(guān)鍵看不懂呢。
???就是子程序的名稱,比如每次點(diǎn)擊c后就自動(dòng)調(diào)動(dòng)相對(duì)應(yīng)的子程序,如子程序是
Private Sub my_do ()
........
End Sub
相應(yīng)的AddHandler c.Click, AddressOf my_do
實(shí)際上是個(gè)委托
既然子窗體都有同名函數(shù),就應(yīng)該對(duì)子窗體進(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)頁(yè)標(biāo)題:vb.net子函數(shù)調(diào)用 vba 子程序調(diào)用
URL分享:http://jinyejixie.com/article4/doppjie.html
成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián),為您提供網(wǎng)頁(yè)設(shè)計(jì)公司、云服務(wù)器、移動(dòng)網(wǎng)站建設(shè)、企業(yè)建站、商城網(wǎng)站、面包屑導(dǎo)航
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權(quán)請(qǐng)盡快告知,我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng),如需處理請(qǐng)聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時(shí)需注明來(lái)源: 創(chuàng)新互聯(lián)
猜你還喜歡下面的內(nèi)容