Document.FullBuildNumberCreated 屬性 (Visio)

會傳回用來建立文件之執行個體的完整組建編號。 唯讀。

語法

運算式。FullBuildNumberCreated

表達 代表 Document 物件的變數。

傳回值

Long

註解

下表將說明完整組建編號的格式。

Bits	描述
0 - 15	內部組建編號
16 - 20	內部修訂版編號
21 - 25	次要版本號碼
26 - 30	Visio (的主要版本號碼 = 15)
31	保留

此外，針對 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 支援與意見反應。