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

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

Синтаксис

выражение. Полная сборка

выражение: переменная, представляющая объект 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 и обратная связь.