Как создать массив из 80 кнопок или рисунков?

11.05.2007, 01:22. **Показов** 2105. **Ответов** 4

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

1. Мне нужно создать массив из 80 кнопок или рисунков. Каким образом я могу это сделать?
2. При программном создании объектов они не реагируют на события. Как исправить?

@bergman · 11.05.2007, 09:18

Кладешь на форму контрол. Ставишь ему Index=0 и Visible=False. Этот контрол будет прототипом для всех остальных объектов массива, можно выставить и другие свойства одинаковые для всех объектов.
Пишешь обработчик на процедуру контрола - там появился параметр Index.
При загрузке формы или в другом требуемом месте ставишь цикл создания массива объектов

For i=1 to 80
Load контрол(i)
контрол(i).Visible=True
Next

Выставляешь индивидуальные свойства объектов. Понятно, что обработчик должен работать со всеми индексами.

@innamey · 11.05.2007, 19:38

Извиняюсь, что влезаю, но вопрос по теме:
В VBA(MS Access) не могу найти свойства Index и метода Load. Как можно создать массив элементов управления?

12.05.2007, 04:04

В VBA (Excel) тоже нет свойства Index для кнопок. Что посоветуете?

12.05.2007, 16:58

В VBA нет массивов контролов, а в Access'е более того в run-time вообще нельзя создать контрол.
Поэтому нельзя сделать что бы одна и та же процедура выполнялась на события этих контролов. В VB такие вещи делать можно.
В Excel можно было бы сделать к примеру так:

Dim WithEvents cb As CommandButton

Private Sub cb_Click()
MsgBox 'Click'
End Sub

Private Sub UserForm_Initialize()
Set cb = Controls.Add('Forms.CommandButton.1')
End Sub

Но если надо создать 80 кнопок не будешь же описывать 80 переменных (WithEvents для массивов не применяется). Так что такие вот дела.

vilena
		1
	Как создать массив из 80 кнопок или рисунков? 11.05.2007, 01:22. Показов 2105. Ответов 4 Метки нет (Все метки) 1. Мне нужно создать массив из 80 кнопок или рисунков. Каким образом я могу это сделать? 2. При программном создании объектов они не реагируют на события. Как исправить?

@bergman 0 / 0 / 0 Регистрация: 03.05.2007 Сообщений: 7
	11.05.2007, 09:18	2
	Кладешь на форму контрол. Ставишь ему Index=0 и Visible=False. Этот контрол будет прототипом для всех остальных объектов массива, можно выставить и другие свойства одинаковые для всех объектов. Пишешь обработчик на процедуру контрола - там появился параметр Index. При загрузке формы или в другом требуемом месте ставишь цикл создания массива объектов For i=1 to 80 Load контрол(i) контрол(i).Visible=True Next Выставляешь индивидуальные свойства объектов. Понятно, что обработчик должен работать со всеми индексами. 0

@innamey 0 / 0 / 0 Регистрация: 20.03.2007 Сообщений: 21
	11.05.2007, 19:38	3
	Извиняюсь, что влезаю, но вопрос по теме: В VBA(MS Access) не могу найти свойства Index и метода Load. Как можно создать массив элементов управления? 0

vilena
	12.05.2007, 04:04	4
	В VBA (Excel) тоже нет свойства Index для кнопок. Что посоветуете?

Mavr
	12.05.2007, 16:58	5
	В VBA нет массивов контролов, а в Access'е более того в run-time вообще нельзя создать контрол. Поэтому нельзя сделать что бы одна и та же процедура выполнялась на события этих контролов. В VB такие вещи делать можно. В Excel можно было бы сделать к примеру так: Dim WithEvents cb As CommandButton Private Sub cb_Click() MsgBox 'Click' End Sub Private Sub UserForm_Initialize() Set cb = Controls.Add('Forms.CommandButton.1') End Sub Но если надо создать 80 кнопок не будешь же описывать 80 переменных (WithEvents для массивов не применяется). Так что такие вот дела.