В продолжение предыдущей статьи, где мы рассматривали класс Multipage (набор страниц), тут мы рассмотрим компонент TabStrip, который позволяет добавить на поверхность формы набор вкладок.
Элемент управления VBA TabStrip содержит практически те же свойства, что и MultiPage. Главное отличие заключается в том, что для MultiPage каждая страница может содержать собственный набор элементов управления, а для класса TabStript при переходе по вкладкам отображает всегда одну и ту же информацию. Так, мы при использовании Набора страниц, могли для первого корешка добавить надпись, для второго – список, ну а для третьего – кнопку, для компонента Набор вкладок так не выйдет, если мы на его поверхность добавим, например, объект ListBox(список), то он будет отображаться всегда при переходе между вкладками.
Как только вы выберете в окне ToolBox компонент TabStrip, и перетащите его на поверхность формы, то у вас будут отображаться только две вкладки, например, Tab1 и Tab2. Для управления ими нужно нажать правую кнопку мыши, в итоге появится контекстное меню со следующими пунктами:
- NewPage – данный пункт меню дает возможность добавить новую вкладку к тем, что уже существуют. Именование вкладок идет в стиле Tab1, Tab2, … , TabN.
- DeletePage – позволяет удалить ту вкладку, по поверхности которой вы кликнули.
- Rename – собственно, данный пункт отвечает за переименование вкладки, обратите внимание, что в отличии от объекта MultiPage, для корешков класса TabStrip VBA нет свойства Caption в окне Свойств.
- Move – позволяет переместить выбранную вкладку, тут можно произвести перемещение флажка в заданном направлении.
Как и для объекта, Набор Страниц, для класса Набор Вкладок определены следующие свойства:
MultiRow – vba свойство, которое может содержать логические значения True или False. MultiRow является актуальным тогда, когда вкладок становится слишком много, и они все не умещаются на поверхность формы UserForm. При установленном значении в False, все корешки будут лежать на одной прямой, и будет добавлена специальная прокрутка для перехода к тем корешкам, которые не видны. При установленном значении в true – вкладки будут располагаться на нескольких строках, при условии, что все они не умещаются в одну строку на поверхности формы.
TabOrientation – определяет расположение вкладок, возможны четыре значения: fmTabOrientationTop – вверху, fmTabOrientationBottom – внизу, fmTabOrientationLeft – слева и fmTabOrientationRight – справа.
SelectedItem – свойство содержит информацию о выбранной вкладке.
Value – целое число, содержит номер выбранного корешка, нумерация начинается с нуля.
Style – позволяет задать стиль: fmTabStyleTabs – в виде закладок, fmTabStyleButton – в виде кнопок и fmTabStyleNone – корешки отсутствуют
Как и для большинства подобных элементов управления, для TabStrip основным событием является событие Change, оно возникает при переходе между корешками.
И так, настало время написать простой пример с использованием класса TabStrip, пример будет подобен тому, что мы рассматривали в статье про объект MultiPage.
В окно Редактор Проектов добавьте новую форму (меню Insert/UserForm) и новый модуль (меню Insert/Module). Форму я назвал TSForm, а модуль – TSModule. В редакторе кода для модуля сразу пропишите:
Sub TSModule() TSForm.Show End Sub |
Тут в процедуре TSModule мы указываем, что при запуске макроса нужно показать форму с именем TSForm.
Хорошо, теперь на поверхность формы нужно добавить следующие элементы управления (их мы выбираем в окне ToolBox):
TabStrip – просто перетащите данный компонент на поверхность формы, кликните правой кнопкой по одному из флажков и добавьте еще один. В контекстном меню задайте следующие имена: Список 1, Список 2 и Список 3.
ListBox – на поверхность TabStrip добавьте элемент управления список, помните, что он будет отображаться на всех вкладках и един для всего объекта Набор Вкладок.
Label – текстовая метка, разместите ее внизу на поверхности формы, свойство Caption пусть остается пустым.
Теперь в редакторе кода для формы (UserForm) пропишите следующий код:
Private Sub TabStrip1_Change() Label1.Caption = TabStrip1.SelectedItem.Caption If TabStrip1.Value = 0 Then ListBox1.Clear For i = 0 To 50 ListBox1.AddItem "число_" & i Next End If If TabStrip1.Value = 1 Then ListBox1.Clear For i = 50 To 100 ListBox1.AddItem "число_" & i Next End If If TabStrip1.Value = 2 Then ListBox1.Clear For i = 100 To 150 ListBox1.AddItem "число_" & i Next End If End Sub Private Sub UserForm_Initialize() Label1.FontSize = 16 Label1.ForeColor = &H1055F2 Label1.TextAlign = fmTextAlignCenter Label1.Caption = TabStrip1.SelectedItem.Caption If TabStrip1.Value = 0 Then ListBox1.Clear For i = 0 To 50 ListBox1.AddItem "число_" & i Next End If If TabStrip1.Value = 1 Then ListBox1.Clear For i = 50 To 100 ListBox1.AddItem "число_" & i Next End If If TabStrip1.Value = 2 Then ListBox1.Clear For i = 100 To 150 ListBox1.AddItem "число_" & i Next End If End Sub |
В общих чертах, при переходе между вкладками происходит проверка свойства Value, в зависимости от значения, список будет содержать те или иные данные. При инициализации самой формы мы будет присваивать свойству Caption объекта label имя выбранного в данный момент флажка объекта TabStrip VBA, а также будет заполнять список данными.