Sub過程實現(xiàn):
創(chuàng)新互聯(lián)公司從2013年創(chuàng)立,先為鳩江等服務建站,鳩江等地企業(yè),進行企業(yè)商務咨詢服務。為鳩江企業(yè)網(wǎng)站制作PC+手機+微官網(wǎng)三網(wǎng)同步一站式服務解決您的所有建站問題。
Sub FactsSub(ByVal intN As Integer, ByRef result As Long)
Dim i As Integer
Dim lngResult As Long
lngResult = 1
For i = 1 To intN
lngResult *= i
Next
result = lngResult
End Sub
Private Sub btnSub_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSub.Click
Dim i As Integer
Dim sum As Long = 0
Dim result As Long
For i = 1 To 10
FactsSub(i, result)
sum += result
Next
MsgBox("過程實現(xiàn) 1! + 2! + 3! + … + 10! = " sum)
End Sub
Function函數(shù)實現(xiàn):
Function FactsFunction(ByVal intN As Integer) As Long
Dim i As Integer
Dim lngResult As Long
lngResult = 1
For i = 1 To intN
lngResult *= i
Next
Return lngResult
End Function
Private Sub btnFunction_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnFunction.Click
Dim i As Integer
Dim sum As Long = 0
For i = 1 To 10
sum += FactsFunction(i)
Next
MsgBox("函數(shù)實現(xiàn) 1! + 2! + 3! + … + 10! = " sum)
End Sub
1. Shared Function System.Runtime.
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后打點就沒有MessageboxA的成員出現(xiàn)了 ,現(xiàn)在你就象以前一樣的使用他吧。
其實上面這個VB.NET函數(shù)調(diào)用方法并不正確,我們?nèi)耘f要使用API聲明,只是換了一各形式
如果你認為這就是VB.NET就錯了,看看這個:
system.WinForms.MessageBox.Show("對話內(nèi)容寫在這里", "標題寫在這里", messagebox.OK BitOr messagebox.IconAsterisk)
這就是面向?qū)ο?,你已?jīng)完成了所有的任務。不需要任何的API聲明。不需要寫多余的代碼。
1. messagebox.IconAsterisk=驚嘆號圖標
2. messagebox.IconError=錯誤圖標
3. messagebox.IconExclamation=警告圖標
4. messagebox.IconHand=錯誤圖標
5. messagebox.IconInformation=提示圖標
所經(jīng)點NET就是打點到達,在族后面打點,在類后面打點,在對象后面打點。第二個問題就是類與類之間相互的關系,Net在網(wǎng)上處理人與人的關系,在程序語言中處理類與類的關系。倒底是加不加share,倒底是類后面打點,還是Dim成一個對象(把他當一個變量吧)再說,是等于class,還是New class.是dim xxx as class=new class 還是dim xxx as new class
就是這樣VB.NET函數(shù)調(diào)用將更簡單,不須要研究一些很難的東西。
如上面所說,你可能還不太了解類、函數(shù)等的作用。
類可以用來封裝一系列操作,或者是一類對象的特性。像上面的描述,有可能是濫用類了。
建議你這樣,弄一個專門的運算類,里面有四個運算的函數(shù),比如:
Class 運算
Shared Function 加(ByVal 加數(shù)1 As Decimal, ByVal 加數(shù)2 As Decimal) As Decimal
'舉個例子
Return 加數(shù)1 + 加數(shù)2 '百度打不出英文加號,你自己改一下
Exit Function
End Function
Shared Function 減(ByVal 被減數(shù) As Decimal, ByVal 減數(shù) As Decimal) As Decimal
'舉個例子
Return 被減數(shù) - 減數(shù)
Exit Function
End Function
End Class
上面我寫了兩個例子,你可以照抄然后自己寫乘除的,總之不要濫用類就行。
PS:Shared函數(shù)的使用不需要類被實例化,可以直接這樣使用:
Msgbox(運算.加(1,2).ToString)
你會發(fā)現(xiàn)“運算”是藍色的
在VB.NET中,可以使用“Call”語句來調(diào)用另一個VB文件中的方法。使用“Call”語句,可以在一個VB文件中調(diào)用另一個VB文件中的方法,從而實現(xiàn)不同文件之間的調(diào)用。
首先,需要在調(diào)用方法的VB文件中聲明另一個VB文件中的方法,以便編譯器能夠識別該方法。聲明的方式如下:
Declare Sub 另一個VB文件中的方法名 Lib “另一個VB文件的路徑” ()
其中,另一個VB文件中的方法名是另一個VB文件中要調(diào)用的方法的名稱,另一個VB文件的路徑是另一個VB文件的完整路徑。
接下來,就可以使用“Call”語句來調(diào)用另一個VB文件中的方法了,語句格式如下:
Call 另一個VB文件中的方法名 (參數(shù)1,參數(shù)2,……,參數(shù)n)
其中,另一個VB文件中的方法名是另一個VB文件中要調(diào)用的方法的名稱,參數(shù)1,參數(shù)2,……,參數(shù)n是傳遞給另一個VB文件中要調(diào)用的方法的參數(shù)。
最后,就可以在調(diào)用方法的VB文件中調(diào)用另一個VB文件中的方法了。通過以上步驟,就可以在VB.NET中實現(xiàn)一個VB文件調(diào)用另一個VB文件中的方法了。
名稱欄目:vb.net抽出調(diào)用關系 vb中調(diào)用另一個窗體的值
轉(zhuǎn)載源于:http://redsoil1982.com.cn/article40/doedieo.html
成都網(wǎng)站建設公司_創(chuàng)新互聯(lián),為您提供全網(wǎng)營銷推廣、用戶體驗、靜態(tài)網(wǎng)站、電子商務、微信公眾號、外貿(mào)網(wǎng)站建設
聲明:本網(wǎng)站發(fā)布的內(nèi)容(圖片、視頻和文字)以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網(wǎng)站立場,如需處理請聯(lián)系客服。電話:028-86922220;郵箱:631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載,或轉(zhuǎn)載時需注明來源: 創(chuàng)新互聯(lián)