Метод Show
Выводит указанную область окна программы на передний план.
Синтаксис
объект.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
