kminas » 23.02.2006 (Чт) 12:42
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
GSerg » 23.02.2006 (Чт) 12:50
Amed » 23.02.2006 (Чт) 12:59
Select Case Variable
Case 1
1
Case 2
2
End Select kminas » 23.02.2006 (Чт) 13:08
GSerg » 23.02.2006 (Чт) 13:14
kminas писал(а):А почему у меня не идет процедура?
kminas писал(а):З.ы. И учтите, что я НОВИЧЕК.
kminas писал(а):Я меньше месяца как начал использовать форму в первой своей программе на Басике, а первый макрос на VBA написал 26 октября.
kminas » 23.02.2006 (Чт) 14:33
Combo2.textхSelect Case x
CASE 1 То 9
Labell.Caption = "Значение больше 0"
CASE 0
Labell.Caption = "Значение равно 0"
CASE -9 То -1
Label1.Caption = "Значение меньше 0"
End Select 
KDima » 23.02.2006 (Чт) 14:50
. x - скорее всего это некоторая переменная.
Хакер » 23.02.2006 (Чт) 14:51
Select Case 0
Case Var1
Case Var2
Case Var3
End Select
Kovu » 23.02.2006 (Чт) 14:51
Хакер » 23.02.2006 (Чт) 14:56
Select Case X
Select Case X Amed » 23.02.2006 (Чт) 14:58
Private Sub Combo2_Click()
Select Case combo2.text
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 SubPrivate Sub Combo2_Click()
Dim fan As String
fan=Combo2.text
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
kminas » 23.02.2006 (Чт) 15:49
Select Case Combo2.Text
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Синтаксис конструкции Select Case следующий:
- Код: Выделить всё
Select Case сравниваемоеЗначение
CASE значение1
конструкция1
CASE значение2
конструкция2
. . .
End Select
В начале конструкции расположены ключевые слова select case, указывающие, что расположенный рядом с ними параметр сравниваемоеЗначение будет проверяться на несколько значений. Далее следуют группы команд. начинающиеся с ключевого слова Case. Если параметр сравниваемоеЗначение равен значению, указанному в текущем операторе case, то будут выполняться команды, расположенные между этим и следующим ключевым словом case.
В качестве примера воспользуемся конструкцией Select Case для решения предыдущей задачи:
- Код: Выделить всё
Select Case x
CASE 1 То 9
Labell.Caption = "Значение больше 0"
CASE 0
Labell.Caption = "Значение равно 0"
CASE -9 То -1
Label1.Caption = "Значение меньше 0"
End Select
или, например, х = Inputbox, то все ясно, а, если просто "х" или другое слово, как приводят в книгах, которые советовать мне читать начитанный Amed. У меня бумажных и электронных, для начинающих и для продолжающих штук 15(!). Если бы хорошо было написано форумы бы пустовали!fan=Combo2.text
Хакер » 23.02.2006 (Чт) 16:06
kminas » 23.02.2006 (Чт) 16:11
Twister » 23.02.2006 (Чт) 17:37
Como1.Text="Some text"Combo1.ListIndex=Some_number
GB826 » 24.02.2006 (Пт) 2:42
BV » 24.02.2006 (Пт) 4:02
minotawr » 24.02.2006 (Пт) 12:30
Twister » 24.02.2006 (Пт) 12:38
Как это кажись?и в правилах форума кажись про такие ники было что-то
Ник самому сменить не возможно, это может лишь админ.но мне кажется тебе самому проще перерегестрироватся
Сомневаюсь что этот человек волнуется по этому поводу. Его цель - показать свое "остроумие". Только интересно ли это кому нибудь? Сомневаюсь. Лично меня это сильно раздражает. Убедительно прошу тебя, Хрен Моржовый, не писать больше под этим ником...не дожидаясь пока забанят
kminas » 02.03.2006 (Чт) 0:23
Twister писал(а):2 BV
Не стоит там его банить... Так или иначе, но kminas-у придется прикупить книженцию.
GB826 писал(а):Единственный правильный совет, который здесь дали - СНАЧАЛА прочти купленную книгу С НАЧАЛА, а то в следующий раз рискуешь не понять, как "мифическая" х попала, например, в цикл for.
Сейчас этот форум просматривают: Google-бот, SemrushBot и гости: 51
