Visio) (Application.FullBuild 屬性

會傳回正在執行之實例的完整組建編號。 唯讀。

語法

運算式。FullBuild

expression 代表 Application 物件的變數。

傳回值

Long

註解

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

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

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