powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите, пожалуйста с SSTab новичку в VB
5 сообщений из 5, страница 1 из 1
Помогите, пожалуйста с SSTab новичку в VB
    #34026192
Sergey057
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Приходится вносить изменения в чужой код.
Что сделано до меня - на форму повешен компонент SSTab с несколькими закладками.
На одну из закладок добавил поле, и беда в том, что это поле видно на всех закладках как в run-time, так и в design-time.
Что сделать, чтобы оно отображалось только на нужной закладке?
...
Рейтинг: 0 / 0
Помогите, пожалуйста с SSTab новичку в VB
    #34026228
Charles Weyland
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Можно действовать в лоб.

Каждая закладка имеет свой номер. Так вот ты можешь определить, какая закладка в данный момент активна.
Создаешь столько контейнеров (это такие элементы, как например Picture или frame), сколько у тебя страниц.
Предположим, 3 страницы => 3 контейнера.

Далее - в событии Zakladki_Click (или в подобном, которое отслеживает перелистывание закладок) - ты помещаешь
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
     select case Номер_Закладки
     case  1  ' Если закладка первая
          picture1.visible=true
          picture2.visible=false
          picture3.visible=false
     case  2  ' Если закладка вторая
          picture1.visible=false
          picture2.visible=true
          picture3.visible=false
     case  3  ' Если закладка третья
          picture1.visible=false
          picture2.visible=false
          picture3.visible=true

Можешь помещать нужные тебе элементы в эти конейнеры (во внутрь этих элементов) и при перелистывании страниц у тебя будет отображаться либо страница 1, либо 2, либо 3.
Если вкладок много, то лучше, конечно, сделать массив элеменов
Picture1(index)
вот.....
подробнее?
...
Рейтинг: 0 / 0
Помогите, пожалуйста с SSTab новичку в VB
    #34026233
Charles Weyland
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
в коде забыл...
Код: plaintext
1.
    end select
))))
...
Рейтинг: 0 / 0
Помогите, пожалуйста с SSTab новичку в VB
    #34026286
Charles Weyland
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Хотя по-хорошему - нужно оптимизировать вышеприведённый код.
Например, у тебя N конейнеров типа Picture или Frame. Пусть называется он Picture1.
И index - номер вкладки.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
    For i= 0  to N- 1  'потому что массив нумеруется обычно с нуля.
                       'тогда и верхняя граница подвинется
         if i = index then 'Если наша страница, которую выбрал юзер, то
              picture1(i).visible=true
         else 'А если эта страница не активна, то её скроем.
              picture1(i).visible=false
         endif
    Next

Только массив всех элементов picture1 желательно выравнять так, что бы их левый верхний край был в одной точке, и габаритные размеры тоже совпадали (сам понимаешь, красивее так... )
...
Рейтинг: 0 / 0
Помогите, пожалуйста с SSTab новичку в VB
    #34026297
Sergey057
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Спасибо большое за подсказку, но очень много контролов на табы навешено. Нашел-таки в хелпе SSTab следующее:
To add controls to individual tab pages at design time, first select the tab by clicking on it, then draw the controls on the tab page.

Note You should not add controls to individual tab pages using the double-click method. Double-clicking a control from the toolbox onto a tab page places that control on every tab in the SSTab control.
Убрал старый контрол, нарисовал новый, как рекомендет MSDN и проблема исчезла.
...
Рейтинг: 0 / 0
5 сообщений из 5, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите, пожалуйста с SSTab новичку в VB
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]