正文
vb.net修改版本号 vb net use
提示：扫一扫查出行【扫一扫了解最新限行尾号】
复制提示
vb做的软件如何获得自己的版本号？
如果你用的是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博客，转载请标明出处：
相关问答
Q1: vb.net制作的程序，发布更新程序的问题。
你1.0里做了查找更新的功能么？通常比如做一段连到更新服务器，验证下最新版本信息比如服务器目录下放个记录版本号和新版位置的txt，有了就用单写的更新程序更新（不能更新正在运行的自己的关系）。至于没做这部分而要让原来的1.0自己“感应”到那是天方夜谭了。
Q2: VB.net中怎么通过代码对textbox中的font下的各个属性进行修改？
通过下面的方法进行修改vb.net修改版本号：
TextBox1.Font = New Font("Arial", 16, FontStyle.Bold) 'Arial字体,大小:16,粗体
'TextBox1.Font = New Font("Arial", 16, FontStyle.Italic) 'Arial字体,大小:16,斜体
'TextBox1.Font = New Font("Arial", 16, FontStyle.Regular) 'Arial字体,大小:16,正常
'TextBox1.Font = New Font("Arial", 16, FontStyle.Strikeout) 'Arial字体,大小:16,删除线
'TextBox1.Font = New Font("Arial", 16, FontStyle.Underline) 'Arial字体,大小:16,下划线
TextBox1.ForeColor = Color.Red '前景色
VB.NET的简介
VB.net是微软最新平台技术，是.netframeworkSDK的一种语言。VB.net和VC#.net在功能上没有区别。编译以后生成的可执行文件被称为Assembly，即程序集。
VB.net的版本号是VisualBasic7.0，它的运行是建立在CLR(CommonLanguageRuntime)和MSIL(MicrosoftIntermediateLanguage)虚拟器上的。其实，它的机制和Java差不多。
VB.NET的特点
1.真正成为面向对象以及支持继承性的语言。
2.窗体设计器支持可视化继承，并且包含vb.net修改版本号了许多新的特性，比如自动改变窗体大小、资源本地化支持、数据类工具内在支持XML数据。
3.直接建立在.NET的框架结构上，因此开发人员可以充分利用所有.NET平台特性，也可以与其他的.NET语言交互。
4.为Windows应用程序提供了XCOPY部署，开发者不再需要为DLL的版本问题担忧。
VB.net的语言特点：
1.代码托管。被托管的代码享受.netframework提供的安全保障和垃圾回收机制，但是这也同时表明，你的程序被框在Framework里面了。API变得不太方便。
2.强大的面向对象特性。现在VB7已经是一个完全的面向对象程序。
现在VB7已经支持类的各种特性：继承，函数的覆盖，重载，虚拟，隐藏??
3.功能强大，程序界面更标准。
4.程序代码结构化更强，开发环境舒适体贴。
Q3: vb.net做的程序的版本格式是什么？
版本设置有一种常见vb.net修改版本号的方法叫vb.net修改版本号：Semantic Versioning（语义版本）
这是一种成熟的版本更新方法vb.net修改版本号，因此有很多相关的周边设施可用
推荐你看看这篇文章：语义版本号（Semantic Versioning）
文中提及了GitVersion，可以在每次git提交代码后自动生成versionvb.net修改版本号；
pipline用起来简直不要太爽
Q4: vb.net 显示版本
这个vb.net修改版本号你把1.0.2.3这个字符串处理下就可以vb.net修改版本号了。
这个属于字符串vb.net修改版本号的处理
Q5: vb.net 自动更新指定位置的.exe 文件 例如，程序运行时，会自动更新 \\192.16
自动升级vb.net修改版本号？提供个思路供vb.net修改版本号你参考。
独立编写升级模块，编译为单独文件，并且在主程序中通过事件或方法以调用外部程序的方式调用。
可另创二进制文件记录，本机软件版本号及版本日期。升级模块内有与网络文件日期或版本号比较的代码。比较结果发现已经更新提示后由用户选择是否更新，更新时直接覆盖。当然，更人性化的可以让用户选择新功能安装。
文件位置？一般可以通过注册表确认。开始学时，可以直接记录到一个文件里，更新时取出来就是vb.net修改版本号了。
vb.net修改版本号的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb net use、vb.net修改版本号的信息别忘了在本站进行查找喔。
