Eventos en tiempo de ejecucion

[rekiller]

El problema es el siguiente:

Necesito agregar un boton en tiempo de ejecucion y asignarle un evento click.

Dim botones As CommandButton
Set botones = Me.Controls.Add("vb.commandbutton", "boton1")


Ahora quiero agregarle el evento click, pero no puedo, como se hace?

[rekiller]

Bueno, ya logre que me respondiera el evento click, ahora solo me lo hace para el ultimo objeto que inserto

Dim WithEvents botones As CommandButton

Private Sub Form_Load()


Adodc1.Refresh
Dim i As Integer

For i = 1 To Adodc1.Recordset.RecordCount
Set botones = Me.Controls.Add("vb.commandbutton", Adodc1.Recordset.Fields("nombreCategoria"))

botones.Width = AnchoB
botones.Height = AltoB

botones.Left = menuX
botones.Top = menuY
botones.Caption = Adodc1.Recordset.Fields("nombreCategoria")

menuX = menuX + AnchoB + 35
botones.Visible = True

Adodc1.Recordset.MoveNext
Next

End Sub


Private Sub botones_Click()

msgbox botones.caption
End Sub


Se crean dinamicamente por ahorita 4 botones, estos necesito que respondan al dar click, solo me responde el ultimo boton que inserte

[jrp01]

Y por que no creas una matrix de botones cuando crees uno incrementas la variable asi cuando hagas click ves que index tienes y depende de que index sea haces lo que necesites.

Saludos

[rojobe55]

Si, eso una matriz de controles, tambien se me ocurre que quizas sea mas facil que los botones existan (no vizualizados) y que se visualizen cuando se necesiten...