Вычисление привязки контрола к Табу из SSTab

[SSecurity]

Привет,

Возникла задача есть контрол SSTab (MS Tabbed Dialog Control 6.0) в нем три вкладки,
на первой один текстбокс, на второй - второй и на третей-третий (заказчик хочет шрифт побольше и размеры большие, а мне нравится небольшой размер окна , вот и делаю автомасштабирование)

Если пройтись по контролам формы, то те вкладки который щас скрыты минусуют от левой позиции контрола 75000, т.е. то что не видно лежит слева
Так вот допустим мы перебирая массив контролов нашли text2 у него left = -74000 (реальный 1000) но как определить, что text2 лежит на второй вкладке а не на третей?

Вариант внести список имен контролов вкладки рассматриваю (его пока реализовал), но каждый новый контрол на вкладке - новая проверка в коде, неужели нет способа проще?

С Уважением,
Сергей

[iGrok]

Привет,

Возникла задача есть контрол SSTab (MS Tabbed Dialog Control 6.0) в нем три вкладки,
на первой один текстбокс, на второй - второй и на третей-третий (заказчик хочет шрифт побольше и размеры большие, а мне нравится небольшой размер окна , вот и делаю автомасштабирование)

Если пройтись по контролам формы, то те вкладки который щас скрыты минусуют от левой позиции контрола 75000, т.е. то что не видно лежит слева
Так вот допустим мы перебирая массив контролов нашли text2 у него left = -74000 (реальный 1000) но как определить, что text2 лежит на второй вкладке а не на третей?

Вариант внести список имен контролов вкладки рассматриваю (его пока реализовал), но каждый новый контрол на вкладке - новая проверка в коде, неужели нет способа проще?

С Уважением,
Сергей

На каждый таб кидать невидимый Frame. На Frame уже контролы. Тогда у тебя и позиции контролов будут "плюсовыми". Только фреймы будут улетать "в минус". Хотя я всю жизнь делал несколько по другому, пользуюясь ZOrder'ом у фреймов.. Может, в этом и есть какие-то изъяны, но так и проектировать удобнее.. )

[SSecurity]

Ну я сделал практически так, но немного по другому:)

Поменял SSTab на TabStrip а страницы перекинул на фреймы и в обработчике клика разместил ..

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

  Select Case TabStrip1.SelectedItem.Index
    Case 1:
      xFrame1.Visible = True
      xFrame2.Visible = False
      xFrame3.Visible = False
    Case 2:
      xFrame2.Visible = True
      xFrame1.Visible = False
      xFrame3.Visible = False
    Case 3:
      xFrame3.Visible = True
      xFrame2.Visible = False
      xFrame1.Visible = False
  End Select


в итоге получилось вот что (см.вложение)