版本设置有一种常见毕岩兆的方法叫：Semantic Versioning（语义版本）
创新互联公司专注于企业营销型网站、网站重做改版、隆德网站定制设计、自适应品牌网站建设、HTML5、成都商城网站开发、集团公司官网建设、成都外贸网站建设、高端网站制作、响应式网页设计等建站业务，价格优惠性价比高，为隆德等各大城市提供网站开发制作服务。
这是一种手租成熟的枣粗版本更新方法，因此有很多相关的周边设施可用
推荐你看看这篇文章：语义版本号（Semantic Versioning）
文中提及了GitVersion，可以在每次git提交代码后自动生成version；
pipline用起来简直不要太爽
工程属性里面，有个枯洞引用，看看那个引用到底在程序里用了没有，
如果没有使用(有个叉或者是空的)，可以删它，就没事了。
如果使用了，那就表示=这个软件不纤橡能从高改到低，或，改低了之后毁败旁，
也要把使用的引用改成低版本的。如下图：
如果你用的是vb6，而且指的是你在编译程序的时候写的版本睁歼号，比如1.0.1可以用app的属性得到
MsgBox App.Major "." App.Minor "." App.Revision
其中major是主版本，minor是次版本，revision是修正
在点虐 中会比较麻烦点，参考下面
Type FileInfo
wLength As Integer
wValueLength As Integer
szKey As String * 16
dwSignature As Long
dwStrucVersion As Long
dwFileVersionMS As Long
dwFileVersionLS As Long
End Type
' NOTE: The following Declare statements are case sensitive.
Declare Function GetFileVersionInfo Lib "Version" _
Alias "GetFileVersionInfoA" (ByVal FileName$, _
ByVal dwHandle, ByVal cbBuff, ByVal lpvData$)
Declare Function GetFileVersionInfoSize Lib "Version" Alias _
"GetFileVersionInfoSizeA" (ByVal FileName$, dwHandle)
Declare Sub hmemcpy Lib "Kernel32"桐早敏 Alias "RtlMoveMemory" _
(hpvDest As Any, hpvSource As Any, ByVal cbBytes)
Function LOWORD(x As Long) As Integer
LOWORD = x And HFFFF
' Low 16 bits contain Minor revision number.
End Function
Function HIWORD(x As Long) As Integer
HIWORD = x \ HFFFF
' High 16 bits contain Major revision number.
End Function
'----------------------------------------
'以下为执行模块，在 VBE 界面按 F5 执行
'----------------------------------------
Function displayVersion()
Dim x As FileInfo
Dim FileVer As String
Dim FileName As String
Dim dwHandle, BufSize, lpvData$, R
'*** Get Version Information If Available ****
FileVer = ""
'FileName = 路径
FileName = Environ("windir") "\system32\msjet40.dll"
BufSize = GetFileVersionInfoSize(FileName, dwHandle)
If BufSize = 0 Then
MsgBox "局枝Invalid File Name or no Version information available"
Exit Function
End If
lpvData$ = Space$(BufSize)
R = GetFileVersionInfo(FileName, dwHandle, BufSize, lpvData$)
hmemcpy x, ByVal lpvData$, Len(x)
'**** Parse File Version Number ****
FileVer = Trim$(Str$(HIWORD(x.dwFileVersionMS))) + "."
FileVer = FileVer + Trim$(Str$(LOWORD(x.dwFileVersionMS))) + "."
FileVer = FileVer + Trim$(Str$(HIWORD(x.dwFileVersionLS))) + "."
FileVer = FileVer + Trim$(Str$(LOWORD(x.dwFileVersionLS)))
MsgBox FileVer, 64, "Version of " FileName
End Function
本文来自CSDN博客，转载请标明出处：
这个你把1.0.2.3这个字符串处理下就可以了。
这个属于字符串的处理
