通过

Document.FullBuildNumberEdited 属性 (Visio)

  • 项目

返回上次用来编辑文档的实例的完整内部版本号。 此为只读属性。

语法

表达式。FullBuildNumberEdited

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

返回值

Long

备注

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

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

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

示例

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

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