VPF::Combo, Text и массив. как связать? - Форум программистов

neiron

Дата 3.10.2006, 14:47 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 145
Регистрация: 18.4.2006
Где: Краснодар

Репутация: 3
Всего: 4

В общем, нужно следующее.

Есть комбик, есть текстовое поле, есть массив.
При form_load комбик заполняется i элементами, где i - размерность массива.

Сделать нужно следующее:
при выборе значения в комбо по ListIndex в текстовое поле вывести текущее значение элемента массива с номером ListIndex. Кроме того при выборе другого значения комбы предыдущее значение должно вноситься в массив.

т.е. примерно так:

Код


dim arr(1 to 20) as string

Private Sub Form_Load()
      for i=1 to 20
            ComboBox.AddItem "K"+cstr(i)
       next i
End Sub

Private Sub cmbNazUm_???()                 'изменение текущего значения комбо
     arr(ComboBox.ListIndex+1) = txtNewName.Text
End Sub

Private Sub cmbNazUm_?????()              'выбор нового значения комбо
     txtNewName.Text=arr(ComboBox.ListIndex+1)
EndSub

Надеюсь, понятно вопрос поставил?

cardinal

Дата 3.10.2006, 15:12 (ссылка)

(нет голосов)

Загрузка ...

Инженер

Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99

Так что ли?

Код


Option Explicit
Dim arr(1 To 20) As String
Dim OldIndex

Private Sub Combo1_Click()
If OldIndex <> 0 Then arr(OldIndex) = txtNewName.Text
txtNewName.Text = arr(Combo1.ListIndex + 1)
OldIndex = Combo1.ListIndex + 1
End Sub


Private Sub Form_Load()
Dim i As Integer

OldIndex = 0
For i = 1 To 20
    Combo1.AddItem "K" + CStr(i)
Next
End Sub

--------------------

Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино". А. и Б. Стругацкие

neiron

Дата 3.10.2006, 15:37 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 145
Регистрация: 18.4.2006
Где: Краснодар

Репутация: 3
Всего: 4

cardinal, спасибо большое.

cardinal

Дата 3.10.2006, 18:11 (ссылка)

(нет голосов)

Загрузка ...

Инженер

Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99

Пожалуйста.

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »