Clonar todos los textbox de un formulario
Publicado por Alain (2 intervenciones) el 25/10/2016 20:47:48
Buenas.
Tengo una terrible duda que me tiene 3 dias obsesionado. Aunque al final lo he hecho a lo bestia y los he clonado uno por uno, tiene que haber una forma mas eficiente de hacerlo. He buscado en todos los rincones de internet y nada...
Este es el codigo que deberia funcionar pero no lo hace:
Lo hace todo menos la linea importante, el LOAD. Me da error 344 - Debe especificar el indice para la matriz de objetos. Pero no es la variable indice porque aunque ponga un 1 o un 0 sigue dandome el mismo error.
En las propiedades el textbox tiene el indice a 0. Aunque use el .Name tampoco va.
Por favor ayuda!!!
GRacias.
Tengo una terrible duda que me tiene 3 dias obsesionado. Aunque al final lo he hecho a lo bestia y los he clonado uno por uno, tiene que haber una forma mas eficiente de hacerlo. He buscado en todos los rincones de internet y nada...
Este es el codigo que deberia funcionar pero no lo hace:
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Command1_Click()
Dim Indice As Integer
Indice = 0 For Each x In Form.ControlsIf TypeOf x Is TextBox Then
Load x(Indice)
x(Indice).Left = 50
x(Indice).Visible = True
Indice = Indice + 1
End If
Next x
End Sub
Lo hace todo menos la linea importante, el LOAD. Me da error 344 - Debe especificar el indice para la matriz de objetos. Pero no es la variable indice porque aunque ponga un 1 o un 0 sigue dandome el mismo error.
En las propiedades el textbox tiene el indice a 0. Aunque use el .Name tampoco va.
Por favor ayuda!!!
GRacias.
Valora esta pregunta
0