在开始菜单选择"运行",
站在用户的角度思考问题,与客户深入沟通,找到太平网站设计与太平网站推广的解决方案,凭借多年的经验,让设计与互联网技术结合,创造个性化、用户体验好的作品,建站类型包括:成都做网站、网站制作、企业官网、英文网站、手机端网站、网站推广、域名与空间、网站空间、企业邮箱。业务覆盖太平地区。
或者快捷键 “windows键+R”
在命令窗口输入regedit.exe,打开注册表
在注册表中定位到如下节点
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\NET Framework Setup\NDP
安装过的.NET Framework都列在NDP目录下
对于.NET Framework 4.5或之后的版本查看方法
如上打开注册表并定位到
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\NET Framework Setup\NDP\v4\Full
如果没有Full节点,那么说明没有安装过4.5或者更新的版本
通过"Release"的值来判断所安装的.NET Framework版本,可参照下表
Try
Me.Text = "版本V" Deployment.Application.ApplicationDeployment.CurrentDeployment.CurrentVersion.ToString()
Catch ex As Exception
Me.Text = "未知版本"
End Try
如果你用的是vb6,而且指的是你在编译程序的时候写的版本号,比如1.0.1可以用app的属性得到
MsgBox App.Major "." App.Minor "." App.Revision
其中major是主版本,minor是次版本,revision是修正
在.net中会比较麻烦点,参考下面
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博客,转载请标明出处:
版本设置有一种常见的方法叫:Semantic Versioning(语义版本)
这是一种成熟的版本更新方法,因此有很多相关的周边设施可用
推荐你看看这篇文章:语义版本号(Semantic Versioning)
文中提及了GitVersion,可以在每次git提交代码后自动生成version;
pipline用起来简直不要太爽
这个你把1.0.2.3这个字符串处理下就可以了。
这个属于字符串的处理