Cita:
Iniciado por lena28
joooooooooooooooooo no me sale
Private Sub nuevoboton_Click()
Dim i As Integer
numControles = cmdBoton.Count
Load cmdBoton(numControles)
cmdBoton(numControles).Visible = True
cmdBoton(numControles).Left = cmdBoton(numControles - 1).Left
cmdBoton(numControles).Top = cmdBoton(numControles - 1).Top + 720
i = cmdVerDatos.Item(numControles).Index 'Para probar que el indice lo coge
MsgBox i
End Sub
' El boton con indice 0 es el que hay ya creado, el 1 lo creo dinamicamente
' con el procedimiento anterior
Private Sub cmdBoton_Click(Index As Integer)
Select Case (Index)
Case 0
MsgBox "Has pulsado 0" 'Para probar pongo msgbox
Case 1 'En este no hace nada, no lo detecta
MsgBox "Has pulsado 1"
End Select
End Sub
Mira a ver si es que hago algo mal, es que el contador lo hace bien.
Gracias David
Hola, es curioso, acabo de copiar en un nuevo proyecto ese código, y me funciona sin problemas.
Pon esta instrucción a ver si dá el número de controles:
Private Sub cmdBoton_Click(Index As Integer)
MsgBox cmdBoton.Count
Select Case (Index)
...