VB.NET关于对话框制作技巧分享

VB.NET的应用方式灵活简单，能够帮助开发人员轻松的实现各种功能需求。在这里为大家介绍的VB.NET关于对话框的实现，就可以帮助大家轻松的了解这一语言的相关应用技巧，方便大家解读。

本文将利用VB.NET关于对话框的制作，用来动态显示你的程序版本信息，这时你也许会想到利用System.Reflection类来得到这些动态信息，但实际上要实现这个功能你并不需要编辑复杂的代码。在程序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关于对话框的代码实例的运行结果类似于图1。

在这个VB.NET关于对话框例子中，我通过利用System.Reflection类来获得必要的应用程序信息。同时我也通过利用System.Windows.Forms.Application这个类来直接地获得其他额外信息。#t#

这里我定义了一个字符串变量strAbout来存放将要显示的应用程序信息。同时我还定义了其它两个变量：exeApp 作为 System.Reflection.Assembly的变量 与exeName作为 System.Reflection.AssemblyName的变量。

变量exeApp是被用来获得集合的名字。然后，我将exeName变量（名字、版本、代码语言），ProductName（产品名字）和（CompanyName）公司名字这些信息结合到一起，其中，ProductName（产品名字）和（CompanyName）公司名字是利用System.Windows.Forms.Application这个类的属性得到的。