网站建设资讯

NEWS

网站建设资讯

vbnet修改版本号 vbnet ini

vb点虐 做的程序的版本格式是什么?

版本设置有一种常见毕岩兆的方法叫:Semantic Versioning(语义版本)

创新互联公司专注于企业营销型网站、网站重做改版、隆德网站定制设计、自适应品牌网站建设、HTML5成都商城网站开发、集团公司官网建设、成都外贸网站建设、高端网站制作、响应式网页设计等建站业务,价格优惠性价比高,为隆德等各大城市提供网站开发制作服务。

这是一种手租成熟的枣粗版本更新方法,因此有很多相关的周边设施可用

推荐你看看这篇文章:语义版本号(Semantic Versioning)

文中提及了GitVersion,可以在每次git提交代码后自动生成version;

pipline用起来简直不要太爽

vb点虐 如何修改Framework版本

工程属性里面,有个枯洞引用,看看那个引用到底在程序里用了没有,

如果没有使用(有个叉或者是空的),可以删它,就没事了。

如果使用了,那就表示=这个软件不纤橡能从高改到低,或,改低了之后毁败旁,

也要把使用的引用改成低版本的。如下图:

vb做的软件如何获得自己的版本号?

如果你用的是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博客,转载请标明出处:

vb点虐 显示版本

这个你把1.0.2.3这个字符串处理下就可以了。

这个属于字符串的处理


文章标题:vbnet修改版本号 vbnet ini
网页URL:http://cdweb.net/article/ddpssid.html