Visual Basic para Aplicaciones - Recorrer controles

Life is soft - evento anual de software empresarial
 
Vista:

Recorrer controles

Publicado por Jasall (2 intervenciones) el 29/05/2006 20:08:05
Buenas, alguien sabe como recorrer controles , el problema es que no se puede crear un arreglo de controles, y para borrar unos 100 TextBox ... como se puede hacer.

lo he probado como seria en visual basic y con alguna api, y no hay manera..

Saludos
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Recorrer controles

Publicado por carlos (55 intervenciones) el 30/05/2006 23:10:00
Coloca un botón de comando con el siguiente código:
Private Sub CommandButton1_Click()
Dim control As control

For Each control In Controls
If control = TextBox Then
'lo que quieras hacer con él
End If
Next control
End Sub

Lee la ayuda para ver lo que se puede y lo que no se puede hacer con los controles.
Suerte
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Recorrer controles

Publicado por Jasall (2 intervenciones) el 31/05/2006 19:53:36
No me funciona "eror, se requiere un objeto"

saludos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Recorrer controles

Publicado por JuanC (243 intervenciones) el 01/06/2006 01:13:07
'Ejemplo que recorre controles dentro del Form1 y muestra el Tag de cada uno

Dim Ctrl As Control

For Each Ctrl In Form1.Controls
MsgBox Ctrl.Tag
Next

'Saludos desde Baires, JuanC

PD: en lugar de Form1 puede ser un Frame1 que agrupe
los controles a "trabajar"
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Recorrer controles

Publicado por Jasall (1 intervención) el 02/06/2006 00:01:36
Me sigue sin funcionar

Private Sub CommandButton1_Click()
Dim control As control

For Each control In ThisDocument.Controls
If control = TextBox Then
TextBox1 = "lo que quieras hacer con él"
End If
Next control
End Sub
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Recorrer controles

Publicado por carlos (55 intervenciones) el 23/06/2006 17:44:02
Prueba ésto, sí funciona:
Private Sub CommandButton1_Click()
Dim miControl As String

For Each Control In Controls
miControl = Mid(Control.Name, 1, 3) 'se fija cómo empieza el nombre
If miControl = "txt" Then 'si empieza con txt
MsgBox "Es un Text Box"
Else 'si empieza con otras letras
MsgBox "No es un TextBox"
End If
Next Control

End Sub

La única condición para que funcione es que los nombres que hayas puesto a losTextBox empiecen con "txt"
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar