Условие

[Rockman]

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

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

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

 

[eugenkho]

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 = ""

 

[Rockman]

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

 

[eugenkho]

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

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

 

[Rockman]

Тоесть вместе первого 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]

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



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

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

End Sub[/CODE]

 

[eugenkho]

Ну 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]

Если в ListBox выбрано такое значение то в TextBox появляется тект причем он может содержать и цифры и буквы.
Если вы ListBox выбрано [b]другое[/b] значение

????

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