| ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
Возвращает имя процедуры, содержащей строку с указанным номером. Синтаксис объект.ProcOfLine(строка, тип_процедуры) As String Синтаксис метода ProcOfLine содержит следующие элементы:
В качестве аргументатип_процедуры используются следующие константы:
Дополнительные сведения Пустые строки или строки комментария, предшествующие описанию процедуры, а также, если процедура является последней в программном модуле, все пустые строки, следующие за процедурой, считаются находящимися внутри процедуры. Возвращает строку, с которой начинается указанная процедура. Синтаксис объект.ProcStartLine(имя_процедуры, тип_процедуры) As Long Синтаксис метода ProcStartLine содержит следующие элементы:
В качестве аргументатип_процедуры используются следующие константы:
Дополнительные сведения Процедура начинается со строки, следующей за инструкцией End Sub предшествующей процедуры. Если процедура является первой, она начинается сразу после общего раздела описаний. Удаляет компонент из семейства. Синтаксис объект.Remove(компонент) Синтаксис метода Remove содержит следующие элементы:
Дополнительные сведения Если метод Remove используется для семейства LinkedWindows, он удаляет окно из текущего семейства связанных окон. Удаленное окно становится перемещаемым окном, которое имеет свою собственную связанную рамку окна. Замещает одну строку программы другой. Синтаксис объект.ReplaceLine(строка, текст) Синтаксис метода ReplaceLine содержит следующие элементы:
Передает фокус указанному окну. Синтаксис объект.SetFocus Прототип объект представляет собой объектное выражение, значением которого является один из объектов, перечисленных в списке "Применение". Дополнительные сведения Метод SetFocus используется для окон, которые уже являются видимыми. Выделяет фрагмент в области окна программы. Синтаксис объект.SetSelection(строка1, столбец1, строка2, столбец2) Синтаксис метода SetSelection содержит следующие элементы:
Выводит указанную область окна программы на передний план. Синтаксис объект.Show Прототип объект представляет собой объектное выражение, значением которого является один из объектов, перечисленных в списке "Применение". Дополнительные сведения Метод Show передает фокус указанной области программы в данном окне. Пример использования метода Add В данном примере метод Add используется для добавления одного стандартного модуля в семейство VBComponents. Application.VBE.VBProjects(1).VBComponents.Add(vbext_ct_StdModule) Пример использования метода AddFromFile В данном примере метод AddFromFile используется для добавления содержимого некоторого файла в указанную область окна программы. Application.VBE.CodePanes(3).CodeModule.AddFromFile "c:\Code Files\book2.frm" Пример использования метода AddFromGUID В данном примере метод AddFromGUID используется для добавления ссылки на текущий проект. Для этого указывается ссылка с помощью значения кода GUID объекта Reference. Application.VBE.ActiveVBProject.References.AddFromGuid("", 5, 0) Пример использования метода AddFromString В данном примере метод AddFromString используется для добавления строки "Dim intJack As Integer" в указанную область окна программы. Application.VBE.CodePanes(3).CodeModule.AddFromString "Dim intJack As Integer" Пример использования метода Close В данном примере метод Close закрывает указанный компонент семейства Windows. Application.VBE.Windows(9).Close Пример использования метода CreateEventProc В данном примере метод CreateEventProc используется для создания процедуры Button_Click. Debug.Print Application.VBE.SelectVBComponents.CodeModule.CreateEventProc("Нажмите ", "кнопку ") Пример использования метода DeleteLines Следующий пример состоит из двух частей. Первый цикл For:Next с помощью метода InsertLines вставляет в область окна программы CodePanes(1) 26 последовательно удлиняющихся сегментов латинского алфавита, начиная с буквы "a". Последний вставленный сегмент представляет собой весь алфавит. Во второй части цикл For:Next использует метод DeleteLines для удаления строк с нечетными номерами. На первый взгляд кажется, что второй цикл должен просто стирать каждую вторую строку, однако следует принять во внимание, что после каждой операции удаления нумерация строк производится заново. Следовательно, на каждом шаге стирается каждая третья строка: первая строка пропускается, так как I увеличивается на единицу, а вторая -- поскольку больший номер строки каждый раз уменьшается на единицу. For I = 1 to 26 Application.VBE.SelectedVBComponent.CodeModule.InsertLines i, Mid$("abcdefghijklmnopqrstuvwxyz", 1, I) Next For I = 1 to 13 Application.VBE.SelectedVBComponent.CodeModule.DeleteLines I Next Пример использования метода Export В данном примере создается файл с именем test.bas и с помощью метода Export, в него копируется содержимое стандартного модуля VBComponents(1). Application.VBE.ActiveVBProject.VBComponents(1).Export("test.bas") Пример использования метода Find В данном примере с помощью метода Find устанавливается, что указанная последовательность строк в области окна программы (строки с 1261 по 1279) содержит строку "Tabs.Clear". Application.VBE.CodePanes(2).CodeModule.Find ("Tabs.Clear", 1261, 1, 1280, 1, False, False) Пример использования метода GetSelection В следующем примере возвращается местоположение начальных и конечных координат выделенного фрагмента в области окна программы CodePanes(1). В последней строке примера метод GetSelection используется для присвоения четырех значений четырем переменным. Dim m As Long Dim n As Long Dim x As Long Dim y As Long Application.VBE.CodePanes(1).GetSelection m, n, x, y Пример использования метода Import В данном примере метод Import семейства VBComponents используется, чтобы скопировать содержимое файла test.bas в стандартный модуль. Application.VBE.ActiveVBProject.VBComponents.Import("test.bas") Пример использования метода InsertLines В данном примере метод InsertLines используется, чтобы вставить строку "Option Explicit" в указанную область окна программы. Application.VBE.CodePanes(1).CodeModule.InsertLines 1, "Option Explicit" Пример использования метода Item В данном примере показаны два способа вывода на экран указанного компонента семейства CodePanes; в одном из них используется метод Item. Application.VBE.CodePanes.Item(2).Show Application.VBE.CodePanes(2).Show Пример использования метода Lines В данном примере метод Lines используется для возвращения указанного блока программы (строки с 1 по 4) в определенную область окна программы. Debug.Print Application.VBE.CodePanes(1).CodeModule.Lines( 1, 4) Пример использования метода ProcBodyLine В данном примере метод ProcBodyLine используется для возвращения номера первой строки процедуры SetupTabs в определенную область окна программы. Debug.Print Application.VBE.CodePanes(3).CodeModule.ProcBodyLine ("SetupTabs", vbext_pk_Proc) Пример использования метода ProcCountLines В данном примере метод ProcCountLines используется для возвращения указанного числа строк процедуры SetupTabs в определенную область окна программы. Debug.Print Application.VBE.CodePanes(3).CodeModule.ProcCountLines ("SetupTabs", vbext_pk_Proc) Пример использования метода ProcOfLine В данном примере метод ProcOfLine используется для возвращения имени процедуры, содержащей строку с указанным номером, в определенную область окна программы. Debug.Print Application.VBE.CodePanes(3).CodeModule.ProcOfLine (1270, vbext_pk_Proc) Пример использования метода ProcStartLine В данном примере метод ProcStartLine используется для возвращения строки, с которой начинается указанная процедура, в определенную область окна программы. Debug.Print Application.VBE.CodePanes(3).CodeModule.ProcStartLine ("SetupTabs", vbext_pk_Proc) Пример использования метода Remove В данном примере устанавливается, что определенный компонент семейства VBComponents является модулем, а затем этот модуль удаляется с помощью метода Remove. Debug.Print Application.VBE.ActiveVBProject.VBComponents(4).Name Application.VBE.ActiveVBProject.VBComponents.Remove Application.VBE.ActiveVBProject.VBComponents(4) Пример использования метода ReplaceLine Следующий пример состоит из двух частей. Первый цикл For:Next с помощью метода InsertLines вставляет в область окна программы CodePanes(1) 26 последовательно удлиняющихся сегментов латинского алфавита, начиная с буквы "a". Последний вставленный сегмент представляет собой весь алфавит. Второй цикл For:Next с помощью метода ReplaceLine замещает строку с четным номером последним символом текста, который содержался в этой строке ранее. Строки с нечетными номерами не изменяются. For I = 1 to 26 Application.VBE.CodePanes(1).CodeModule.InsertLines I, Mid$("abcdefghijklmnopqrstuvwxyz", 1, I) Next I For I = 1 to 13 Application.VBE.CodePanes(1).CodeModule.ReplaceLine 2*I, Mid$("abcdefghijklmnopqrstuvwxyz", 1, I) Next I Пример использования метода SetFocus В данном примере метод SetFocus используется для установки фокуса на определенный компонент семейства Windows. Другими словами, он вызывает те же последствия, что и выделение мышью заголовка данного окна. Application.VBE.Windows(9).SetFocus Пример использования метода SetSelection В данном примере метод SetSelection используется для выделения участка текста, первый символ которого совпадает с символом, который следует непосредственно за четвертым символом второй строки CodePanes(1), а последний совпадает с пятнадцатым символом третьей строки. Application.VBE.CodePanes(1).SetSelection 2,4,3,15 Пример использования метода Show В данном примере метод Show используется для вывода указанной области окна программы на передний план. Application.VBE.CodePanes(2).Show Данное событие происходит, когда установлено свойство OnAction для соответствующего элемента управления на панели команд. Синтаксис Sub объект_Click (ByVal ctrl As Object, ByRef handled As Boolean, ByRef canceldefault As Boolean) Синтаксис события Click (Нажатие кнопки) содержит следующие именованные аргументы:
Дополнительные сведения Событие Click с объектом CommandBarEvents выполняется особым образом. С помощью ключевого слова WithEvents описывается переменная, определяющая событие Click для элемента управления CommandBar. Этой переменной будет присвоено возвращаемое значение свойства CommandBarEvents объекта Events. Свойство CommandBarEvents использует элемент управления CommandBar в качестве аргумента. При выборе элемента управления CommandBar (для переменной, описанной с помощью ключевого слова WithEvents) выполняется программа. Данное событие происходит после добавления ссылки. Синтаксис Sub объект_ItemAdded(ByVal элемент As Reference) Обязательный аргумент элемент указывает добавленный объект. Дополнительные сведения Событие ItemAdded (Элемент добавлен) происходит, когда объект Reference добавляется в семейство References. Данное событие происходит после удаления ссылки из проекта. Синтаксис Sub объект_ItemRemoved(ByVal элемент As Reference) Обязательный аргумент элемент указывает объект Reference, который был удален. Пример события "Нажатие кнопки" (Click) В данном примере проиллюстрировано, как можно написать программу для процедуры события "Нажатие кнопки" (Click) с помощью инструкций WithEvents и Set. Следует отметить, что вместо пункта меню Сервис в имени события "Нажатие кнопки" (Click) используется ссылка на объект ce. 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 Возвращает выделенный компонент. Только для чтения. Дополнительные сведения Свойство SelectedVBComponent возвращает выделенный компонент в окно проекта. Если элемент, выделенный в окне проекта, не является компонентом, свойство SelectedVBComponent возвращает значение Nothing. Возвращает активный проект в окно проекта. Только для чтения. Дополнительные сведения Свойство ActiveVBProject возвращает проект, выделенный в окне проекта или проект, содержащий выделенный компонент. В последнем случае проект не обязан быть выделенным. Вне зависимости от того, имеется ли проект, выделенный явным образом, всегда существует активный проект. Возвращает активное окно в среде разработчика. Только для чтения. Дополнительные сведения Если в среде разработчика открыто несколько окон, значением свойства ActiveWindow является окно, имеющее фокус. Когда фокус имеет главное окно, свойство ActiveWindow возвращает значение Nothing. Возвращает значение типа String, содержащее заголовок активного окна. Только для чтения. Дополнительные сведения Заголовком активного окна называют текст, выводящийся в строке заголовка окна. Возвращает объект, представляющий программу, определенную для компонента. Только для чтения. Дополнительные сведения Свойство CodeModule возвращает значение Nothing, если компонент не имеет связанного с ним программного модуля. Примечание. Объект CodePane представляет видимое окно программы. Конкретный компонент может иметь несколько объектов CodePane. Объект CodeModule представляет программу, определенную для компонента. Каждому компоненту может соответствовать только один объект CodeModule. Возвращает объект CodePane. Только чтение. Дополнительные сведения Если область программы существует, она становится активной областью программы, а содержащее ее окно - активным окном. Если области программы для модуля не существует, свойство CodePane создает ее. Возвращает значение, указывающее, находится ли область программы в режиме просмотра процедуры или в режиме просмотра модуля. Только для чтения. Возвращаемые значения Свойство CodePaneView возвращает следующие значения:
Возвращает семейство, содержащее объект, с которым работает пользователь. Только для чтения. Дополнительные сведения Для большинства объектов в используемой модели объектов определено либо свойство Parent, либо свойство Collection, указывающее на родительский объект указанного объекта. Свойство Collection обеспечивает доступ к свойствам, методам и элементам управления семейства, к которому принадлежит объект. Возвращает объект CommandBarEvents. Только для чтения. Значения Аргумент, передаваемый в свойство CommandBarEvents, имеет вид:
Дополнительные сведения Свойство CommandBarEvents используют для возвращения объекта-источника события, который запускает событие при нажатии кнопки на панели инструментов. Аргумент, передаваемый в свойство CommandBarEvents, должен представлять элемент управления панели инструментов, для которого генерируется событие нажатия кнопки. Возвращает значение типа Long, содержащее число элементов в семействе. Только для чтения. Возвращает значение типа Long, содержащее число строк программы в программном модуле. Только для чтения. Свойство CountOfDeclarationLines Возвращает значение типа Long, содержащее число строк программы в разделе описаний программного модуля. Только для чтения. Возвращает значение типа Long, содержащее число строк, которые являются видимыми в области программы. Только для чтения. Возвращает активный или последний активный объект CodePane или указывает активный объект CodePane. Чтение/запись. Дополнительные сведения В свойстве ActiveCodePane можно указать любой допустимый объект CodePane, как показано в следующем примере: Set MyApp.VBE.ActiveCodePane = MyApp.VBE.CodePanes(1) Эта инструкция делает активной областью программы первую область программы в семействе областей программы. Область программы можно также сделать активной с помощью метода Set. Возвращает или задает строковое выражение, содержащее описание объекта. Для объекта VBProject это свойство доступно для чтения/записи; для объекта Reference свойство доступно только для чтения. Дополнительные сведения Для объекта VBProject свойство Description возвращает или задает стоку описания, связанную с активным проектом. Для объекта Reference свойство Description возвращает краткое описание ссылки. Возвращает объект, обеспечивающий доступ к средствам разработки компонента. Дополнительные сведения Если для объекта открыто окно конструктора, свойство Designer возвращает открытое окно конструктора; в противном случае создается новое окно конструктора. Окно конструктора является характеристикой определенных объектов VBComponent, при создании которых окно конструктора создается вместе с объектом. Компонент может иметь только одно окно конструктора, причем всегда одно и то же. Свойство Designer обеспечивает доступ к объекту, специфическому для компонента. В некоторых случаях, например, для стандартных модулей и модулей класса окно конструктора не создается, поскольку эти типы объектов VBComponent не поддерживают окно конструктора. Если объект VBComponent не имеет окна конструктора, свойство Designer возвращает значение Nothing. Возвращает объект Window, представляющий окно конструктора компонента. Дополнительные сведения Если компонент поддерживает окно конструктора, но не имеет открытого окна конструктора, то окно конструктора создается при обращении к свойству DesignerWindow, но при этом является невидимым. Чтобы сделать окно видимым, следует задать значение True для свойства Visible объекта Window. Возвращает семейство активных объектов CodePane. Только для чтения. Возвращает значение типа String, содержащее идентификатор класса объекта. Только для чтения. Возвращает значение типа Boolean, указывающее, имеет или нет объект VBComponent открытое окно конструктора. Только для чтения. Возвращаемые значения Свойство HasOpenDesigner возвращает следующие значения:
Возвращает или задает значение типа Single, содержащее высоту окна в единицах твип. Чтение/запись. Дополнительные сведения Изменение значения свойства height связанного окна или закрепленного окна не имеет последствий, пока окно остается связанным или закрепленным. Возвращает или задает значение типа String, содержащее контекстный идентификатор раздела справки Microsoft Windows. Чтение/запись. Возвращает или задает значение типа String, указывающее файл справки Microsoft Windows для проекта. Чтение/запись. Возвращает или задает значение компонента свойства, которое определяется индексированным списком или массивом. Дополнительные сведения Значение, возвращаемое или задаваемое свойством IndexedValue, представляет выражение, которое при оценке дает тип, принимаемый объектом. Для свойства, представляющего индексированный список или массив, необходимо использовать свойство IndexedValue вместо свойства Value. Индексированный список является числовым выражением, указывающим положение индекса. Свойство IndexedValue принимает до 4 индексов. Число индексов, принимаемых свойством IndexedValue, возвращается в значении свойства NumIndices. Свойство IndexedValue используется только в тех случаях, когда значение свойства NumIndices превышает нуль. Значения в индексированном списке задаются или возвращаются с помощью одного индекса. Возвращает значение типа Boolean, указывающее, представляет ли объект Reference допустимую ссылку в реестре. Только для чтения. Возвращаемые значения Свойство IsBroken возвращает следующие значения:
Возвращает значение типа Boolean, указывающее, является ли ссылка стандартной ссылкой, которую нельзя удалить. Только для чтения. Возвращаемые значения Свойство BuiltIn возвращает следующие значения:
Возвращает значение типа Boolean, указывающее, был ли объект изменен после его последнего сохранения. Чтение/запись. Возвращаемые значения Свойство Saved возвращает следующие значения:
Дополнительные сведения Метод SaveAs задает для свойства Saved значение True. Примечание. Ели задать для свойства Saved значение False в программе, это свойство будет возвращать значение False, а объект будет отмечен как измененный после его последнего сохранения. Назад | Содержание | Вперед
| ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
 | |||||||||
| |||||||||
|
CITForum © 1997–2025