VB 版 (精华区)

发信人: zxfsnow (最近睡眠太少), 信区: VB
标  题: 显示程序的的版本 
发信站: 哈工大紫丁香 (2000年06月08日12:32:11 星期四), 转信

发信人: murmur (其实我想走), 信区: VB
标  题: 显示程序的的版本
发信站: 武汉白云黄鹤站 (Wed Jun  9 16:48:48 1999), 转信
如果你想在程序的“关于……”中显示程序的版本（以标准方式显示
：即 x.xx.xxxx），你可以使用以下子程序：
Public Function GetMyVersion() As String
Static strMyVer As String
If strMyVer = "" Then
strMyVer = Trim$(Str$(App.Major)) & "." & Format$(App.Minor, "##00") & "." F
orma
End If
GetMyVersion = strMyVer
End Function
--
※ 来源:．武汉白云黄鹤站 bbs.whnet.edu.cn．[FROM: hzjpci.hust.edu.]
                                            
--

 以科计为本,以产业报国!
  超越自我,飞跃无限!
  

※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.235.249]