1. Shared Function System.Runtime.

成都創(chuàng)新互聯專注于網站建設,為客戶提供網站設計、成都網站設計、網頁設計開發(fā)服務,多年建網站服務經驗,各類網站都可以開發(fā),高端網站設計,公司官網,公司展示網站,網站設計,建網站費用,建網站多少錢,價格優(yōu)惠,收費合理。
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位數據替代了long(long是64位)
System是Net語言中的一個族,System.Runtime.InteropServices是system中的一個類。System.Runtime.InteropServices.DLLimpor是其中的一個方法。調用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
你可以這樣調用 classA.MessageboxA 但是如果沒有這個share 在class后打點就沒有MessageboxA的成員出現了 ,現在你就象以前一樣的使用他吧。
其實上面這個VB.NET函數調用方法并不正確,我們仍舊要使用API聲明,只是換了一各形式
如果你認為這就是VB.NET就錯了,看看這個:
system.WinForms.MessageBox.Show("對話內容寫在這里", "標題寫在這里", messagebox.OK BitOr messagebox.IconAsterisk)
這就是面向對象,你已經完成了所有的任務。不需要任何的API聲明。不需要寫多余的代碼。
1. messagebox.IconAsterisk=驚嘆號圖標
2. messagebox.IconError=錯誤圖標
3. messagebox.IconExclamation=警告圖標
4. messagebox.IconHand=錯誤圖標
5. messagebox.IconInformation=提示圖標
所經點NET就是打點到達,在族后面打點,在類后面打點,在對象后面打點。第二個問題就是類與類之間相互的關系,Net在網上處理人與人的關系,在程序語言中處理類與類的關系。倒底是加不加share,倒底是類后面打點,還是Dim成一個對象(把他當一個變量吧)再說,是等于class,還是New class.是dim xxx as class=new class 還是dim xxx as new class
就是這樣VB.NET函數調用將更簡單,不須要研究一些很難的東西。
如上面所說,你可能還不太了解類、函數等的作用。
類可以用來封裝一系列操作,或者是一類對象的特性。像上面的描述,有可能是濫用類了。
建議你這樣,弄一個專門的運算類,里面有四個運算的函數,比如:
Class 運算
Shared Function 加(ByVal 加數1 As Decimal, ByVal 加數2 As Decimal) As Decimal
'舉個例子
Return 加數1 + 加數2 '百度打不出英文加號,你自己改一下
Exit Function
End Function
Shared Function 減(ByVal 被減數 As Decimal, ByVal 減數 As Decimal) As Decimal
'舉個例子
Return 被減數 - 減數
Exit Function
End Function
End Class
上面我寫了兩個例子,你可以照抄然后自己寫乘除的,總之不要濫用類就行。
PS:Shared函數的使用不需要類被實例化,可以直接這樣使用:
Msgbox(運算.加(1,2).ToString)
你會發(fā)現“運算”是藍色的
可以像這樣,返回變量的值。
Visual Basic code
Public Function number() As Single '你在這已經設置了函數返回值的類型
Dim nJTTZ As Single = 1
return nJTTZ '返回變量的值
End Function
Public Function Index() As Single
Dim zJTTZ As Single = 1
return zJTTZ
End Function
Public Overloads Function CalcAmount() As Boolean
AddItemRow("", "第一部分:靜態(tài)投資", "正線公里", number(), Index()) ‘調用函數即得到返回的變量值。
End Function
網頁題目:vb.net調用函數,vb中調用模塊中的函數
標題URL:http://chinadenli.net/article5/dsgppii.html
成都網站建設公司_創(chuàng)新互聯,為您提供、標簽優(yōu)化、App設計、企業(yè)建站、網頁設計公司、動態(tài)網站
聲明:本網站發(fā)布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創(chuàng)新互聯