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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Select Case, использование переменных в Select Case 
:(
    Опции темы
kminas
Дата 23.2.2006, 14:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: нет
Немного разобрался с Select Case, но с использованием переменных в нем ничего не понимаю. Что делают переменные и что надо делать в моем случае?
Вот пример процедуры, в которой при выборе любого из двух значений марок вентиляторов в Combo2, в Combo3 должен появиться список их мощности, далее аналогично с другими марками. У меня процедура не работает.
Код

Private Sub Combo2_Click()
Dim fan As String
Select Case fan
Case "ВР100-45-5-02", "ВР100-45-5К"
Combo3.Clear
Combo3.AddItem "5,5"
Combo3.AddItem "7,5"
Combo3.AddItem "11"
Combo3.AddItem "15"
Combo3.ListIndex = 0
End Select
End Sub
PM MAIL   Вверх
Naghual
Дата 23.2.2006, 14:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

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

Dim fan As String
[b]
fan = Combo2.Text[/b]

Select Case fan



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


Бывалый
*


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

Репутация: нет
Всего: нет
Спасибо!
А можно ли сделать так?
В Сombo3 и Сombo4 у меня по 2 значения, если в Сombo3 я выбираю "1", то в Combo4 появляется "5-9", а, если "2", то "5-17,5",
а можно ли сделать, чтобы было и наоборот, чтобы по выбору значения Combo4 появлялось значение Сombo3?
PM MAIL   Вверх
Naghual
Дата 23.2.2006, 17:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

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


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


Бывалый
*


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

Репутация: нет
Всего: нет
А более подробно можно?
PM MAIL   Вверх
profispb
Дата 24.2.2006, 00:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: 1
Значит так твой код такой
Код

Private Sub Combo2_Click()    
Dim fan As String    
Select Case fan    
Case "ВР100-45-5-02", "ВР100-45-5К"    
Combo3.Clear    
Combo3.AddItem "5,5"    
Combo3.AddItem "7,5"    
Combo3.AddItem "11"    
Combo3.AddItem "15"    
Combo3.ListIndex = 0    
End Select    
End Sub


а правильный будет такой
Код

Private Sub Combo2_Click()    
Dim fan As String    
Select Case fan    
case "ВР100-45-5-02": 
                                 Combo3.Clear    
                                 Combo3.AddItem "5,5"    
                                 Combo3.AddItem "7,5"    
                                 Combo3.AddItem "11"    
                                 Combo3.AddItem "15"    
                                 Combo3.ListIndex = 0     
case "ВР100-45-5К":    
                                 Combo3.Clear    
                                 Combo3.AddItem "5,5"    
                                 Combo3.AddItem "7,5"    
                                 Combo3.AddItem "11"    
                                 Combo3.AddItem "15"    
                                 Combo3.ListIndex = 0    
End Select    
End Sub


По сути теперь функция должна работать
Но по правде говоря, я бы значения выбора в case сделал бы в одну букву, а не словом.
И еще откуда в переменную fan передаются значения, если ты её только объявил. Разберись с переменными в программе может её глобальной надо сделать. А правленный код скорее работать не будет так как у тебя в самой программе по ходу много ошибок. Но все таки стоит попробовать, если все же не пойдет, то значит ошибки в программе(мой код в принципе, если в программе все правельно то должно запуститься). Удачи
--------------------
В жизни, я люблю делать, то что я люблю. А не то что модно, престижно и выгодноЛюблю когда начинает работать, то что без меня не работало!
PM MAIL ICQ   Вверх
Naghual
Дата 24.2.2006, 11:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


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

Репутация: 26
Всего: 49
Цитата
А более подробно можно?

Какой вопрос такой и ответ.


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

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

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

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

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

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

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


 




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


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

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