FullBuildNumberEdited Property [Visio 2003 SDK Documentation]
Returns the full build number of the instance last used to edit the document.
retVal = object**.FullBuildNumberEdited**
retVal Long. The build number when the document was last edited.
object Required. An expression that returns a Document object.
Version added
2002
Remarks
The format of the build number is described in the following table.
Bits | Description |
---|---|
0 - 15 |
Internal build number |
16 - 20 |
Internal revision number |
21 - 25 |
Minor version number |
26 - 30 |
Major version number (Microsoft Office Visio 2003 = 11) |
31 |
Reserved |
Example
The following Microsoft Visual Basic procedures show how to use the FullBuildNumberEdited property to get the full build number of the instance of Microsoft Office Visio last used to edit the document. When the full build number has been obtained, the ParseFullBuildNumberEditedProperty procedure parses the number and prints it in the Immediate window.
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 2002
Debug.Print"lngFullBuild (full version specification): " & lngMajor & "." _
& lngMinor & "." & lngRevision & "." & lngBuild
Debug.Assert(0 = lngNumber)
End Sub
Applies to | Document object
See Also | Build property | BuildNumberCreated property | BuildNumberEdited property | FullBuild property | FullBuildNumberCreated property