Compartir a través de

Propiedad Application.FullBuild (Visio)

  • Artículo

Devuelve el número de generación completo de la instancia en ejecución. Solo lectura.

Sintaxis

expresión. FullBuild

expresión Variable que representa un objeto Application.

Valor devuelto

Long

Comentarios

El formato del número de generación se describe en la tabla siguiente.

Bits Descripción
0 - 15 Número de generación interno
16 - 20 Número de revisión interna
21 - 25 Número de versión secundaria
26 - 30 Número de versión principal (Visio = 15)
31 Reserved

Además, para Visio, para obtener el número de compilación completo correcto, es necesario agregar 1000 a la parte del número de revisión interno del número de compilación completo devuelto por la propiedad FullBuild , como se muestra en la siguiente macro.

El número de compilación de la instancia en ejecución se escribe en la propiedad FullBuildNumberCreated cuando se crea un nuevo documento y en la propiedad FullBuildNumberEdited cuando se edita un documento.

Ejemplo:

En los siguientes procedimientos de Microsoft Visual Basic se muestra cómo usar la propiedad FullBuild para obtener el número de compilación completo de la sesión actual de Visio. Una vez obtenido el número de compilación completo, el procedimiento ParseFullBuildProperty analiza el número e imprime los resultados en la ventana Inmediato.

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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.