Propriété Application.FullBuild (Visio)

  • Article

Cette propriété renvoie le numéro de version complet de l’instance en cours d’exécution. En lecture seule.

Syntaxe

expression. FullBuild

expressionUne variable qui représente un objetApplication.

Valeur renvoyée

Entier long

Remarques

Le format du numéro de version est décrit dans le tableau suivant.

Bits Description
0 -15 Numéro de version interne
16 -20 Numéro de révision interne
21 - 25 Numéro de version secondaire
26 -30 Numéro de version principale (Visio = 15)
31 Reserved

En outre, pour Visio, pour obtenir le numéro de build complet correct, il est nécessaire d’ajouter 1000 à la partie numéro de révision interne du numéro de build complet retourné par la propriété FullBuild , comme indiqué dans la macro suivante.

Le numéro de build de l’instance en cours d’exécution est écrit dans la propriété FullBuildNumberCreated lors de la création d’un document et dans la propriété FullBuildNumberEdited lorsqu’un document est modifié.

Exemple

Les procédures Microsoft Visual Basic suivantes indiquent comment utiliser la propriété FullBuild pour récupérer le numéro de version complet de l’instance actuelle de Visio. Une fois le numéro de build complet obtenu, la procédure ParseFullBuildProperty analyse le nombre et imprime les résultats dans la fenêtre Exécution.

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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.