Programación General > Visual Basic 6.0 e inferiores

 Como Limpiar Textbox Y Combos

(1/4) > >>

neorent:
hola a todos como estan espero que bien bueno aqui estoy de nuevo con una consulta resulta que tengo varios textbox y combobox y resulta que quiero hacer un boton que limpie todo estos textbox, mi pregunta es habra alguna funcion que limpie todos los combo y los text si estar escribiendo text1.text ="", combo1.text="" si alguien conoce alguna manera de hacerlo seria genial les dejo esta pregunta mientras seguire buscando la respuesta si la encuentro la publico gracias a todos adios :hola:

masticor:
tienes que crear una matris con todos los text y otra para todo los cobos
despues de eso solo escribes algo por el estilo

For a=1 to x 'x es cuentos textos tengas
 text(a).text = ""
next a

Makko:
Mmmm  lo estoy haciendo rapido a esto, proba con algo asi:


--- Código: Text ---Private Sub Limpiar(ByVal parentCtr As Control)Dim ctr As ControlFor Each ctr In parentCtr.ControlsIf TypeOf ctr Is TextBox Thenctr.Text = ""ElseIf TypeOf ctr Is ComboBox ThenDirectCast(ctr, ComboBox).SelectedIndex = -1End Ifdoclean(ctr)NextEnd Sub 
No lo probe, pero esa es la idea.
Saludos
Makko.

neorent:

--- Cita de: "masticor" --- tienes que crear una matris con todos los text y otra para todo los cobos
despues de eso solo escribes algo por el estilo

For a=1 to x 'x es cuentos textos tengas
 text(a).text = ""
next a
--- Fin de la cita ---
hola gracias por tu ayuda pero sabes todo los texbox y combo tienen nombres distinto por ejemplo txtcodigo cmbapellidos por decir algo gracias por tu ayuda pero eso lo dejare para cuando tenga que hacer otro sistema gracis por la ayuda

neorent:

--- Cita de: "Makko" --- Mmmm  lo estoy haciendo rapido a esto, proba con algo asi:


--- Código: Text ---Private Sub Limpiar(ByVal parentCtr As Control)Dim ctr As ControlFor Each ctr In parentCtr.ControlsIf TypeOf ctr Is TextBox Thenctr.Text = ""ElseIf TypeOf ctr Is ComboBox ThenDirectCast(ctr, ComboBox).SelectedIndex = -1End Ifdoclean(ctr)NextEnd Sub 
No lo probe, pero esa es la idea.
Saludos
Makko.
--- Fin de la cita ---
hola gracias por la ayuda pero no se donde debo aplicarlo jajaja pero en fin gracias por la ayuda lo probare y te comento muchas gracias

Navegación

[0] Índice de Mensajes

[#] Página Siguiente