Форум программистов «Весельчак У»
  *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

  • Рекомендуем проверить настройки временной зоны в вашем профиле (страница "Внешний вид форума", пункт "Часовой пояс:").
  • У нас больше нет рассылок. Если вам приходят письма от наших бывших рассылок mail.ru и subscribe.ru, то знайте, что это не мы рассылаем.
   Начало  
Наши сайты
Помощь Поиск Календарь Почта Войти Регистрация  
 
Страниц: [1]   Вниз
  Печать  
Автор Тема: Подскажите, как работать с закладками (TabStrip) в VB6?  (Прочитано 9625 раз)
0 Пользователей и 1 Гость смотрят эту тему.
Mefody
Сумасшедший программист
Участник

ru
Offline Offline
Пол: Мужской

« : 13-07-2006 11:36 » 

Как например указать, что на 1 закладке размещены такие элементы,
а на второй - другие? Во время разработки и отладки видна только 1 закладка.
При попытке поместить закладку на форму возникают всякие глюки:
- На закладку нельзя поместить надпись (она остается сзади)
- При перемещении закладки по форме элементы с ней не перемещаются
А уж в процессе выполнения чего только нет:
- всякие сообщения о отсутствии объекта,
- о неправильном применении метода или свойства,
- о несоответствии типов данных и т.д.
Записан
HandKot
Молодой специалист

ru
Offline Offline

« Ответ #1 : 14-07-2006 06:19 » 

Если я думаю про тот же контрол, то делается так

для каждой закладки создается свой Frame, на который и кладуться нужные контролы
Фреймы объединяются в массив
Фреймы складируюься один над другим
В процедуре обработки высвечивается нужный фрейм

Код:
Option Explicit
Private mintCurFrame As Integer' Current Frame visible

Private Sub Tabstrip1_Click()
   If Tabstrip1.SelectedItem.Index = mintCurFrame _
      Then Exit Sub ' No need to change frame.
   ' Otherwise, hide old frame, show new.
   Frame1(Tabstrip1.SelectedItem.Index).Visible = True
   Frame1(mintCurFrame).Visible = False
   ' Set mintCurFrame to new value.
   mintCurFrame = Tabstrip1.SelectedItem.Index
End Sub

Вся инфа есть в хелпе
« Последнее редактирование: 16-12-2007 18:08 от Алексей1153++ » Записан

I Have Nine Lives You Have One Only
THINK!
Mefody
Сумасшедший программист
Участник

ru
Offline Offline
Пол: Мужской

« Ответ #2 : 14-07-2006 07:24 » new

HandKot, спасибо, все заработало. На самом деле проблема была в том, что я не знал, что после SelectedItem надо еще писать Index.
А хелпа у меня нет, дистрибутив попался без MSDN. Кстати, если ты живешь в Москве, то может встретимся, продашь мне полный дистрибутив VB6.
Записан
Страниц: [1]   Вверх
  Печать  
 

Powered by SMF 1.1.21 | SMF © 2015, Simple Machines