Создал многомерный массив как загнать в Комбобокс

@Ципихович Эндрю · Регистрация: 10.04.2009

Author24 — интернет-сервис помощи студентам

PureBasic

'создаём массив многомерный, данные массива String
DIM Массив(1 TO 20, 1 TO 70) AS STRING
'элементу многомерного массива присваивается значение
Массив(1, 1) = 23
Считываем_с_массива_Массив1 = Массив(1, 1)
'если не присвоено значение, тогда в переменной будет 0 или "" в зависимости от типа данных в нём
Считываем_с_массива_Массив2 = Массив(4, 7)

1.
Создал многомерный массив как загнать в Комбобокс, именно по массивно первый, второй и т.д.
2.
Как загнать этот же массив в Комбобокс но в два столбца по массивно после этого
'сделать нужное количество столбцов в ComboBox
ActiveDocument.ComboBox1.ColumnCount = 2
и например содержимое второго столбца сделать скрытым текстом
Спасибо

@Helen_fire · 22.03.2011, 17:25

п.1 Многомерный массив в combobox загнать несложно. Сначала его нужно определить как public, чтобы был виден из всех модулей:

Visual Basic

1	Public mas(1 To 70, 1 To 35)

после этого заполняем его:

Visual Basic

For r = 1 To 70
mas(r, 1) = r
mas(r, 2) = IIf(r < 36, r, r - 35)
Next

после чего, если заполнение combobox идет с нажатия кнопки, вводим его в созданную combobox:

Visual Basic

Private Sub CommandButton1_Click()
 
ComboBox1.ColumnCount=2
ComboBox1.List = mas
 
End Sub

п.2. Если нужно внести несколько массивов, их просто объединяем в 1 и также приравниваем. Можно добавить в конейц каждого массива пустую строку и получится разделение блоков.

Если я Вас поняла не так, опишите проблему с примером:вставьте картинку того, что нужно получить на выходе.

Добавлено через 12 минут
п.1 Многомерный массив в combobox загнать несложно. Сначала его нужно определить как public, чтобы был виден из всех модулей:

Visual Basic

1	Public mas(1 To 70, 1 To 35)

после этого заполняем его:

Visual Basic

For r = 1 To 70
mas(r, 1) = r
mas(r, 2) = IIf(r < 36, r, r - 35)
Next

после чего, если заполнение combobox идет с нажатия кнопки, вводим его в созданную combobox:

Visual Basic

Private Sub CommandButton1_Click()
 
ComboBox1.ColumnCount=2
ComboBox1.List = mas
 
End Sub

п.2. Если нужно внести несколько массивов, их просто объединяем в 1 и также приравниваем. Можно добавить в конейц каждого массива пустую строку и получится разделение блоков. Если массивы нужно внести по столбцам, то в большой массив объединяем поэлементно: строку массива 1 как элемент 1-ого столбца общего массива, строку массива 2 как элемент 2-ого столбца общего массива и т.д. По-моему так вполне рационально...

Если я Вас поняла не так, опишите проблему с примером:вставьте картинку того, что нужно получить на выходе.

	22.03.2011, 17:25

Опции темы