Visual Basic - Limpiar varios Textbox

Life is soft - evento anual de software empresarial
   
Vista:

Limpiar varios Textbox

Publicado por Alejandro (3 intervenciones) el 15/06/2010 07:24:38
Hola foro,

quisiera hacer una funcion o procedimiento en el cual tomar como parametro un objeto que no se si seria de tipo object o controls y asi invocarlo desde cualquier form NO importando la cantidad de textbox que hayan en el form, o sea, que pueden ser 2 o 30.
Espero haber sido claro.

desde ya Muchas gracias.

Alejandro
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:Limpiar varios Textbox

Publicado por Iñaki (502 intervenciones) el 15/06/2010 14:15:45
Mediante la propiedad "controls.count" puedes obtener el numero de controles que hay en un formulario.

Ejemp. N_controles = Form1.controls.count

si en los formularios creas los controles de acuerdo a un patron

Txtxxxxxx, para cuadros de texto
Lblxxxx, para etiquetas .......
Grdxxxx , para rejillas de datos

Puedes obtener cuantos controles hay , de que tipo, poner texto, etc ....

for i = 1 to n_controles
nombre_control = form1.controls(i-1).name
if mid(nombre_control,1,3) = "Txt" then
form1.controls(i-1).text = ""
end if
next
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:Limpiar varios Textbox

Publicado por JoaoM (1 intervención) el 01/06/2012 03:15:08
En excel 2010, en hoja1 tengo un tablero (no formulario) el cual tengo uno de los butones para lipiar, el codigo que tengo es este
1
2
3
4
5
6
7
8
9
10
11
12
13
Rem Limpia los TextBox y 1 ComboBox
ComboBox1.Text = ""
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
TextBox5.Value = ""
TextBox6.Value = ""
TextBox7.Value = ""
TextBox9.Value = ""
TextBox10.Value = ""
TextBox12.Value = ""
TextBox13.Value = ""


y tengo este tambien pero me da error en la linea 'For Each Clear In Sheets(1).Controls
1
2
3
4
5
6
7
Rem Vacia solamente los TextBox
'Dim Clear 'variable para los controles TextBox
'For Each Clear In Sheets(1).Controls 
'If TypeName(Clear) = "TextBox" Then 'verificamos que sea SOLO control Textbox
'Clear.Value = "" 'Limpiamos los TextBox
'End If
'Next


Algo se puede hacer? para reduci lineas a su maxima expresion?, es decir, no tener tantas lineas en el codigo
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