VB.NET擁有強(qiáng)大的面向?qū)ο筇匦裕浯a結(jié)構(gòu)化強(qiáng)，界面簡(jiǎn)單，能使開(kāi)發(fā)人員輕松上手。不過(guò)要想熟練的應(yīng)用這門(mén)語(yǔ)言，還需要我們不斷的在實(shí)戰(zhàn)中去積累經(jīng)驗(yàn)，鞏固所學(xué)知識(shí)。在這里就先來(lái)了解一下VB.NET過(guò)程重載的相關(guān)概念。

VB.NET過(guò)程重載是指使用相同的名稱和不同的參數(shù)列表在多個(gè)版本中定義某個(gè)過(guò)程。重載的目的是定義過(guò)程的若干個(gè)密切相關(guān)的版本，而不需要通過(guò)名稱來(lái)區(qū)分它們，可通過(guò)改變參數(shù)列表達(dá)到此目的。

VB.NET過(guò)程重載規(guī)則

假設(shè)要編寫(xiě)一個(gè) Sub 過(guò)程來(lái)根據(jù)客戶的余額公布交易，同時(shí)希望能夠通過(guò)名稱或者通過(guò)帳號(hào)引用客戶。為此，可以定義兩個(gè)不同的 Sub 過(guò)程，如下例所示：

 
 
 

  
  
  
Visual Basic 
  
  
  
Sub postName(ByVal custName 
As String, ByVal amount 
As Single) 
  
  
  
' Insert code to access 
customer record by 
customer name. 
  
  
  
End Sub 
  
  
  
Sub postAcct(ByVal custAcct 
As Integer, ByVal 
amount As Single) 
  
  
  
' Insert code to access 
customer record by account number. 
  
  
  
End Sub
 
 
 

VB.NET過(guò)程重載版本

另一種方法是重載一個(gè)單獨(dú)的過(guò)程名?？梢允褂?Overloads 關(guān)鍵字為每一個(gè)參數(shù)列表定義該過(guò)程的一個(gè)版本，如下所示：

 
 
 

  
  
  
Visual Basic 
  
  
  
Overloads Sub post(ByVal 
custName As String, ByVal 
amount As Single) 
  
  
  
' Insert code to access 
customer record by 
customer name. 
  
  
  
End Sub 
  
  
  
Overloads Sub post(ByVal 
custAcct As Integer, 
ByVal amount As Single) 
  
  
  
' Insert code to access 
customer record by 
account number. 
  
  
  
End Sub
 
 
 

其他VB.NET過(guò)程重載

如果還需要接受以 Decimal 或 Single 表示的交易金額，可進(jìn)一步重載 post 以允許這種變化形式。如果在上例中對(duì)每個(gè)重載都進(jìn)行了這樣的操作，就會(huì)有四個(gè) Sub 過(guò)程，它們具有相同的名稱但是具有四個(gè)不同的簽名。

VB.NET過(guò)程重載的優(yōu)點(diǎn)

重載過(guò)程的優(yōu)點(diǎn)在于使調(diào)用更靈活。若要使用前面示例中聲明的 post 過(guò)程，調(diào)用代碼可以獲得 String 或 Integer 類型的客戶標(biāo)識(shí)，然后在兩種情況下都調(diào)用同一過(guò)程。下面的示例將說(shuō)明這一點(diǎn)：

 
 
 

  
  
  
Visual Basic 
  
  
  
Imports MSvb = Microsoft.
VisualBasic 
  
  
  
Visual Basic 
  
  
  
Dim customer As String 
  
  
  
Dim accountNum As Integer 
  
  
  
Dim amount As Single 
  
  
  
customer = MSVB.Interaction.
InputBox("Enter customer name 
or number") 
  
  
  
amount = MSVB.Interaction.
InputBox("Enter transaction
 amount") 
  
  
  
Try 
  
  
  
accountNum = CInt(customer) 
  
  
  
Call post(accountNum, amount) 
  
  
  
Catch 
  
  
  
Call post(customer, amount) 
  
  
  
End Try
 
 
 

VB.NET過(guò)程重載的相關(guān)概念就為大家介紹到這里。

當(dāng)前題目：VB.NET過(guò)程重載使用規(guī)則及優(yōu)點(diǎn)詳解
當(dāng)前鏈接：http://uogjgqi.cn/article/djsjieh.html