Programación General > Visual Basic 6.0 e inferiores

 Como Limpiar Textbox Y Combos

<< < (3/4) > >>

Soultaker:

--- 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
--- Fin de la cita ---
Bueno para eso puedes usar este codigo


--- Código: Text ---Dim obj As ControlFor 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 IfNext 
 :comp:

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

Makko:

--- Cita de: "zetaperu" --- cuentame como harias para limpiar un combo con style 2, usarias alguna api?
 :comp:  ZETAPERU
--- Fin de la cita ---
Ya te dijeron como solucionar eso.!  :kicking:

zetaperu:
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:

cpmario:
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 ctlTempEnd Sub  :comp:

Navegación

[0] Índice de Mensajes

[#] Página Siguiente

[*] Página Anterior