Как динамически добавить кнопку

[CORBA]

Поискал на форуме, но так и не нашёл ответа вот на такой вопрос:
Как динамически добавить кнопку(контрол) на форму?
Когда я, хотя бы одну кнопку создаю вручную, и пишу код так:

load cmdButton(3)
cmdButton(3).visible=true
то всё прекрасно работает,

но когда хочу чтобы всё создавал код
dim cmdA as CommandButton
load cmdA
cmdA.visible=true

то выскакивает след. ошибка:
Object variable or With block variable not set

Подскажите plz чё делать, а то совсем запутался

[GM]

Попробуй так:

Код: Выделить всё

Public WithEvents objExt As VBControlExtender
Private Sub Form_Load()
Set cmdA = Controls.Add("VB.CommandButton", "cmdA")
cmdA.Visible = True
End Sub


[CORBA]

Работает , но чутарь не подходит, мне нужно создать массив контролов динамически. Возможно ли это сделать?

[xolod]

Не, без кнопочки, созданной в редакторе и призванной быть первым элементом массива, стандартными средствами VB не сделать как ты хочешь..
Так что, сначала на форму Command1 с Index'ом 0, а потом грузи все остальное. Ну а можешь через API делать все, тока оно тебе надо ?

[CORBA]

to xolod
я понял что не надо
Спасибо что просвятил, а то много времени и сил убил в поисках ответа - можно или нет.

[GM]

... стандартными средствами VB не сделать ...

Да ну, можна сделать:

Код: Выделить всё

Private objExt() As CommandButton
Private Sub Form_Load()
ReDim objExt(1 To 10)
Set objExt(1) = Controls.Add("VB.CommandButton", "objext1")
objExt(1).Visible = True
End Sub


Работает с массивом. Только события не отлавливает. Можно конешно сделать класс обертку, но легче все же сделать Command1 с Index'ом 0.

[Rombo]

Я весь день бьюсь, никак не могу в VBA допиться чтобы обрабатывались события динамически созданных объектов
Задача простая: динамически накидать несколько кнопочек с надписями, и чтобы по нажатию на них я знал какая отправила событие.
на форуме вычитал несколько способов, но не один не получился...
объясните мне, ламеру как мне реализовать задачу

1) через Load CommandButton1 (пишет не могу Load или Unload объект)
2) через Controls.Add (добавляются компаненты в массив наура! а вот как события из словить я не разобрался)
3) суть шайтанского метода "обертка" так и не понял...

да и на форуме не нашел хорошего описания КАК это на VBA реализовать ?? помогите ламеру, а то весь день бьюсь бошкой об пол

[GSerg]

private withevents cb as commandbutton
...
set cb=controls.add("какое там полное имя", "cb1")

[Rombo]

дело в том что мне заранее неизвестно сколько элементов будет на форме, но необходимо реагировать на событие каждого элемента!!
пока вышел из положения

Код: Выделить всё

Public WithEvents CommandButton1 As CommandButton
Public WithEvents CommandButton2 As CommandButton
.....
Public WithEvents CommandButton25 As CommandButton

Private Sub CommandButton1_Click()
MyButtonClick (1)
End Sub
.....
Private Sub CommandButton25_Click()
MyButtonClick (25)
End Sub


private sub MyButtonClick(index as integer)
'обработка события
End Sub


но это же ерунда полная с точки зрения правильность программирования!!
пользуясь возможностью доступа к тексту скрипта в VBA можно жобавлять эти строчки в код динамически, но это тоже фигня

единственное что я не попробовал - это обертка.. суть этого метода мне до конца не понятна, Помогите мне, пожалуйста разобраться в нем на этом простом примере!

[tyomitch]

Ну, жобавляй строчки в код динамически

[Rombo]

tyomitch, ключевая фраза в моем посте

это обертка.. суть этого метода мне до конца не понятна, Помогите мне, пожалуйста разобраться в нем на этом простом примере!

а жобавлять строчки динамически это очень студно в в плане отладке, может получится много ошибок

[Rombo]

ну примерно столько же сколько в моем прошлом посте

[GM]

Шайтанский метод обертка

[Rombo]

ага! вот его то я как раз не понял =)

[Rainbow]

Чаво объяснить?

Фишка в том, что стандартную кнопку расширяем, добавляя к ней ее индекс и ссылку на специальный объект, от которого будем ловить события в форме...