Public Sub StartSysInfo()

    On Error GoTo SysInfoErr

    Dim rc As Long

    Dim SysInfoPath As String

    ' Try To Get System Info Program Path\Name From Registry...

    If GetKeyValue(HKEY_LOCAL_MACHINE, gREGKEYSYSINFO, gREGVALSYSINFO, SysInfoPath) Then

    ' Try To Get System Info Program Path Only From Registry...

    ElseIf GetKeyValue(HKEY_LOCAL_MACHINE, gREGKEYSYSINFOLOC, gREGVALSYSINFOLOC, SysInfoPath) Then

        ' Validate Existance Of Known 32 Bit File Version

        If (Dir(SysInfoPath & "\MSINFO32.EXE") <> "") Then

            SysInfoPath = SysInfoPath & "\MSINFO32.EXE"

        ' Error - File Can Not Be Found...

        Else

            GoTo SysInfoErr

        End If

    ' Error - Registry Entry Can Not Be Found...

    Else

        GoTo SysInfoErr

    End If

    Call Shell(SysInfoPath, vbNormalFocus)

    Exit Sub

    SysInfoErr:

    MsgBox "System Information Is Unavailable At This Time", vbOKOnly

End Sub

4.4  小  结

通过本章的学习，读者可以对Visual Basic 6.0程序设计中的界面设计有了深入的认识，尤其是对可视化编程有了更加直观的学习。

本章集中的介绍了界面设计的三种方法：第一个是利用VCL控件进行的窗体界面设计，另外一个是多重窗体的设计（Multiple Forms），还有一个就是经常提到的多文档界面的设计，即MDI（Multiple Document Interface）。

提示：

@        学习了本章的几个英文缩写，用户在以后再看到MDI、SDI（单文档界面）和MF这些术语，就不会感到陌生了。