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

Поиск:

Закрытая темаСоздание новой темы Создание опроса
> Как заставить работать combobox? Настройка combobox 
V
    Опции темы
Jr13san
  Дата 6.8.2008, 19:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: нет
Привет всем, кто на форуме...
У меня возникла проблемка с Combobox'ом...
На форме имеется Combo1 и в его свойстве list = 1, 2, 3.
Всего 3 строчки...
Так же имеется кнопка Generated.
Выбираем 1 вкладку и нажимаем на кнопку Generated. Выводим сообщение "Первый"
На вторую - "Второй"
На третью - "Третий"
Вот код, он не работает:

Код

Private Sub Generated_Click()
If Combo1.List(0) = Checked Then
MsgBox "Первый"
End If
If Combo1.List(1) = Checked Then
MsgBox "Второй"
End If
If Combo1.List(2) = Checked Then
MsgBox "Третий"
End If
End sub

Кто знает как правильно поставить условие, чтобы если выбрать определённую вкладку, тогда произошло событие msgbox?...
И ещё нужно, чтобы та вкладка, что мы выбрали, осталась выбранной...
Кто знает - пишите...
PM MAIL WWW ICQ   Вверх
Akina
Дата 6.8.2008, 19:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Checked - это что?



--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
Naghual
Дата 6.8.2008, 19:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 26
Всего: 49
Jr13san, начни ка ты с изучения Азов.


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


Опытный
**


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

Репутация: 12
Всего: 15
Вот так надо smile

Код

Private Sub Generated_Click()
If Combo1.ListIndex = 0 Then
MsgBox "Первый"
End If
If Combo1.ListIndex = 1 Then
MsgBox "Второй"
End If
If Combo1.ListIndex = 2 Then
MsgBox "Третий"
End If
End Sub
PM MAIL WWW   Вверх
Jr13san
Дата 7.8.2008, 12:37 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: нет
Цитата(Akina @ 6.8.2008,  19:31)
Checked - это что?

Это означает, что первый список из Combox'a выбран.

Добавлено через 2 минуты и 53 секунды
I_Am_Rock, я попробую по твоему..
PM MAIL WWW ICQ   Вверх
Naghual
Дата 7.8.2008, 12:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 26
Всего: 49
Уважаемый Jr13san.

Цитата(Jr13san @  7.8.2008,  12:37 Найти цитируемый пост)
Это означает, что первый список из Combox'a выбран.

Это означает, что Вы совершенно не знакомы с объектной моделью языка, т.е. не знаете его азов.


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


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Цитата(Jr13san @  7.8.2008,  13:37 Найти цитируемый пост)
Это означает, что первый список из Combox'a выбран.

Видите ли, уважаемый, программа - это не перевод технического задания на английский язык.
Вам уже неоднократно говорили о незнании самых азов. Я даже скажу - до их изучения Вам следует добровольно отказаться от написания программ. как ни странно, это сэкономит Вам кучу времени.


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
Jr13san
Дата 13.8.2008, 14:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: нет
I_Am_Rock - респект от меня.
Твои код работает.
Я был почти в шаге от истины..
Да, но до программиста мне пахати и пахать...
Всем Спасибо!
Тема закрыта.
PM MAIL WWW ICQ   Вверх
Akina
Дата 13.8.2008, 22:29 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Цитата(Jr13san @  13.8.2008,  15:14 Найти цитируемый пост)
Тема закрыта. 

ок 


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
  
 Закрытая темаСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

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

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

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

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

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




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


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

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