Propriedade Application.FullBuild (Visio)

Retorna o número de compilação completo da instância em execução. Somente leitura.

Sintaxe

expressão. FullBuild

expressão Uma variável que representa um Aplicativo objeto.

Valor de retorno

Long

Comentários

O formato do número de compilação é descrito na tabela a seguir.

Bits	Descrição
0 - 15	Número de compilação interno
16 - 20	Número de revisão interno
21 - 25	Número de versão secundário
26 - 30	Número da versão principal (Visio = 15)
31	Reserved

Além disso, para o Visio obter o número de build completo correto, é necessário adicionar 1000 à parte de número de revisão interna do número de build completo retornado pela propriedade FullBuild , conforme mostrado na macro a seguir.

O número de build da instância em execução é gravado na propriedade FullBuildNumberCreated quando um novo documento é criado e na propriedade FullBuildNumberEdited quando um documento é editado.

Exemplo

Os seguintes procedimentos do Microsoft Visual Basic mostram como usar a propriedade FullBuild para obter o número de compilação completo da instância atual do Visio. Depois que o número completo de build for obtido, o procedimento ParseFullBuildProperty analisa o número e imprime os resultados na janela Imediata.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.