显示程序的版本

 

 

如果你想在程序的“关于……”中显示程序的版本（以标准方式显示：即 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

上一个：用VB设计更好的用户界面
下一个：如何将鼠标显示成动画鼠标？