Observação
O acesso a essa página exige autorização. Você pode tentar entrar ou alterar diretórios.
O acesso a essa página exige autorização. Você pode tentar alterar os diretórios.
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, para obter o número de compilação completo correto, é necessário adicionar 1000 à parte do número de revisão interna do número de compilação completo devolvido pela propriedade FullBuild , conforme mostrado na seguinte macro.
O número de compilação da instância em execução é escrito na propriedade FullBuildNumberCreated quando é criado um novo documento 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 de obter o número de compilação completo, o procedimento ParseFullBuildProperty analisa o número e imprime os resultados na janela Imediato.
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.