Условие

Тема в разделе "Visual Basic", создана пользователем Rockman, 25 июн 2009.

  1. Rockman

    Rockman Гость

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

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

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

    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 = ""
     
  3. Rockman

    Rockman Гость

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

    eugenkho Гость

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

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

    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
     
  6. alex77755

    alex77755 Well-Known Member

    Регистрация:
    15 фев 2009
    Сообщения:
    128
    Симпатии:
    0
    Вопрос задаёшь по списку, а в примере - комбо. И вообще расплывчато
    Если значение текстбокса должно быть равно выбранному значению в комбобоксе, то нужно обрабатывать событие клик, а не чанге



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

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

    End Sub[/CODE]
     
  7. eugenkho

    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
     
  8. alex77755

    alex77755 Well-Known Member

    Регистрация:
    15 фев 2009
    Сообщения:
    128
    Симпатии:
    0
    ????

    Я изначально не пойму что имеется в виду под такое? и другое???!!!
     
Загрузка...
Похожие Темы - Условие
  1. Dimm
    Ответов:
    11
    Просмотров:
    228
  2. shilovec5377
    Ответов:
    0
    Просмотров:
    1.036
  3. zdrastes
    Ответов:
    0
    Просмотров:
    1.123
  4. era1fgg
    Ответов:
    1
    Просмотров:
    1.301
  5. dimon131
    Ответов:
    2
    Просмотров:
    1.644

Поделиться этой страницей