Как добавить в цикле динамически несколько кнопок и повесить на каждую событие?

@LastDoorBy · Регистрация: 25.04.2011

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

День добрый... В Vb я новичек... Использую VB 6.3. Как можно добавить динамически в цикле несколько кнопок на форму и привязать к ним события на onklick???? Я делал вот так

'------------------------------------------------------------------

Private WithEvents Mycmd As CommandButton

Private Sub UserForm_Initialize()

Dim index As Integer

For index = 0 To 3

Set Mycmd = Frame1.Controls.Add("Forms.CommandButton .1", "b" & Index + 1)

Mycmd.Left = 144

Mycmd.Top = 70 + Index * 22

Mycmd.Width = 36

Mycmd.Height = 18

Mycmd.Visible = True

Mycmd.Caption = "Open"

Next index

End Sub

Private Sub Mycmd_Click()

MsgBox "This is New Button"

End Sub

'------------------------------------------------------------------

Кнопки добавляются, но событие нажатия срабатывает, только когда кликаешь на последнюю добавленную кнопку... что нужно добавить, чтобы событие нажатия срабатывало для всех кнопок???

@igor_c · 28.07.2006, 16:53

Ну, навскидку, первое, что пришло в голову:
Объявить объектную переменную типа CommandButton, причем WithEvents, наверное, в виде массива, заранее создать обработку соответствующего события, а при создании кнопок присваивать их этой переменной. Должно работать.

29.07.2006, 02:13

есть способ попроще, для начинающих - самое то:

в DesignTime(т.е. пока прога ещё не запущена) рисуешь на форме кнопку(пусть будет Command1), свойство index делаешь 0, visible - false.

потом в коде, где тебе надо пишешь:

load Command1(1)

Command1(1).caption = "Динамическая кнопка"

Command1(1).visible = true

потом

load Command1(2) и т.д...

Если ты посмотришь обработчик событий для этой кнопки (Command1_Click), то увидишь, что теперь там есть ещё переменная index, куда кладётся номер нажатой кнопки, т.е. типа такого:

Private Sub Command1_Click(Index as integer)

if Index = 1 then MsgBox "Нажата кнопка 1"

if index = 2 then MsgBox "Нажата кнопка 2"

End Sub

уничтожаются данные кнопки коммандой unload Command1(1) и т.д., короче ты понял

@LastDoorBy · 29.07.2006, 15:10 **[ТС]**

Да с индексом конечно прикольно было бы) Это тоже, первое что пришло мне в голову, только в VB 6 нет такого, по крайней мере у меня )

29.07.2006, 23:49

Нет, есть, держи пример

@LastDoorBy · 31.07.2006, 14:48 **[ТС]**

Спасибо за пример ... Но дело в том, что тот VB с которым я имею дело встроен в студию ARCMAP, и там у контролов нету свойства Index...

@igor_c · 31.07.2006, 19:19

Так индекс - это не свойство. Это порядковый номер в массиве. Что-то не верится, что массивы элементов не поддерживаются.

@igor_c · 31.07.2006, 19:24

Массив проще всего сделать так - создать кнопку, по имени, например, cmdButton, затем скопировать ее в буфер и вставить на ту же форму. Последует вопрос, что-то наподобие "Элемент с таким именем уже существует, хотите создать массив?" Говорим да, и получаем массив кнопок с именем cmdButton и индексами 0 и 1. То есть будут две кнопки, cmdButton(0) и cmdButton(1). Кнопку с индексом 1 можно удалить, останется массив из одной кнопки с индексом 0. А уж с этим массивам можно работать: Load, Unload и прочее.

@LastDoorBy · 02.08.2006, 15:13 **[ТС]**

Как это так? Разве не создастся кнопка со следующем уникальным именем? Если есть на форме CommandButton1, то скопировав ее в буфер и вставив на форму получим автоматически CommandButton2 и.т.д

@LastDoorBy · 02.08.2006, 16:44 **[ТС]**

а без индекса никак нельзя сделать?

@igor_c · 03.08.2006, 14:56

А что, тем способом, что я описал, не удалось создать массив кнопок? Что-то не верится. Можно, наверное, и без массива кнопок, хотя с ним проще всего.

05.08.2006, 05:55

между прочем, в VBA действительно отсутствуют индексы как класс

сегодня проверил на Ворде. Можно создавать массив, но без преффикса WithEvents...за одну только декларацию private sub Command1_Click(index as integer) среда ругается, как ненормальная.......короче фтопку VBA

единственное что тут можно поделать это туева хуча кнопок и обработчиков.....фтопку

@LastDoorBy · 14.08.2006, 14:46 **[ТС]**

да нет на самом деле не все так плохо ) Индексов действительно нет, но можно реализовать через дополнительный класс, где и будут описаны реакции на события... если кому надо могу выкинуть простенький код, как это реализовать... Хотя код похож на танцы с бубном вокруг костра )

Новые блоги и статьи Все статьи Все блоги /
Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит токи на L и напряжения на C в установ. режимах до и. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Изучаю kubernetes lagorue 13.01.2026 А пригодятся-ли мне знания kubernetes в России?	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/
WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .	Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .	Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114

