Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Вкладки 
:(
    Опции темы
REVOLT
Дата 29.4.2005, 19:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 180
Регистрация: 5.4.2004
Где: г. Бузулук

Репутация: нет
Всего: нет



Как в TabStrip1 перейти на нужную для редактирования вкладку как в SSTab1...
Дело в том что есть написанная программа и она из 4 вкладок, а надо отредоктировать 4 т.е. изминить размер поля... как теда попасть
PM MAIL WWW ICQ   Вверх
Naghual
Дата 30.4.2005, 17:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 26
Всего: 49



Microsoft Tabbed Dialog Control:
Этот компонент автоматически создает контейнеры для создаваемых закладок, и сам отслеживает переход пользователя по ним.

А вот если говорить про компоненту TabStrip из набора Microsoft Windows Common Controls (а именно о ней и спрашивалось), то с этим компонентом прямо противоположная картина:
Он не создает контейнеры для закладок! Это просто набор закладок и все. Программист сам должен заботится об обработке переходов по закладкам. Делается это путем создания вспомогательных контейнеров (например, Frame или Picture компоненты) и отображения/скрытия их по событию нажатия на закладку.


Ответ на вопрос:
Найди на форме контейнер, содержащий те элементы управления которые необходимо подправить. Он может находится за TabStrip или за границами формы. Реализаций много...


--------------------
Я желаю всем Счастья!
PM ICQ Skype   Вверх
Gannibal
Дата 3.5.2005, 15:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 742
Регистрация: 15.4.2003
Где: 010101

Репутация: 18
Всего: 17





Контрол TabStrip представляет из себя несколько вложенных страниц, которые расположены в одной и той же области окна или диалогового окна в вашем приложении.

TabStrip
Контрол Tab состоит из коллкций отдельных вкладок (Tabs). Во время выполнения и во время проектирования программы вы можете менять количество вкладок, используя страницу свойств. Свойство Style устанавливает внешний вид отдельных вкладок (к примеру, в виде кнопок).

Контрол TabStrip - не контейнер. Чтобы содержать фактические страницы и другие объекты, вы должны использовать контрол Frame или другие контейнеры, размеры которых соответствуют размерам каждой вкладки элемента Tab. Используйте следующий пример для связывания каждой вкладки элемента Tab с контейнером Frame:

Код

Private mintCurFrame As Integer 'текущая видимая вкладка
Private Sub Form_Load()
Tabstrip1_Click 'необходимо активизировать первый контейнер
End Sub
Private Sub Tabstrip1_Click()
If TabStrip1.SelectedItem.Index = mintCurFrame Then Exit Sub
'если выбрана та же вкладка, осуществляется выход из подпрограммы
Frame1(TabStrip1.SelectedItem.Index).Visible = True 'показать текущий контейнер
On Error Resume Next
Frame1(mintCurFrame).Visible = False 'спрятать предыдущий контейнер
mintCurFrame = TabStrip1.SelectedItem.Index 'определить текущий контейнер
End Sub


Основные свойства

* Получить номер вкладки
Код

      Dim n As Integer: n = TabStrip1.SelectedItem.Index




--------------------
Я родился в этом безумном мире - и Я сделаю всё чтобы в нём выжить!
PM MAIL ICQ   Вверх
stasic0640
  Дата 29.1.2006, 05:38 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Я



Профиль
Группа: Участник
Сообщений: 32
Регистрация: 15.1.2006
Где: UA

Репутация: нет
Всего: нет



Бла, бла, бла.... smile Черт, расстроился я в вкладках, думал это как отдельные Формы smile

Мож кто подскажет, мне нужно вывести данные, но данные выводятся по разделам(всего 8 разделов, в первом данные вводятся..)...

Как вообще манипулировать вкладками? smile


Присоединённый файл ( Кол-во скачиваний: 8 )
Присоединённый файл  scrin_1.JPG 91,02 Kb
PM MAIL   Вверх
СВА
Дата 30.1.2006, 06:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 47
Регистрация: 9.1.2006

Репутация: нет
Всего: нет



попробуй так, создай массив Frame в столько объектов сколько у тебя вкладок. Теперь на каждом Frame работаешь, как ты выражаешься, как на "отдельной Форме" у всех у них убираешь подписи, если нужно рамки.

процедура обрабоки будет примерно такова

Код

Private Sub Tabstrip1_Click()
Dim n As Integer
n = TabStrip1.SelectedItem.Index
k = ? 'количеству вкладок 
for i = 0 to k - 1
' или если нумерация начинается с 1 for i =1 to k
if i = n then frame(i).visible = true else frame(i).visible = false
next
end sub


код не проверял, но думаю что разберешься
PM MAIL   Вверх
stasic0640
Дата 30.1.2006, 07:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Я



Профиль
Группа: Участник
Сообщений: 32
Регистрация: 15.1.2006
Где: UA

Репутация: нет
Всего: нет



Такс, сенкс.. smile Вот массивы обычных эу я УЖЕ научился создавать, а вот как в этом ТАБЕ - ненаю пока smile

smile И мож кинуть, основные свойства этого элемента? smile
PM MAIL   Вверх
Naghual
Дата 30.1.2006, 10:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 26
Всего: 49



А ты свойства смотри в Object Browser (это который по F2 вызывается)


--------------------
Я желаю всем Счастья!
PM ICQ Skype   Вверх
Naghual
  Дата 30.1.2006, 14:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 26
Всего: 49



Прилагаю пример работы с TabStrip.


Присоединённый файл ( Кол-во скачиваний: 13 )
Присоединённый файл  TabStrip_Example.zip 2,04 Kb


--------------------
Я желаю всем Счастья!
PM ICQ Skype   Вверх
СВА
Дата 31.1.2006, 06:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 47
Регистрация: 9.1.2006

Репутация: нет
Всего: нет



Все очень хорошо но представь что количесвто вкладок будет равно 20 шт представь какой монстр-код будет
PM MAIL   Вверх
stasic0640
  Дата 31.1.2006, 07:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Я



Профиль
Группа: Участник
Сообщений: 32
Регистрация: 15.1.2006
Где: UA

Репутация: нет
Всего: нет



Цитата(СВА @ 31.1.2006, 06:14)
Все очень хорошо но представь что количесвто вкладок будет равно 20 шт представь какой монстр-код будет

smile Ну не 20, а вот хотя бы 8-10 точно есть smile
Еще небольшой вопрос(ну простите ламака smile ). Не мог бы ты немного расписать еще и коментарии? Не всё мне пнятно, если не сложно?
Код

Private Sub TabStrip1_Click()
    With TabStrip1
        Select Case .SelectedItem.Key
            Case "Tab_1" [B]'При выборе первой вкладки[/B]
                fraContainer(0).Move .ClientLeft, .ClientTop, .ClientWidth, .ClientHeight [B]'?[/B]
                fraContainer(0).Visible = True [B]'Выделяется первая форма из всех масивов[/B]
                fraContainer(1).Visible = False [B]'Отбратно [/B]
                fraContainer(2).Visible = False [B]'Отбратно [/B]
                fraContainer(0).ZOrder 0 '?
            Case "Tab_2"
                fraContainer(1).Move .ClientLeft, .ClientTop, .ClientWidth, .ClientHeight
                fraContainer(0).Visible = False
                fraContainer(1).Visible = True
                fraContainer(2).Visible = False
                fraContainer(1).ZOrder 0
            Case "Tab_3"
                fraContainer(2).Move .ClientLeft, .ClientTop, .ClientWidth, .ClientHeight
                fraContainer(0).Visible = False
                fraContainer(1).Visible = False
                fraContainer(2).Visible = True
                fraContainer(2).ZOrder 0
        End Select
    End With


PM MAIL   Вверх
Naghual
Дата 31.1.2006, 16:50 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1893
Регистрация: 15.5.2004
Где: Украина, Днепр

Репутация: 26
Всего: 49



По просьбам трудящихся и с учетом сказанного СВА: smile
Код

Private Sub TabStrip1_Click()
    Dim i As Integer
    
    ' Цикл проходящий по всем Фрейм-контейнерам.
    ' Скрывает все фреймы
    For i = 0 To TabStrip1.Tabs.Count - 1
        fraContainer(i).Visible = False
    Next i
    
    ' Показываем выбранный Tab
    fraContainer(TabStrip1.SelectedItem.Index - 1).Visible = True
    ' Перемещаем Tab согласно Контрола TabStrip1
    ' Для ускорения, этот шаг советую исполнять в цикле по событию Form_Resize
    fraContainer(TabStrip1.SelectedItem.Index - 1).Move _
            TabStrip1.ClientLeft, TabStrip1.ClientTop, _
            TabStrip1.ClientWidth, TabStrip1.ClientHeight
    ' Теперь сделаем этот фрейм лежащим поверх всего остального.
    ' Ну чтоб наверняка
    fraContainer(TabStrip1.SelectedItem.Index - 1).ZOrder 0
End Sub



--------------------
Я желаю всем Счастья!
PM ICQ Skype   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »


 




[ Время генерации скрипта: 0.0512 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.