Условие

  • Автор темы Rockman
  • Дата начала
R

Rockman

Гость
#1
Я вообще полный чайник и мой вопрос вам покажется глупым, но все же !

Я стараюсь сам написать небольшую программу и вот на одном дейсвии я завис
мне нужно сделать такое условие:

Если в ListBox выбрано такое значение то в TextBox появляется тект причем он может содержать и цифры и буквы.
Если вы ListBox выбрано другое значение то соответсвенно и текст другой но в томже TextBox
Если не выбрано ничего то и текстбокс бустой.
Буду очень вам благодарен за помощь.
 
E

eugenkho

Гость
#2
if list1.text = "znachenie1" then text1.text = "bla-bla-bla"
if list1.text = "znachenie2" then text1.text = "bla2-bla2-bla2"
if list1.text = "" then text1.text = ""
 
R

Rockman

Гость
#3
Спасибо канечно но это не работает, так я уже пробовал.
Когда выбираешь в листбоксе значение в текст боксе ничего нет (
хотя я пробовал с такое условие но между двумя текстбоксами и все работает.
Мне кажется что нужно указывать не list.text а что то другое
 
E

eugenkho

Гость
#4
Извини я ошибся :) . Надо делать:

Private Sub List1_Click()
If List1.ListIndex Then text1.text = " bla " 'Первое значение допустим : вова (Индексы в VB всегда начинаютса с нуля)
If List1.ListIndex Then text1.text = " bla " 'Второе значение
'И так далее, сколько тебе надо
End Sub
 
R

Rockman

Гость
#5
Тоесть вместе первого ListIndex нужно написать 0
вместо второго 1 и так далее ?

Вообще я пишу вот так и не работает:

Private Sub Combo1_Change()
If Combo1.ListIndex Then text1.Text = " bla "
If Combo1.ListIndex Then text1.Text = " bla2 "
End If
End Sub
 

alex77755

Well-Known Member
15.02.2009
128
0
#6
Вопрос задаёшь по списку, а в примере - комбо. И вообще расплывчато
Если значение текстбокса должно быть равно выбранному значению в комбобоксе, то нужно обрабатывать событие клик, а не чанге



<!--shcode--><pre><code class='VBA'>Private Sub Комбо1_Click()

Текст1.Text = Комбо1.Text

End Sub[/CODE]
 
E

eugenkho

Гость
#7
Ну ListIndex (= 0) вводить конешно надо:
Private Sub List1_Click()
If List1.ListIndex = 0 Then ' Вова
Text1.Text = "abc"

elseIf List1.ListIndex = 1 Then ' катя
Text1.Text = "asdf asd sdfa "

elseIf List1.ListIndex = 2 Then ' наташа
...
endif
end sub
А для ComboBox подойдет :
if combo1.text = "1" then text1.text = "a2"
elseif combo1.text = "катя " then text1.text = "катя "
endif
 

alex77755

Well-Known Member
15.02.2009
128
0
#8
Если в ListBox выбрано такое значение то в TextBox появляется тект причем он может содержать и цифры и буквы.
Если вы ListBox выбрано [b]другое[/b] значение
????

Я изначально не пойму что имеется в виду под такое? и другое???!!!