Свойство Application.FullBuild (Visio)

Возвращает полный номер сборки запущенного экземпляра. Только для чтения.

Синтаксис

expression. FullBuild

выражение: переменная, представляющая объект Application.

Возвращаемое значение

Long

Замечания

Формат номера сборки описан в следующей таблице.

Биты	Описание
0 - 15	Номер внутренней сборки
16 - 20	Внутренний номер редакции
21 - 25	Дополнительный номер версии
26 - 30	Основной номер версии (Visio = 15)
31	Reserved

Кроме того, для Visio, чтобы получить правильный полный номер сборки, необходимо добавить 1000 во внутреннюю часть номера редакции полного номера сборки, возвращаемого свойством FullBuild , как показано в следующем макросе.

Номер сборки запущенного экземпляра записывается в свойство FullBuildNumberCreated при создании нового документа и в свойство FullBuildNumberEdited при редактировании документа.

Пример

В следующих процедурах Microsoft Visual Basic показано, как использовать свойство FullBuild для получения полного номера сборки текущего экземпляра Visio. После получения полного номера сборки процедура ParseFullBuildProperty анализирует число и выводит результаты в окне Интерпретация.

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

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.