• Aleksandr
  • Восстановленный участник
  • На форуме с 7 октября 2007г.
  • Сообщений: 20
  • Спасибо: 0

Тема: ComboBox

Всем привет! Помогите плиз с локальной задачкой....
Вот допустим есть форма UserForm1 на ней ComboBox1,ComboBox2 и CommandButton1
Так вот,я хочу чтобы допустим в ComboBox1 выбираем "А" и в ComboBox2 выбираем "В"...и при нажатие на CommandButton1 в чертёж вставлялась текстовая строчка с содержанием "АВ".
Помогите плиз...
P.S Желательно пример!!! А то я в языке оч плохо ориентируюсь..
Зарание спасиб.

  • Fatty
  • Восстановленный участник
  • На форуме с 30 мая 2006г.
  • Сообщений: 989
  • Спасибо: 2

Re: ComboBox

> Aleksandr
Рисуй на форме 2 боксаб один текст бокс
и кнопку
В модуль формы вставь код:

Option Explicit
Public rightstr As String
Public leftstr As String
Private Sub ComboBox1_Change()
rightstr = ComboBox1.Text
End Sub
Private Sub ComboBox2_Change()
leftstr = ComboBox2.Text
TextBox1.SetFocus
End Sub
Private Sub CommandButton1_Click()
Unload Me
End Sub
Private Sub TextBox1_Enter()
TextBox1.Text = leftstr & rightstr
End Sub
Private Sub UserForm_Activate()
Dim i As Long
leftstr = ""
rightstr = ""
For i = 0 To 10
ComboBox1.AddItem "Left item #" & CStr(i + 1)
ComboBox2.AddItem "Right item #" & CStr(i + 1)
Next
End Sub

~'J'~

  • Aleksandr
  • Восстановленный участник
  • На форуме с 7 октября 2007г.
  • Сообщений: 20
  • Спасибо: 0

Re: ComboBox

Уряяя....ваш код не совсем,что нужно..но мне оч помог для реализации того,что хотел! СПАСИБО!!!