发表评论(0)作者:, 平台:, 阅读:9584, 日期:2000-03-17
显示程序的版本
如果你想在程序的“关于……”中显示程序的版本(以标准方式显示:即 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
如果你想在程序的“关于……”中显示程序的版本(以标准方式显示:即 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