Controles dinamicos
Estoy creando controles dinamicos con la propiedad add de la collection controls y quiero agregarles eventos a cada uno de los controles lo he intentado con withevents pero solo se lo agrega al ultimo control creado si alguien pudiera ayudarme se lo agradesere
A mi entender, la mejor manera es tener un elemento CommandButton inicial con Index = 0, a modo de array de Controles.
A partir de aquí puedes ir generando instancias de ese botón con la instrucción Load
Ejemplo
Dim Ind as INteger
Ind = Command1.Ubound + 1
Load Command1(Ind)
Command1(Ind).Top = <valor top>
Command1(Ind).Left = <valor Left>
Command1(Ind).Visible = True
Cuando se trabaja con arrays de controles, se programa el mismo evento para todos los elementos.
Private Sub Command1_Click (Index as Integer)
End Sub
Dentro del evento, puedes identidicar con el Index sobre que elemento se ha disparado el evento.
Saludos
A partir de aquí puedes ir generando instancias de ese botón con la instrucción Load
Ejemplo
Dim Ind as INteger
Ind = Command1.Ubound + 1
Load Command1(Ind)
Command1(Ind).Top = <valor top>
Command1(Ind).Left = <valor Left>
Command1(Ind).Visible = True
Cuando se trabaja con arrays de controles, se programa el mismo evento para todos los elementos.
Private Sub Command1_Click (Index as Integer)
End Sub
Dentro del evento, puedes identidicar con el Index sobre que elemento se ha disparado el evento.
Saludos