C#编程

开发平台：

C#

frmAbout.vb：源码内容

							Imports System.IO
Public Class frmAbout
    Private Sub frmAbout_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If File.Exists("C:Program FilesCommon FilesMicrosoft SharedMSInfomsinfo32.exe") Then
            btnSysInfo.Visible = True
        Else
            btnSysInfo.Visible = False
        End If
        lblVersion.Text = Application.ProductVersion.ToString
    End Sub
    Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click
        Me.Close()
    End Sub
    Private Sub btnSysInfo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSysInfo.Click
        If File.Exists("C:Program FilesCommon FilesMicrosoft SharedMSInfomsinfo32.exe") Then
            Process.Start("C:Program FilesCommon FilesMicrosoft SharedMSInfomsinfo32.exe")
            Me.Close()
        End If
    End Sub
End Class

						