Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Select Case / 4 сообщений из 4, страница 1 из 1
23.02.2006, 12:44:08
    #33562437
kminas
kminas
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Select Case
Немного разобрался с 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, 13:19:07
    #33562482
shady
shady
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Select Case
я вот так сделал правда вместо второго комбобокса текстбокс взял с 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
| Ответить | Цитировать | Написать  
26.02.2006, 09:40:55
    #33565078
Пользователь2
Пользователь2
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Select Case
Код: 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
| Ответить | Цитировать | Написать  
16.03.2006, 21:36:00
    #33606684
kminas
kminas
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Select Case
Большое спасибо!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Select Case / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 478ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2166214]:
 0ms
get settings:
 9ms
get forum list:
 14ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 151ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 41ms
get tp. blocked users:
 1ms
others: 247ms
total:  478ms
x
x
Закрыть


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