成人午夜视频全免费观看高清-秋霞福利视频一区二区三区-国产精品久久久久电影小说-亚洲不卡区三一区三区一区

vb.net子函數(shù)調(diào)用 vba 子程序調(diào)用

如何正確理解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)頁(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)單,不須要研究一些很難的東西。

vb.net用指針或變量調(diào)用函數(shù)

指針是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è)委托

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

既然子窗體都有同名函數(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)

成都網(wǎng)頁(yè)設(shè)計(jì)公司
巴中市| 行唐县| 砀山县| 昌邑市| 乐平市| 江门市| 枣庄市| 江城| 普安县| 舒城县| 高台县| 大悟县| 开化县| 资兴市| 福建省| 浏阳市| 行唐县| 南通市| 隆昌县| 娱乐| 西华县| 正安县| 台东市| 天镇县| 晋中市| 东至县| 包头市| 睢宁县| 侯马市| 阿瓦提县| 永济市| 林口县| 慈溪市| 江源县| 宁强县| 丰顺县| 呼和浩特市| 英德市| 翁牛特旗| 米脂县| 溧水县|