扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条
作者:builder.com.cn 2007年1月24日
关键字:
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
如果您非常迫切的想了解IT领域最新产品与技术信息,那么订阅至顶网技术邮件将是您的最佳途径之一。