VB.NET的應(yīng)用方式靈活簡單，能夠幫助開發(fā)人員輕松的實現(xiàn)各種功能需求。在這里為大家介紹的VB.NET關(guān)于對話框的實現(xiàn)，就可以幫助大家輕松的了解這一語言的相關(guān)應(yīng)用技巧，方便大家解讀。

本文將利用VB.NET關(guān)于對話框的制作，用來動態(tài)顯示你的程序版本信息，這時你也許會想到利用System.Reflection類來得到這些動態(tài)信息，但實際上要實現(xiàn)這個功能你并不需要編輯復(fù)雜的代碼。在程序A中包括了一個代碼實例。

程序A:

以下是代碼片段：

 
 
 
 

  
  
  
  
Private Sub DynamicAboutBox()  
  
  
  
  
Dim strAbout As String  
  
  
  
  
Dim exeApp As System.Reflection.Assembly  
  
  
  
  
exeApp = System.Reflection.Assembly.GetExecutingAssembly()  
  
  
  
  
Dim exeName As System.Reflection.AssemblyName  
  
  
  
  
exeName = exeApp.GetName()  
  
  
  
  
strAbout = "Application: " & exeName.Name & vbCrLf  
  
  
  
  
strAboutstrAbout = strAbout & "Version: "  
  
  
  
  
& exeName.Version.ToString() & vbCrLf  
  
  
  
  
strAboutstrAbout = strAbout & "Code Base: "  
  
  
  
  
& exeName.CodeBase & vbCrLf  
  
  
  
  
strAboutstrAbout = strAbout & "Company: " &  
  
  
  
  
System.Windows.Forms.Application.CompanyName & vbCrLf  
  
  
  
  
strAboutstrAbout = strAbout & "Product: " &  
  
  
  
  
System.Windows.Forms.Application.ProductName & vbCrLf  
  
  
  
  
MessageBox.Show(strAbout)  
  
  
  
  
End Sub
 
 
 
 

這個VB.NET關(guān)于對話框的代碼實例的運行結(jié)果類似于圖1。

在這個VB.NET關(guān)于對話框例子中，我通過利用System.Reflection類來獲得必要的應(yīng)用程序信息。同時我也通過利用System.Windows.Forms.Application這個類來直接地獲得其他額外信息。

這里我定義了一個字符串變量strAbout來存放將要顯示的應(yīng)用程序信息。同時我還定義了其它兩個變量：exeApp 作為 System.Reflection.Assembly的變量 與exeName作為 System.Reflection.AssemblyName的變量。

變量exeApp是被用來獲得集合的名字。然后，我將exeName變量(名字、版本、代碼語言)，ProductName(產(chǎn)品名字)和(CompanyName)公司名字這些信息結(jié)合到一起，其中，ProductName(產(chǎn)品名字)和(CompanyName)公司名字是利用System.Windows.Forms.Application這個類的屬性得到的。

本文適合初學(xué)者閱讀，希望高手們進行討論！

本文題目：盤點VB.NET對話框制作技巧
分享路徑：http://uogjgqi.cn/article/cogeehd.html