| |
|
|
| |
Option Explicit
Private WithEvents btnObj As CommandButton
Private Sub btnObj_Click()
MsgBox "Это динамически добавленная кнопка."
End Sub
Private Sub Form_Load()
Set btnObj = Controls.Add("VB.CommandButton", "btnObj")
With btnObj
.Visible = True
.Width = 2000
.Caption = "Hello"
.Top = 1000
.Left = 1000
End With
End Sub
[code]
|
Так вот советуют добавлять контролы на форму - динамически, но
они хитрецы событие прописали заранее
создали процедуру обработки,
а если я не знаю заранее сколько будет кнопок...  | |
| |
| |
| |
|
|
| |
а если я не знаю заранее сколько будет кнопок...
|
Тогда меняй идеологию создания приложения. Потому, как тебе должно быть заранее известно количество кнопок и процедуры обработки по их нажатию.
Динамически можно создавать неизвестное заранее количество контролов а-ля поле, календарь и т.д., т.е. тех контролов, которые не требуют событийной обработки ( клик, afterupdate и т.д. ) | |
| |
| |
| |
|
|
| | Вот ведь.... 
===============================
А вроде как бы программно - можно строки кода писать  ????
Где то я такое видел.........
И создавать и удалять как то можно...... | |
| |
| |
| |
|
|
| | если я еще не все забыл, то vb можно создать коллекцию контролов
т.е. на форме 1 а при работе
Load me.имяконтрола(index)
и появляется новый
Вообще пиши модуль класса для своих кнопок | |
| |
| |
|
|
