Table of contents
TOC
折叠目录
展开目录

Document.FullBuildNumberEdited 属性 (Visio)Document.FullBuildNumberEdited Property (Visio)

office 365 dev account|上次更新日期: 2018/3/13
|
2 参与人员

返回上次用来编辑文档的实例的完整内部版本号。只读。Returns the full build number of the instance last used to edit the document. Read-only.

语法Syntax

表达式FullBuildNumberEditedexpression . FullBuildNumberEdited

表达式_一个表示文档对象的变量。_expression A variable that represents a Document object.

返回值Return Value

LongLong

注解Remarks

下表描述了完整内部版本号的格式。The format of the full build number is described in the following table.

* * 位 * * Bits*** * 说明 * * Description**
0-150 - 15内部版本号Internal build number
16-2016 - 20内部修订版号Internal revision number
21-25 日21 - 25次要版本号。Minor version number.
26-3026 - 30主要版本号 (Visio = 15)Major version number (Visio = 15)
3131保留Reserved

此外,visio,以获得正确的完整内部版本号,则需要添加 1000 到内部修订数字部分的完整内部版本号由FullBuildNumberEdited属性返回,下面的宏所示。In addition, for Visio, to obtain the correct full build number, it is necessary to add 1000 to the internal revision number part of the full build number returned by the FullBuildNumberEdited property, as shown in the following macro.

示例Example

下面的 Microsoft Visual Basic 过程演示了如何使用FullBuildNumberEdited属性来获取 Visio 上次用来编辑文档的实例的完整内部版本号。当已获得的完整内部版本号时, ParseFullBuildNumberEditedProperty过程分析数,并打印在即时窗口中的结果。The following Microsoft Visual Basic procedures show how to use the FullBuildNumberEdited property to get the full build number of the instance of Visio last used to edit the document. When the full build number has been obtained, the ParseFullBuildNumberEditedProperty procedure parses the number and prints the result in the Immediate window.

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
© 2018 Microsoft