锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net读取版本号 vbnet serialport

IT技术版本

vb做的软件如何获得自己的版本号？如果你用的是vb6，而且指的是你在编译程序的时候写的版本号，比如1.0.1可以用app的属性得到
MsgBox App.Major"."App.Minor"."App.Revision
其中major是主版本，minor是次版本，revision是修正
在.net中会比较麻烦点，参考下面
Type FileInfo
wLengthAs Integer
wValueLengthAs Integer
szKeyAs String * 16
【vb.net读取版本号 vbnet serialport】dwSignatureAs Long
dwStrucVersionAs Long
dwFileVersionMSAs Long
dwFileVersionLSAs 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博客，转载请标明出处：
vb.net 应用程序怎么获取自己的版本号Try
Me.Text = "版本V"Deployment.Application.ApplicationDeployment.CurrentDeployment.CurrentVersion.ToString()
Catch ex As Exception
Me.Text = "未知版本"
End Try
vb.net 显示版本这个你把1.0.2.3这个字符串处理下就可以了 。
这个属于字符串的处理
关于vb.net读取版本号和vbnet serialport的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站 。

    推荐阅读


    上一篇：包含chatgpt的mbti是i的词条

    下一篇：全景单机位拍摄是什么意思，全景单反相机