Document.FullBuildNumberEdited プロパティ (Visio)

図面の編集で最後に使用したインスタンスの完全なビルド番号を取得します。 読み取り専用です。

構文

式。FullBuildNumberEdited

式Document オブジェクトを表す変数。

戻り値

Long

注釈

完全なビルド番号の形式は、次のとおりです。

さらに、Visio では、正しい完全なビルド番号を取得するには、次のマクロに示すように、 FullBuildNumberEdited プロパティによって返される完全なビルド番号の内部リビジョン番号部分に 1000 を追加する必要があります。

例

次の 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 のサポートおよびフィードバックを参照してください。