Imprimir Página - Como Limpiar Textbox Y Combos

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: neorent en Miércoles 8 de Marzo de 2006, 17:35

Título: Como Limpiar Textbox Y Combos
Publicado por: neorent en Miércoles 8 de Marzo de 2006, 17:35

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:

Título: Re: Como Limpiar Textbox Y Combos
Publicado por: masticor en Miércoles 8 de Marzo de 2006, 17:57

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

Título: Re: Como Limpiar Textbox Y Combos
Publicado por: Makko en Miércoles 8 de Marzo de 2006, 17:58

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

Código: Text

Private Sub Limpiar(ByVal parentCtr As Control)
Dim ctr As Control
For Each ctr In parentCtr.Controls
If TypeOf ctr Is TextBox Then
ctr.Text = &#34;&#34;
Else
If TypeOf ctr Is ComboBox Then
DirectCast(ctr, ComboBox).SelectedIndex = -1
End If
doclean(ctr)
Next
End Sub
 

No lo probe, pero esa es la idea.
Saludos
Makko.

Título: Re: Como Limpiar Textbox Y Combos
Publicado por: neorent en Miércoles 8 de Marzo de 2006, 18:01

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

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

Título: Re: Como Limpiar Textbox Y Combos
Publicado por: neorent en Miércoles 8 de Marzo de 2006, 18:08

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 Control
For Each ctr In parentCtr.Controls
If TypeOf ctr Is TextBox Then
ctr.Text = ""
Else
If TypeOf ctr Is ComboBox Then
DirectCast(ctr, ComboBox).SelectedIndex = -1
End If
doclean(ctr)
Next
End Sub

No lo probe, pero esa es la idea.
Saludos
Makko.

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

Título: Re: Como Limpiar Textbox Y Combos
Publicado por: Sagutxo en Miércoles 8 de Marzo de 2006, 18:45

Salu2.
El combo lo puedes borrar así de simple Combo.Clear
agur
:comp: :smartass: :comp:

Título: Re: Como Limpiar Textbox Y Combos
Publicado por: neorent en Miércoles 8 de Marzo de 2006, 19:28

Cita de: "Sagutxo"

Salu2.
El combo lo puedes borrar así de simple Combo.Clear
agur
:comp: :smartass: :comp:

hola bueno eso ya lo sabia lo que quiero saber si existe una funcion que me limpie todos los textbox y todos lo combo de un solo click

Título: Re: Como Limpiar Textbox Y Combos
Publicado por: cpmario en Miércoles 8 de Marzo de 2006, 21:09

No existe ninguna función específica para lo que deseas, la mejor rutina que puedes hace es algo parecido a lo que nos dice Makko.

Prueba esta rutina:

Código: Text

 
Public Sub LimpiarControles(Obj As Form)
    Dim ctlTemp As Control
    For Each ctlTemp In Obj.Controls
        If TypeOf ctlTemp Is TextBox Then
            ctlTemp.Text = &#34;&#34;
        End If
        If TypeOf ctlTemp Is ComboBox Then
            ctlTemp.Text = &#34;&#34;
            ctlTemp.Clear
        End If
    Next ctlTemp
End Sub
 

Puedes llamar esta rutina con un botón comando, desde la forma que necesites limpiar, de la siguiente manera:

Código: Text

 
Private Sub Command1_Click()
    Call LimpiarControles(Me)
End Sub
 

:comp:

Título: Re: Como Limpiar Textbox Y Combos
Publicado por: neorent en Miércoles 8 de Marzo de 2006, 21:49

Cita de: "cpmario"

No existe ninguna función específica para lo que deseas, la mejor rutina que puedes hace es algo parecido a lo que nos dice Makko.

Prueba esta rutina:
Código: Text

Public Sub LimpiarControles(Obj As Form)
   Dim ctlTemp As Control
   For Each ctlTemp In Obj.Controls
   If TypeOf ctlTemp Is TextBox Then
   ctlTemp.Text = ""
   End If
   If TypeOf ctlTemp Is ComboBox Then
   ctlTemp.Text = ""
   ctlTemp.Clear
   End If
   Next ctlTemp
