摘要载入中…　　　　请稍等…















内容载入中…　　　　请稍等…

显示程序的版本

 2009-1-5 21:16:31　　　来源：互联网　　
   

　·显示文件属性对话框　·用VISUAL BASIC编写托盘程序　·VB版本alexa网站世界排名查询器 
显示程序的版本 


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