Application.FullBuild 属性 (Visio)

返回运行实例的完整内部版本号。 此为只读属性。

语法

表达式。FullBuild

expression：表示 Application 对象的变量。

返回值

Long

备注

下表描述了内部版本号的格式。

Bits	Description
0 - 15	内部版本号
16 - 20	内部修订版号
21 - 25	次版本号
26 - 30	主版本号 (Visio = 15)
31	Reserved

此外，对于 Visio，若要获取正确的完整内部版本号，必须将 1000 添加到 FullBuild 属性返回的完整内部版本号的内部修订号部分，如以下宏所示。

创建新文档时，正在运行的实例的内部版本号将写入 FullBuildNumberCreated 属性，并在编辑文档时写入 FullBuildNumberEdited 属性。

示例

下面的 Microsoft Visual Basic 过程显示了如何使用 FullBuild 属性来获得当前的 Visio 实例的完整内部版本号。 获取完整内部版本号后， ParseFullBuildProperty 过程将分析该编号并在“即时”窗口中打印结果。

Public Sub FullBuild_Example() 
 
 Dim lngFullBuild as Long 
 lngFullBuild = Application.FullBuild 
 ParseFullBuildProperty (lngFullBuild) 
 
End Sub

Public Sub ParseFullBuildProperty(ByRef lngFullBuild As Long) 
 
 Dim lngMajor As Long 
 Dim lngMinor As Long 
 Dim lngRevision As Long 
 Dim lngBuild As Long 
 Dim lngNumber As Long 
 
 lngNumber = lngFullBuild 
 
 ' Low 16 bits: 
 lngBuild = lngNumber Mod 65536 
 lngNumber = lngNumber / 65536 
 
 'Next 5 bits: 
 lngRevision = lngNumber Mod 32 
 lngNumber = lngNumber / 32 
 
 'Next 5 bits: 
 lngMinor = lngNumber Mod 32 
 lngNumber = lngNumber / 32 
 
 'Next 5 bits: 
 lngMajor = lngNumber Mod 32 
 lngNumber = lngNumber / 32 
 
 'Remaining 1 bit unused and 0 as of Visio 2010 
 Debug.Print "lngFullBuild (full version specification): " & lngMajor & "." _ 
 & lngMinor & "." & lngBuild & "." & lngRevision + 1000 
 Debug.Assert(0 = lngNumber) 
 
End Sub

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。