Quick and Dirty About Box

Category:

Miscellaneous

Type:

Snippets

Difficulty:

Beginning

Author:

Intelligent Solutions Inc.

Version Compatibility:

More information:

This just displays selected properties of the app object in a message box. Though it is not great looking, it is somewhat useful helping users who may be using one of several different versions of your application, as it displays version information.

Instructions: Copy the declarations and code below and paste directly into your VB project.

Declarations:
' (None)

Code:

Public Sub ShowAbout()
Dim sMsg As String, sAppName As String
Dim sCopyRight As String, sCompany As String
Dim sTitle As String

With App
    sAppName = IIf(Len(.ProductName) = 0, .EXEName, .ProductName)
    sAppName = sAppName & " Version " & .Major & "." & _
      .Minor & "." & .Revision
    sCopyRight = IIf(Len(.LegalCopyright) = 0, _
        Year(Now), .LegalCopyright)
    sCompany = .CompanyName
    sTitle = IIf(Len(.Title) > 0, App.Title, sAppName)
    sMsg = sAppName & vbCrLf
    sMsg = sMsg & "Copyright " & sCopyRight
    If Len(sCompany) <> 0 Then sMsg = sMsg & " by " & sCompany
    sMsg = sMsg & vbCrLf & vbCrLf
    If Len(.LegalTrademarks) > 0 Then
    sMsg = sMsg & .LegalTrademarks
    sMsg = sMsg & " is a registered trademark and cannot be "
    sMsg = sMsg & "used without written permission"
    If Len(sCompany) > 0 Then sMsg = sMsg & " of " & sCompany
    sMsg = sMsg & vbCrLf & vbCrLf
        
    End If
    If Len(.Comments) Then
        sMsg = sMsg & .Comments
    End If
End With
MsgBox sMsg, vbInformation, sTitle

End Sub