Moi.
Lomakkeella on CommandButton-kontrolli, jota klikkaamalla ohjelma luo uuden CommandButtonin (VBA-koodia):
Private Sub cmdLisaa_Click()
Dim Objekti As Control
Set Objekti = Controls.Add("Forms.commandbutton.1")
With Objekti
.Width = 25
.Height = 25
End With
End Sub
Miten vastaanotetaan ohjelmassa luodulta CommandButtonilta tuleva viesti, kun CommandButtonia klikataan?
Tarvitaanko API-funktiota?
Lomakkeella on CommandButton-kontrolli, jota klikkaamalla ohjelma luo uuden CommandButtonin (VBA-koodia):
Private Sub cmdLisaa_Click()
Dim Objekti As Control
Set Objekti = Controls.Add("Forms.commandbutton.1")
With Objekti
.Width = 25
.Height = 25
End With
End Sub
Miten vastaanotetaan ohjelmassa luodulta CommandButtonilta tuleva viesti, kun CommandButtonia klikataan?
Tarvitaanko API-funktiota?
Vastaukset 2
Vanhimmat
dim withevents nappula as commandbutton
toimiiko?
Alkoi toimia. Kiitosta neuvosta.