- 03-04 22:02
- Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 6.0; WOW64; SLCC1; .NET CLR 2.0.50727; .NET CLR 3.0.04506; InfoPath.2; Media Center PC 5.0; .NET CLR 3.5.21022; MAXTHON 2.0)
-
xcq
机长
头衔 --
注册 07-04-02
来自 sz
-
编写 关于 窗口代码 VB.net
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)
广告位招租,广告代号:BbsGGADtop












