FullBuildNumberCreated Property [Visio 2003 SDK Documentation]

Returns the full build number of the instance used to create the document.

retVal = object**.FullBuildNumberCreated**

retVal     Long. The build number when the document was created.

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 for Applications (VBA) procedures show how to use the FullBuildNumberCreated property to get the full build number of the instance of Microsoft Office Visio used to create the document. Once the full build number has been obtained, the ParseFullBuildNumberCreatedProperty procedure parses the number and prints it in the Immediate window.

Public Sub FullBuildNumberCreated_Example()
 
    Dim lngFullBuild As Long
    lngFullBuild = ActiveDocument.FullBuildNumberCreated
    ParseFullBuildNumberCreatedProperty (lngFullBuild)    
 
End Sub
  
Public Sub ParseFullBuildNumberCreatedProperty(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 | FullBuildNumberEdited property