End Sub

Puedes llamar esta rutina con un botón comando, desde la forma que necesites limpiar, de la siguiente manera:
Código: Text

Private Sub Command1_Click()
   Call LimpiarControles(Me)
End Sub

:comp:

hola cpmario bueno te agradesco mucho la ayuda acabo de probar el codigo esta super bien era justo lo que necesitaba bueno es que no conosco mucho jejeje pero eso no sabia pero les agradesco mucho la ayuda adios y que esten bien

Título: Re: Como Limpiar Textbox Y Combos
Publicado por: zetaperu en Viernes 10 de Marzo de 2006, 00:28

Saludos.... mira esa es la solucion pero ten cuidado.... que cuando quieras limpiar un combo con style 2 te botara error por ser la propiedad text de solo lectura, asi que recomiedo trabajar con style 0

Título: Re: Como Limpiar Textbox Y Combos
Publicado por: Soultaker en Viernes 10 de Marzo de 2006, 02:14

Cita de: "zetaperu"

Saludos.... mira esa es la solucion pero ten cuidado.... que cuando quieras limpiar un combo con style 2 te botara error por ser la propiedad text de solo lectura, asi que recomiedo trabajar con style 0

Bueno para eso puedes usar este codigo

Código: Text

Dim obj As Control
For Each obj In Me.Controls
    If TypeOf obj Is TextBox Then obj.Text = &#34;&#34;
    If TypeOf obj Is ComboBox Then
        If obj.Style &#60;&#62; 2 Then
            obj.Text = &#34;&#34;
            obj.Clear
        End If
    End If
Next
 

:comp:

Título: Re: Como Limpiar Textbox Y Combos
Publicado por: zetaperu en Viernes 10 de Marzo de 2006, 02:59

cuentame como harias para limpiar un combo con style 2, usarias alguna api?
:comp: ZETAPERU

Título: Re: Como Limpiar Textbox Y Combos
Publicado por: Makko en Viernes 10 de Marzo de 2006, 03:52

Cita de: "zetaperu"

cuentame como harias para limpiar un combo con style 2, usarias alguna api?
:comp: ZETAPERU

Ya te dijeron como solucionar eso.! :kicking:

Título: Re: Como Limpiar Textbox Y Combos
Publicado por: zetaperu en Viernes 10 de Marzo de 2006, 23:12

Parece que no sabes lo que comentas Makko, te invito a que pruebes esa rutina y despues opina, no confundamos a las personas que lean este tema y hagamos apreciaciones correctas..... ;)
Alguien que pueda demostrar como limpiar los controles que tengamos en un form cuando configuremos un combobox con style=2, estoy tratando de crear una rutina que limpie ese tipo de combo pero utilizando API.... si alguien lo tuviera, aver si se animan a compartir vuestro código.

ZETAPERU :comp: :hola:

Título: Re: Como Limpiar Textbox Y Combos
Publicado por: cpmario en Viernes 10 de Marzo de 2006, 23:52

Lo que hace falta un manejo de error para resolver el problema y limpiar todo tipo de estilo de combos.

Código: Text

Public Sub LimpiarControles(Obj As Form)
    Dim ctlTemp As Control
    For Each ctlTemp In Obj.Controls
        On Error Resume Next
        If TypeOf ctlTemp Is TextBox Then
            ctlTemp.Text = &#34;&#34;
        End If
        If TypeOf ctlTemp Is ComboBox Then
            ctlTemp.Text = &#34;&#34;
            ctlTemp.Clear
        End If
    Next ctlTemp
End Sub
 

:comp:

Título: Re: Como Limpiar Textbox Y Combos
Publicado por: luciano2 en Domingo 29 de Abril de 2007, 12:18

Aunque se puede acceder al borrado del combo o cajas de texto. con SenMessage ( no se como )

.. no es necesario usar un api para este caso

solamente tenés que indicar el ListIndex del cbo en -1

Combo1.ListIndex = -1

saludos

------------------------------------------------------

Recursos visual basic (http://www.recursosvisualbasic.com.ar)

SoloCodigo

Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: neorent en Miércoles 8 de Marzo de 2006, 17:35