16.05.2005, 14:57
общий
это ответ
Здравствуйте, scrolt!
Вот пример от Майкрософта. Лежит в стандартных шаблонах форм под названием "Options Dialog".
Приложение:
Private Sub tbsOptions_Click() Dim i As Integer ‘show and enable the selected tab‘s controls ‘and hide and disable all others For i = 0 To tbsOptions.Tabs.Count - 1 If i = tbsOptions.SelectedItem.Index - 1 Then picOptions(i).Left = 210 picOptions(i).Enabled = True Else picOptions(i).Left = -20000 picOptions(i).Enabled = False End If NextEnd Sub