Visio) (Application.FullBuild 屬性

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

語法

運算式。FullBuild

expression 代表 Application 物件的變數。

傳回值

Long

註解

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

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