Controles dinamicos

gabo23
02 de Junio del 2006
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

mvallejos
02 de Junio del 2006
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