TabStrip

[Ramauf]

А как приклеить объект к табстрипу????? Т. е. объект оказывается снизу табстрипа, а как его наверх поставить?Я идиот! Убейте меня, кто-нибудь!???

[RayShade]

А никак Если только вручную обрабатывать события кликов по табам табстрипа и ZOrder вызывать у нужных контролов.



Вообще, я использую Microsoft Tabbed Dialog Control вместо

[Ramauf]

Как это??? Нельзя ли пример!!!

[Ramauf]

Ну напишите...

[Cyrax]

для TabStrip control нужно отлавливать событие Click (как уже заметил RayShade)

Код: Выделить всё

Private Sub TabStrip1_Click()
  Select Case TabStrip1.SelectedItem.Key
  Case "tab1"
    fra(0).ZOrder = 0
  Case "tab2"
    fra(1).ZOrder=0
  Case ...
    ...
  End Select
End Sub

но я бы сделал так

Код: Выделить всё

Private Sub TabStrip1_Click()
  Dim i As Long
  For i = 0 To fra.Count -1
    fra(i).Visible = False
  Next i
  fra(TabStrip1.SelectedItem.Index).Visible = True
End Sub

а еще у TabStip'а есть свойства .ClientWidth, .ClientHeight, .ClientLeft и .ClientTop отвечающие за выравнивание "дочерних" элементов относительно вкладок (именно поэтому для размещения контролов на вкладках TabStrip лучше использовать фреймы (в приведенных примерах используется массив фреймов с именем fra)

что бы не заморачиваться с кодом, можно использовать Microsoft Tabbed Dialog Control - у него каждая вкладка является контейнером для других контролов