Question

VB6程序 如何 生成后 EXE程序的版本号进行显示。

每次总是要右键看属性中的版本号太麻烦，VB6能不能自动获得自身程序的版本号，以便能在程序中显示。

Answer 1

如果你想在程序的“关于……”中显示程序的版本（以标准方式显示：即 x.xx.xxxx），你可以使用以下子程序：
Public Function GetMyVersion() As String
Static strMyVer As String
If strMyVer = "" Then
strMyVer = Trim$(Str$(App.Major)) & "." & Format$(App.Minor, "##00") & "." Format$(App.Revision, "000")
End If
GetMyVersion = strMyVer
End Function