@LastDoorBy 0 / 0 / 0 Регистрация: 25.04.2011 Сообщений: 18

	Как добавить в цикле динамически несколько кнопок и повесить на каждую событие? 27.07.2006, 17:23. Показов 3727. Ответов 12 Метки нет (Все метки) День добрый... В Vb я новичек... Использую VB 6.3. Как можно добавить динамически в цикле несколько кнопок на форму и привязать к ним события на onklick???? Я делал вот так '------------------------------------------------------------------ Private WithEvents Mycmd As CommandButton Private Sub UserForm_Initialize() Dim index As Integer For index = 0 To 3 Set Mycmd = Frame1.Controls.Add("Forms.CommandButton .1", "b" & Index + 1) Mycmd.Left = 144 Mycmd.Top = 70 + Index * 22 Mycmd.Width = 36 Mycmd.Height = 18 Mycmd.Visible = True Mycmd.Caption = "Open" Next index End Sub Private Sub Mycmd_Click() MsgBox "This is New Button" End Sub '------------------------------------------------------------------ Кнопки добавляются, но событие нажатия срабатывает, только когда кликаешь на последнюю добавленную кнопку... что нужно добавить, чтобы событие нажатия срабатывало для всех кнопок??? 0

@igor_c 0 / 0 / 0 Регистрация: 04.03.2008 Сообщений: 250
	28.07.2006, 16:53
	Ну, навскидку, первое, что пришло в голову: Объявить объектную переменную типа CommandButton, причем WithEvents, наверное, в виде массива, заранее создать обработку соответствующего события, а при создании кнопок присваивать их этой переменной. Должно работать. 0

Insolent
	29.07.2006, 02:13
	есть способ попроще, для начинающих - самое то: в DesignTime(т.е. пока прога ещё не запущена) рисуешь на форме кнопку(пусть будет Command1), свойство index делаешь 0, visible - false. потом в коде, где тебе надо пишешь: load Command1(1) Command1(1).caption = "Динамическая кнопка" Command1(1).visible = true потом load Command1(2) и т.д... Если ты посмотришь обработчик событий для этой кнопки (Command1_Click), то увидишь, что теперь там есть ещё переменная index, куда кладётся номер нажатой кнопки, т.е. типа такого: Private Sub Command1_Click(Index as integer) if Index = 1 then MsgBox "Нажата кнопка 1" if index = 2 then MsgBox "Нажата кнопка 2" End Sub уничтожаются данные кнопки коммандой unload Command1(1) и т.д., короче ты понял

@LastDoorBy 0 / 0 / 0 Регистрация: 25.04.2011 Сообщений: 18
	29.07.2006, 15:10 [ТС]
	Да с индексом конечно прикольно было бы) Это тоже, первое что пришло мне в голову, только в VB 6 нет такого, по крайней мере у меня ) 0

Insolent
	29.07.2006, 23:49
	Нет, есть, держи пример

@LastDoorBy 0 / 0 / 0 Регистрация: 25.04.2011 Сообщений: 18
	31.07.2006, 14:48 [ТС]
	Спасибо за пример ... Но дело в том, что тот VB с которым я имею дело встроен в студию ARCMAP, и там у контролов нету свойства Index... 0

@igor_c 0 / 0 / 0 Регистрация: 04.03.2008 Сообщений: 250
	31.07.2006, 19:19
	Так индекс - это не свойство. Это порядковый номер в массиве. Что-то не верится, что массивы элементов не поддерживаются. 0

@igor_c 0 / 0 / 0 Регистрация: 04.03.2008 Сообщений: 250
	31.07.2006, 19:24
	Массив проще всего сделать так - создать кнопку, по имени, например, cmdButton, затем скопировать ее в буфер и вставить на ту же форму. Последует вопрос, что-то наподобие "Элемент с таким именем уже существует, хотите создать массив?" Говорим да, и получаем массив кнопок с именем cmdButton и индексами 0 и 1. То есть будут две кнопки, cmdButton(0) и cmdButton(1). Кнопку с индексом 1 можно удалить, останется массив из одной кнопки с индексом 0. А уж с этим массивам можно работать: Load, Unload и прочее. 0

@LastDoorBy 0 / 0 / 0 Регистрация: 25.04.2011 Сообщений: 18
	02.08.2006, 15:13 [ТС]
	Как это так? Разве не создастся кнопка со следующем уникальным именем? Если есть на форме CommandButton1, то скопировав ее в буфер и вставив на форму получим автоматически CommandButton2 и.т.д 0

@LastDoorBy 0 / 0 / 0 Регистрация: 25.04.2011 Сообщений: 18
	02.08.2006, 16:44 [ТС]
	а без индекса никак нельзя сделать? 0

@igor_c 0 / 0 / 0 Регистрация: 04.03.2008 Сообщений: 250
	03.08.2006, 14:56
	А что, тем способом, что я описал, не удалось создать массив кнопок? Что-то не верится. Можно, наверное, и без массива кнопок, хотя с ним проще всего. 0

Insolent
	05.08.2006, 05:55
	между прочем, в VBA действительно отсутствуют индексы как класс сегодня проверил на Ворде. Можно создавать массив, но без преффикса WithEvents...за одну только декларацию private sub Command1_Click(index as integer) среда ругается, как ненормальная.......короче фтопку VBA единственное что тут можно поделать это туева хуча кнопок и обработчиков.....фтопку

@LastDoorBy 0 / 0 / 0 Регистрация: 25.04.2011 Сообщений: 18
	14.08.2006, 14:46 [ТС]
	да нет на самом деле не все так плохо ) Индексов действительно нет, но можно реализовать через дополнительный класс, где и будут описаны реакции на события... если кому надо могу выкинуть простенький код, как это реализовать... Хотя код похож на танцы с бубном вокруг костра ) 0