通过

Document.FullBuildNumberCreated 属性 (Visio)

  • 项目

返回用来创建文档的实例的完整内部版本号。 此为只读属性。

语法

表达式。FullBuildNumberCreated

表达 一个代表 Document 对象的变量。

返回值

Long

备注

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

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

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

示例

下面的 Microsoft Visual Basic for Applications (VBA) 过程显示了如何使用 FullBuildNumberCreated 属性来获得用于创建文档的 Visio 实例的完整内部版本号。 获取完整内部版本号后， ParseFullBuildNumberCreatedProperty 过程将分析该编号并在“即时”窗口中打印结果。

Public Sub FullBuildNumberCreated_Example() 
 
 Dim lngFullBuild As Long 
 lngFullBuild = ActiveDocument.FullBuildNumberCreated 
 ParseFullBuildNumberCreatedProperty (lngFullBuild) 
 
End Sub 
 
Public Sub ParseFullBuildNumberCreatedProperty(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 支持和反馈，获取有关如何接收支持和提供反馈的指南。