ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Select Case
4 сообщений из 4, страница 1 из 1
Select Case
    #33562437
kminas
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kminas
Гость
Немного разобрался с Select Case, но с использованием переменных в нем ничего не понимаю. Что делают переменные и что надо делать в моем случае?
Вот пример процедуры, в которой при выборе любого из двух значений марок вентиляторов в Combo2, в Combo3 должен появиться список их мощности, далее аналогично с другими марками. У меня процедура не работает.
Код:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
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
...
Рейтинг: 0 / 0
23.02.2006, 12:44:08
| Ответить | Цитировать | Написать  
Select Case
    #33562482
shady
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
shady
Участник
я вот так сделал правда вместо второго комбобокса текстбокс взял с MultiLine=True
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
Private Sub Combo1_Click()
    
    Label1.Caption = Combo1.ListIndex
    
    Select Case Combo1.ListIndex
        Case  0 
            Text1.Text = "Напряжение питания 12 вольт, мощность 10 Вт"
        Case  1 
            Text1.Text = "Напряжение питания 9 вольт, мощность 10 Вт"
        Case  2 
            Text1.Text = "Мощность 10 Вт"
    End Select
    
End Sub

Private Sub Form_Load()

Dim i As Integer
Dim fan( 2 ) As String

fan( 0 ) = "Первый вентилятор"
fan( 1 ) = "Второй вентилятор"
fan( 2 ) = "Третий вентилятор"

For i =  0  To  2 
    Combo1.AddItem (fan(i))
Next

End Sub
...
Рейтинг: 0 / 0
23.02.2006, 13:19:07
| Ответить | Цитировать | Написать  
Select Case
    #33565078
Пользователь2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Пользователь2
Гость
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
Private Sub ComboBox1_Change()
    ComboBox2.Clear

    Select Case ComboBox1.Text
        Case "ВР100-45-5-02", "ВР100-45-5К"
            ComboBox2.AddItem "5,5"
            ComboBox2.AddItem "7,5"
            ComboBox2.AddItem "11"
            ComboBox2.AddItem "15"
        Case Else
            ComboBox2.AddItem "100"
            ComboBox2.AddItem "200"
    End Select
    
    ComboBox2.Text = ComboBox2.List( 0 )
End Sub

Private Sub Form_Load()
    ComboBox1.AddItem "ВР100-45-5-02"
    ComboBox1.AddItem "ВР100-45-5К"
    ComboBox1.AddItem "ВР100-45-145К"
End Sub
...
Рейтинг: 0 / 0
26.02.2006, 09:40:55
| Ответить | Цитировать | Написать  
Select Case
    #33606684
kminas
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
kminas
Гость
Большое спасибо!
...
Рейтинг: 0 / 0
16.03.2006, 21:36:00
| Ответить | Цитировать | Написать  
4 сообщений из 4, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Select Case
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=33562437&tid=2166214]:
 0ms
get settings:
 9ms
get forum list:
 10ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 144ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 34ms
get tp. blocked users:
 1ms
others: 202ms
total:  414ms
созд. / загр.: 414ms
x
x
Закрыть


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