|
Контрол TabStrip представляет из себя несколько
вложенных страниц, которые расположены в одной и
той же области окна или диалогового окна в вашем
приложении.
Синтаксис
TabStrip
Примечания
Контрол Tab состоит из коллкций отдельных
вкладок (Tabs). Во время выполнения и во
время проектирования программы вы можете менять
количество вкладок, используя страницу свойств.
Свойство Style устанавливает внешний вид
отдельных вкладок (к примеру, в виде кнопок).
Контрол TabStrip - не контейнер. Чтобы содержать
фактические страницы и другие объекты, вы должны
использовать контрол Frame или другие
контейнеры, размеры которых соответствуют
размерам каждой вкладки элемента Tab.
Используйте следующий пример для связывания
каждой вкладки элемента Tab с контейнером Frame:
Private mintCurFrame As Integer 'текущая
видимая вкладка
Private Sub Form_Load()
Tabstrip1_Click 'необходимо активизировать первый
контейнер
End Sub
Private Sub Tabstrip1_Click()
If TabStrip1.SelectedItem.Index = mintCurFrame Then Exit Sub
'если выбрана та же вкладка, осуществляется выход из подпрограммы
Frame1(TabStrip1.SelectedItem.Index).Visible = True 'показать текущий
контейнер
On Error Resume Next
Frame1(mintCurFrame).Visible = False 'спрятать предыдущий
контейнер
mintCurFrame = TabStrip1.SelectedItem.Index 'определить текущий
контейнер
End Sub
Основные свойства
- Получить номер вкладки
Dim n As Integer: n = TabStrip1.SelectedItem.Index
|