Application.FullBuild-Eigenschaft (Visio)

Artikel
04/07/2023

Gibt die komplette Buildnummer der ausgeführten Instanz zurück. Schreibgeschützt.

Syntax

Ausdruck. FullBuild

expression Eine Variable, die ein Application-Objekt darstellt.

Rückgabewert

Long

HinwBemerkungeneise

Das Format der Buildnummer wird in der folgenden Tabelle beschrieben.

Bits	Beschreibung
0 -15	Interne Buildnummer
16 -20	Interne Überarbeitungsnummer
21 -25	Nummer der Nebenversion
26 -30	Hauptversionsnummer (Visio = 15)
31	Reserved

Damit Visio die richtige vollständige Buildnummer erhält, muss dem internen Revisionsnummerteil der vollständigen Buildnummer, die von der FullBuild-Eigenschaft zurückgegeben wird, 1000 hinzugefügt werden, wie im folgenden Makro gezeigt.

Die Buildnummer der ausgeführten Instanz wird in die FullBuildNumberCreated-Eigenschaft geschrieben, wenn ein neues Dokument erstellt wird, und in die FullBuildNumberEdited-Eigenschaft , wenn ein Dokument bearbeitet wird.

Beispiel

Die folgenden VBA-Prozeduren (Microsoft Visual Basic) veranschaulichen, wie Sie mit der FullBuild-Eigenschaft die komplette Buildnummer der aktuellen Visio-Instanz abrufen. Nachdem die vollständige Buildnummer abgerufen wurde, analysiert die ParseFullBuildProperty-Prozedur die Zahl und gibt die Ergebnisse im Direktfenster aus.

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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.

Freigeben über