Свойство WindowState
Возвращает или задает числовое значение, определяющее вид окна. Чтение/запись.
Значения
Свойство WindowState возвращает или задает следующие значения:
Константа
Значение
Описание
vbext_ws_Normal
0
(По умолчанию). Обычное окно.
vbext_ws_Min
1
Окно свернуто в значок.
vbext_ws_Max
2
Окно развернуто до максимального размера.
Пример использования свойства ActiveCodePane
В данном примере свойства ActiveCodePane и TopLine используются для определения номера первой строки активной области окна программы.
Debug.Print Application.VBE.ActiveCodePane.TopLine
Пример использования свойства ActiveVBProject
В следующем примере свойство ActiveVBProject используется для определения имени активного проекта.
Debug.Print Application.VBE.ActiveVBProject.Name
Пример использования свойства ActiveWindow
В следующем примере свойство ActiveWindow используется для определения заголовка активного окна.
Debug.Print Application.VBE.ActiveWindow.Caption
Пример использования свойства BuiltIn
В следующем примере свойство BuiltIn используется для возвращения переменной типа Boolean, указывающей, является ли некоторая ссылка в активном проекте встроенной.
Debug.Print Application.VBE.ActiveVBProject.References(1).BuiltIn
Пример использования свойства Caption
В следующем примере свойство Caption используется для вывода на экран заголовка активного окна.
Debug.Print Application.VBE.ActiveWindow.Caption
Пример использования свойства CodeModule
В следующем примере свойства CodeModule и CountOfLines используются для определения числа строк в указанном программном модуле.
Debug.Print Application.VBE.ActiveVBProject.VBComponents(6).CodeModule.CountOfLines
Пример использования свойства CodePane
В данном примере свойства CodePane и TopLine используются для вывода на экран номера первой строки в программном модуле выделенного объекта VBComponent.
Debug.Print Application.VBE.SelectedVBComponent.CodeModule.CodePane.TopLine
Пример использования свойства CodePanes
В данном примере свойства CodePanes и TopLine используются для вывода на экран номера первой строки указанной области окна программы
Debug.Print Application.VBE.CodePanes(3).TopLine
Пример использования свойства CodePaneView
В следующем примере свойство CodePaneView используется для возвращения значения, определяющего, выводится ли указанная область окна программы при просмотре процедуры или полного модуля.
Debug.Print Application.VBE.CodePanes(3).CodePaneView
Пример использования свойства Collection
В следующем примере свойства Collection и Count используются для определения номеров объектов, содержащихся в активном проекте и рассматриваемых как семейство объектов.
Debug.Print Application.VBE.ActiveVBProject.Collection.Count
Пример использования свойства CommandBarEvents
В данном примере приводится программа, использующая свойство CommandBarEvents. Это свойство применяется в программах для обработки нажатия кнопки мыши в панели команд.
Private WithEvents ce As CommandBarEvents
Sub Test()
Dim c As CommandBarControl
Set c = Application.VBE.CommandBars("Сервис").Controls(1)
Set ce = Application.VBE.Events.CommandBarEvents(c)
End Sub
Private Sub ce_Click(ByVal CommandBarControl As Object, Handled As Boolean, CancelDefault As Boolean)
' Место для программы обработки событий.
End Sub
Пример использования свойства Count
В следующем примере свойство Count используется для определения числа объектов VBComponent в указанном проекте.
Debug.Print Application.VBE.VBProjects(1).VBComponents.Count
Пример использования свойства CountOfDeclarationLines
В следующем примере свойство CountOfDeclarationLines используется для определения числа строк описания в указанной области окна программы.
Debug.Print Application.VBE.CodePanes(2).CodeModule.CountOfDeclarationLines
Пример использования свойства CountOfLines
В следующем примере свойство CountOfLines используется для определения полного числа строк в указанной области окна программы.
Application.VBE.CodePanes(2).CodeModule.CountOfLines
Пример использования свойства CountOfVisibleLines
В следующем примере свойство CountOfVisibleLines используется для определения числа видимых одновременно строк в указанной области окна программы при заданной высоте этой области.
Debug.Print Application.VBE.Codepanes(3).CountOfVisibleLines
Пример использования свойства Description
В первом из приведенных примеров свойство Description используется, чтобы задать описание для указанного проект. Затем описание выводится на печать для проверки выполнения предыдущей операции.
Во втором примере свойство Description используется для возвращения подробных имен указанных объектов Reference некоторого проекта.
Application.VBE.VBProjects(1).Description = "Горячие пирожки"
Debug.Print Application.VBE.VBProjects(1).Description
Debug.Print Application.VBE.VBProjects(1).References(1).Description
Debug.Print Application.VBE.VBProjects(1).References(2).Description
Пример использования свойства Designer
В следующем примере свойства Designer и Count используются для определения числа элементов управления в форме. При этом окно, содержащее данную форму, должно быть выделено. Объектом свойства Designer (конструктор) является сама форма.
Debug.Print Application.VBE.SelectVBComponent.Designer.Controls.Count
Пример использования свойства DesignerWindow
В следующем примере свойства DesignerWindow и Visibile использованы, чтобы определить, является ли некоторый конструктор видимым. При этом объект VBComponent должен представлять собой форму.
Debug.Print Application.VBE.VBProjects(1).VBComponents(1).DesignerWindow.Visible
Пример использования свойства FullPath
В следующем примере свойство FullPath используется для возвращения полного пути к библиотеке объектов для указанной ссылки.
Debug.Print Application.VBE.ActiveVBProject.References(1).FullPath
Пример использования свойства GUID
В следующем примере свойство GUID используется для возвращения кода GUID для указанного объекта Reference конкретного проекта.
Debug.Print Application.VBE.VBProjects(1).References(1).GUID
Пример использования свойства HasOpenDesigner
В следующем примере свойство HasOpenDesigner использовано, чтобы определить, имеет ли указанный компонент некоторого проекта (в данном случае форма) открытый конструктор.
Debug.Print Application.VBE.VBProjects(1).VBComponents(1).HasOpenDesigner
Пример использования свойств height и width
В следующем примере свойства height и width используются для определения высоты и ширины ( в твипах) некоторого окна. Когда указанное окно связано с другим окном или закреплено в главном окне, параметры этих свойств изменяются, поскольку в этих случаях они относятся к объекту Window, в котором исходное окно связано или закреплено.
Debug.Print Application.VBE.Windows(9).height
Debug.Print Application.VBE.Windows(9).width
Пример использования свойства HelpContextID
В следующем примере свойство HelpContextID используется для возвращения идентификатора контекстной справки для файла справочной системы, соответствующего проекту.
Debug.Print Application.VBE.VBProjects(1).HelpContextID
Пример использования свойства HelpFile
В следующем примере свойство HelpFile используется для введения файла справочной системы в проект. Затем полный путь данного файла выводится на печать для проверки выполнения описанной операции.
Application.VBE.VBProjects(1).HelpFile = "C:\HelpStuff\veenob3.hlp"
Debug.Print Application.VBE.VBProjects(1).HelpFile
Пример использования свойства IsBroken
В следующем примере свойство IsBroken используется для возвращения значения, которое определяет, указанный объект Reference в некотором проекте неразрешенной ссылкой.
Debug.Print Application.VBE.vbprojects(1).References(1).IsBroken
Пример использования свойств Left и Top
В следующем примере свойства Left и Top используются для определения координат верхнего левого угла некоторого окна (в твипах). Когда указанное окно связано с другим окном или закреплено в главном окне, параметры данных свойств изменяются, поскольку в этих случаях они относятся к объекту Window, в котором исходное окно связано или закреплено.
Debug.Print Application.VBE.Windows(9).Left
Debug.Print Application.VBE.Windows(9).Top
Пример использования свойства MainWindow
В следующем примере свойство MainWindow используется для определения объекта Window, представляющего главное окно. Затем заголовок главного окна выводится на печать.
Debug.Print Application.VBE.MainWindow.Caption
Пример использования свойства Major
В следующем примере свойство Major используется для возвращения номера максимальной версии указанного объекта Reference в некотором проекте.
Debug.Print Application.VBE.VBProjects(1).References(1).Major
Пример использования свойства Minor
В следующем примере свойство Minor используется для возвращения номера минимальной версии указанного объекта Reference в некотором проекте.
Debug.Print Application.VBE.VBProjects(1).References(1).Minor
Пример использования свойства Mode
В следующем примере свойство Mode используется для определения режима активного проекта. При этом возвращается заранее определенная константа, соответствующая режиму проекта.
Debug.Print Application.VBE.ActiveVBProject.Mode
Пример использования свойства Name
В следующем примере свойство Name используется для определения имени указанного компонента семейства VBComponents в некотором проекте.
Debug.Print Application.VBE.VBProjects(1).VBComponents(1).Name
Пример использования свойства NumIndices
В следующем примере свойство NumIndices используется для возвращения числа индексов, относящихся к указанному свойству определенного объекта VBComponent.
Debug.Print Application.VBE.VBProjects(1).VBComponents(1).Properties(40).NumIndices
Пример использования свойства Object
В следующем примере имя значка вводится в список значков указанного объекта, представляющего собой форму.
Set Application.VBE.ActiveVBProject.VBComponents(1).Properties("Значок").Object = LoadPicture("Baseball.ico")
Пример использования свойства Parent
В следующем примере свойство Parent используется для возвращения имени объекта, который в иерархии объектов является родительским для указанного объекта.
Debug.Print Application.VBE.ActiveVBProject.VBComponents.Parent.Name
Пример использования свойства Protection
В следующем примере свойство Protection используется для возвращения значения, которое указывает, защищен ли проект. Возвращаемое значение представляет собой заранее определенную константу, соответствующую статусу проекта.
Debug.Print Application.VBE.ActiveVBProject.Protection
Пример использования свойства ReferencesEvents
В данном примере приводится программа, использующая свойство ReferencesEvents. Это свойство применяется в программе обработки событий для добавления или удаления ссылок.
Private WithEvents X As ReferencesEvents
Sub Test()
Set X = Application.VBE.Events.ReferencesEvents
End Sub
Private Sub X_ItemAdded(ByVal Reference As VBIDE.Reference)
' Место для программы добавления элемента.
End Sub
Private Sub X_ItemRemoved(ByVal Reference As VBIDE.Reference)
' Место для программы удаления элемента.
End Sub
Пример использования свойства Saved
В следующем примере свойство Saved используется для возвращения переменной типа Boolean, указывающей, был ли указанный проект сохранен в текущем состоянии.
Debug.Print Application.VBE.VBProjects(1).Saved
Пример использования свойства SelectedVBComponent
В следующем примере свойство SelectedVBComponent используется для определения выделенного компонента.
Debug.Print Application.VBE.SelectedVBComponent.Name
Пример использования свойства TopLine
В данном примере свойство TopLine используется для возвращения номера первой строки указанной области окна программы.
Debug.Print Application.VBE.CodePanes(3).TopLine
Пример использования свойства Type
В следующем примере свойство Type используется для возвращения значения, соответствующего типу указанного компонента семейства VBComponents в некотором проекте. Возвращаемое значение представляет собой константу, определенную заранее для одного из объектных типов компонентов.
Debug.Print Application.VBE.VBProjects(1).VBComponents(1).Type
Пример использования свойства Value
В следующем примере свойство Value используется для возвращения значения указанного свойства одного из компонентов семейства VBComponents.
Debug.Print Application.VBE. ActiveVBProject.VBComponents(1).Properties("AcceptLabelsInFormulas").Value
Пример использования свойства VBE
В следующем примере свойства VBE и Name используются для определения имени активного проекта.
Debug.Print Application.VBE.ActiveVBProject.Name
Пример использования свойства Version
В следующем примере свойство Version используется для определения номера версии главного приложения.
Debug.Print Application.VBE.Version
Пример использования свойства Visible
В следующем примере свойство Visible используется для возвращения переменной типа Boolean, которая показывает, является ли указанное окно видимым.
Debug.Print Application.VBE.Windows(9).Visible
Пример использования свойства Window
В следующем примере свойства Window и Caption используются для возвращения заголовка указанной области окна программы.
Debug.Print Application.VBE.CodePanes(1).Window.Caption
Пример использования свойства WindowState
В следующем примере свойство WindowState используется для определения внешнего вида указанного окна. Возвращаемое значение представляет собой заранее определенную константу, соответствующую внешнему виду окна.
Debug.Print Application.VBE.Windows(9).WindowState
