ник: час
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]
|
Так вот советуют добавлять контролы на форму - динамически, но
они хитрецы событие прописали заранее
создали процедуру обработки,
а если я не знаю заранее сколько будет кнопок...
