如何利用VB.Net生成动态“关于”对话框

最新推荐文章于 2022-09-25 12:52:12 发布

转载最新推荐文章于 2022-09-25 12:52:12 发布 · 586 阅读

文章标签：

#vb.net #application #产品 #string #语言

VB.NET 专栏收录该内容

9 篇文章

订阅专栏

本文介绍了一种简单的方法来创建VB.NET程序的关于窗口，用于显示程序的版本信息。通过使用System.Reflection和System.Windows.Forms.Application类，可以轻松获取并显示应用程序的名称、版本、代码库、公司名及产品名。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

无论你在什么时侯需要做一个 VB.NET程序的 “关于”来显示你的程序版本信息，你也许会想到利用System.Reflection类来得到这些动态信息，但实际上要实现这个功能你并不需要编辑复杂的代码。在程序A中包括了一个代码实例。这个代码实例的运行结果类似于图1。

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

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

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

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
        strAbout = strAbout & "Version: " & exeName.Version.ToString() & vbCrLf
        strAbout = strAbout & "Code Base: " & exeName.CodeBase & vbCrLf
        strAbout = strAbout & "Company: " & System.Windows.Forms.Application.CompanyName & vbCrLf
        strAbout = strAbout & "Product: " & System.Windows.Forms.Application.ProductName & vbCrLf

        MessageBox.Show(strAbout)

    End Sub