VB.net過程的調(diào)用

Sub過程實(shí)現(xiàn)：

創(chuàng)新互聯(lián)是一家集網(wǎng)站建設(shè),五原企業(yè)網(wǎng)站建設(shè),五原品牌網(wǎng)站建設(shè),網(wǎng)站定制,五原網(wǎng)站建設(shè)報(bào)價(jià),網(wǎng)絡(luò)營銷,網(wǎng)絡(luò)優(yōu)化,五原網(wǎng)站推廣為一體的創(chuàng)新建站企業(yè)，幫助傳統(tǒng)企業(yè)提升企業(yè)形象加強(qiáng)企業(yè)競爭力?？沙浞譂M足這一群體相比中小企業(yè)更為豐富、高端、多元的互聯(lián)網(wǎng)需求。同時(shí)我們時(shí)刻保持專業(yè)、時(shí)尚、前沿，時(shí)刻以成就客戶成長自我，堅(jiān)持不斷學(xué)習(xí)、思考、沉淀、凈化自己，讓我們?yōu)楦嗟钠髽I(yè)打造出實(shí)用型網(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("過程實(shí)現(xiàn) 1! + 2! + 3! + … + 10! = " sum)

End Sub

Function函數(shù)實(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ù)實(shí)現(xiàn) 1! + 2! + 3! + … + 10! = " sum)

End Sub

VB.NET怎么調(diào)用其它模塊的過程？

調(diào)用過程，調(diào)用過程有諸多技巧，它們與過程的類型、位置以及在應(yīng)用程序中的使用方式有關(guān)。下面說明如何調(diào)用 Sub 過程和 Function 過程。

調(diào)用 Sub 過程

與 Sub 過程不同，在表達(dá)式中，Sub 過程不能用其名字調(diào)用。調(diào)用 Sub 過程的是一個(gè)獨(dú)立的語句。Sub 過程還有一點(diǎn)與函數(shù)不一樣，它不會(huì)用名字返回一個(gè)值。但是，與 Function過程一樣，Sub 過程也可以修改傳遞給它們的任何變量的值。

調(diào)用 Sub 過程有兩種方法：

'以下兩個(gè)語句都調(diào)用了名為 MyProc 的 Sub 過程。

Call MyProc (FirstArgument, SecondArgument)

MyProc FirstArgument, SecondArgument

注意，當(dāng)使用 Call 語法時(shí)，參數(shù)必須在括號(hào)內(nèi)。若省略 Call 關(guān)鍵字，則也必須省略參數(shù)兩邊的括號(hào)

調(diào)用函數(shù)過程

通常，調(diào)用自行編寫的函數(shù)過程的方法和調(diào)用 Visual Basic 內(nèi)部函數(shù)過程（例如 Abs）的方法一樣；即在表達(dá)式中寫上它的名字。

'下面的語句都調(diào)用函數(shù) ToDec。

Print 10 * ToDec

X = ToDec

If ToDec = 10 Then Debug.Print "Out of Range"

X = AnotherFunction ( 10 * ToDec)

就像調(diào)用 Sub 過程那樣，也能調(diào)用函數(shù)。下面的語句都調(diào)用同一個(gè)函數(shù)：

Call Year (Now)

Year Now

當(dāng)用這種方法調(diào)用函數(shù)時(shí)，Visual Basic 放棄返回值。

調(diào)用其它模塊中的過程

在工程中的任何地方都能調(diào)用其它模塊中的公用過程?？赡苄枰付ㄟ@樣的模塊，它包含正在調(diào)用的過程。調(diào)用其它模塊中的過程的各種技巧，取決于該過程是在窗體模塊中、類模塊中還是標(biāo)準(zhǔn)模塊中。

窗體中的過程

所有窗體模塊的外部調(diào)用必須指向包含此過程的窗體模塊。如果在窗體模塊 Form1 包含 SomeSub 過程，則可使用下面的語句調(diào)用 Form1 中的過程：

Call Form1.SomeSub(arguments)

類模塊中的過程

與窗體中調(diào)用過程類似，在類模塊中調(diào)用過程要調(diào)用與過程一致并且指向類實(shí)例的變量。例如，DemoClass 是類 Class1 的實(shí)例：

Dim DemoClass as New Class1

DemoClass.SomeSub

但是不同于窗體的是，在引用一個(gè)類的實(shí)例時(shí)，不能用類名作限定符。必須首先聲明類的實(shí)例為對象變量（在這個(gè)例子中是 DemoClass ）并用變量名引用它。

標(biāo)準(zhǔn)模塊中的過程

如果過程名是唯一的，則不必在調(diào)用時(shí)加模塊名。無論是在模塊內(nèi)，還是在模塊外調(diào)用，結(jié)果總會(huì)引用這個(gè)唯一過程。如果過程僅出現(xiàn)在一個(gè)地方，這個(gè)過程就是唯一的。

如果兩個(gè)以上的模塊都包含同名的過程，那就有必要用模塊名來限定了。在同一模塊內(nèi)調(diào)用一個(gè)公共過程就會(huì)運(yùn)行該模塊內(nèi)的過程。例如，對于 Module1 和 Module2 中名為 CommonName 的過程，從 Module2 中調(diào)用 CommonName 則運(yùn)行 Module2 中的 CommonName 過程，而不是 Module1 中的 CommonName 過程。

從其它模塊調(diào)用公共過程名時(shí)必須指定那個(gè)模塊。例如，若在 Module1 中調(diào)用 Module2 中的 CommonName 過程，要用下面的語句：

Module2.CommonName (arguments)

Public ? 用于聲明對所有模塊中的所有其它過程都可以使用的過程。

Private ?用于聲明只能在包含該聲明的模塊中使用的過程。

VB.NET如何調(diào)用存儲(chǔ)過程

我提供下c#里實(shí)現(xiàn)的方法：

SqlConnection conn="連接數(shù)據(jù)庫語句"；

SqlCommand cmd=new SqlCommand("存儲(chǔ)過程名 A或B",conn);

cmd.CommandType=CommandType.StoredProcedure; //這句表示cmd的字符串是存儲(chǔ)過程

cmd.Parameters.Add("@存儲(chǔ)過程里的參數(shù)，用@開頭",SqlDbType.Nvarchar).Value="參數(shù)值";

...如果還有參數(shù)，繼續(xù)上句

conn.Open();

cmd.ExecuteNonQuery();

如果不要參數(shù)，直接把cmd.Parameters這句去掉。SqlDbType表示參數(shù)的類型，自己選擇

VB.NET引用

Private Function ReadFile(ByRef a As String) As String

a = "bian"

End Function

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim a As String = "yuanlai"

ReadFile(a)

''想要的結(jié)果就是在這里使用a的值是"bian"

MsgBox(a)

End Sub

===================

以上就可以，不知道你“ByRef a As b”的b是什么東西

VB.NET怎么從一個(gè)類中引用其它未實(shí)例化的類？

以class2為例，如果你只需要一個(gè)class2實(shí)例，那么把它在class1成員中聲明為共享成員即可。

Shared c2 As New Class2()

然后調(diào)用它的函數(shù)，

c2.func()

如果class2的這個(gè)函數(shù)不依賴于class2實(shí)例，那么直接將這個(gè)函數(shù)用Shared聲明，

Public Shared Function func() As xxx

'xxxxx

End Function

然后在class1中引入，

Imports class2

直接調(diào)用即可。

func()

我想第二種更符合你的情況。

如何使用VB.NET中可選參數(shù)調(diào)用方法

VB.NET可選參數(shù)的默認(rèn)值必須是一個(gè)常數(shù)表達(dá)式。

過程定義中跟在可選參數(shù)后的每個(gè)參數(shù)也都必須是可選的。

下面的語法顯示帶VB.NET可選參數(shù)的過程聲明：

Sub sub name（ByVal parameter 1 As data type 1,

Optional ByVal parameter 2 As data type 2 = default value）

調(diào)用帶VB.NET可選參數(shù)的過程

過程在運(yùn)行時(shí)無法檢測到給定的參數(shù)是否已被省略，或者調(diào)用代碼是否已顯式提供默認(rèn)值。如果需要弄清楚這一點(diǎn)，可以設(shè)置一個(gè)不可能的值作為默認(rèn)值。下面的過程定義了可選參數(shù) office,并測試其默認(rèn)值 QJZ 以查看它在調(diào)用中是否已被省略：

Visual Basic

Sub notify（ByVal company As String, Optional ByVal office As String = "QJZ"）

If office = "QJZ" Then

Debug.WriteLine（"office not supplied -- using Headquarters"）

office = "Headquarters" End If

' Insert code to notify headquarters or specified office.

End Sub

如果可選參數(shù)是像 String 這樣的引用類型，只要它不是該變量所預(yù)期的值，就可以使用 Nothing 作為默認(rèn)值。

VB.NET可選參數(shù)和重載

定義帶可選參數(shù)的過程的另一種方法是使用重載。如果有一個(gè)可選參數(shù)，可以定義過程的兩個(gè)重載版本，一個(gè)接受此參數(shù)，另一個(gè)則不帶參數(shù)。此方法隨可選參數(shù)數(shù)目的增加而變得更復(fù)雜。然而，這樣做的優(yōu)點(diǎn)是可以完全確定調(diào)用程序是否提供了每個(gè)VB.NET可選參數(shù)。

網(wǎng)頁題目：vb.net如何引用過程 vb過程調(diào)用
本文鏈接：http://aaarwkj.com/article24/hhpjce.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供小程序開發(fā)、軟件開發(fā)、動(dòng)態(tài)網(wǎng)站、面包屑導(dǎo)航、用戶體驗(yàn)、App設(shè)計(jì)

廣告

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