-Siempre nos vemos con la necesidad de limpiar los controles de nuestros formularios, así que ahí le vas un poco de código de como hacerlo:
-Limpiando textbox
'recorremos los controles de nuestro formulario
For Each oControl As Control In Me.Controls
oControl.Text = ""
Next
-Limpiando textboxes, comboboxes y checkboxes
'recorremos los controles de nuestro formulario
For Each oControl As Control In Me.Controls
If TypeOf oControl Is TextBox Then 'si es textbox limpiamos
oControl.Text = ""
ElseIf TypeOf oControl Is ComboBox Then 'si es combobox instanciamos variable combobox
Dim oControl2 As ComboBox = oControl 'pasamos control a variable combobox creada para tener acceso a las propiedades del control
oControl2.SelectedIndex = -1 'damos posicion -1
ElseIf TypeOf oControl Is CheckBox Then
Dim oControl2 As CheckBox = oControl 'igual que con combobox -'pasamos control a variable combobox creada para tener acceso a las propiedades del control
oControl2.Checked = False
End If
Next
-Tambien les puede pasarde que los coontroles se encuentran en un panel, entonces no funcionaria
el codigo anterior ya que solo recorreria los panes que estan dentro del form y no los controles que
queremos limpiar. Viendo esto se tendria que proceder de la siguiente forma :
For Each oControl As Control In Me.Controls("Panel1").Controls 'lo unico que agregariamos seria esto "Controls("Panel1").Controls" para acceder al panel(se debe poner el nombre del panel o index de este) y sus controles
If TypeOf oControl Is TextBox Then 'si es textbox limpiamos
oControl.Text = ""
ElseIf TypeOf oControl Is ComboBox Then 'si es combobox instanciamos variable combobox
Dim oControl2 As ComboBox = oControl 'pasamos control a variable combobox creada para tener acceso a las propiedades del control
oControl2.SelectedIndex = -1 'damos posicion -1
ElseIf TypeOf oControl Is CheckBox Then
Dim oControl2 As CheckBox = oControl 'igual que con combobox -'pasamos control a variable combobox creada para tener acceso a las propiedades del control
oControl2.Checked = False
End If
Next
-Espero que este primer post le sea de mucha ayuda, si creen que deberían agregar algo podrían comentar.
Buenas tardes
-Limpiando textbox
'recorremos los controles de nuestro formulario
For Each oControl As Control In Me.Controls
oControl.Text = ""
Next
-Limpiando textboxes, comboboxes y checkboxes
'recorremos los controles de nuestro formulario
For Each oControl As Control In Me.Controls
If TypeOf oControl Is TextBox Then 'si es textbox limpiamos
oControl.Text = ""
ElseIf TypeOf oControl Is ComboBox Then 'si es combobox instanciamos variable combobox
Dim oControl2 As ComboBox = oControl 'pasamos control a variable combobox creada para tener acceso a las propiedades del control
oControl2.SelectedIndex = -1 'damos posicion -1
ElseIf TypeOf oControl Is CheckBox Then
Dim oControl2 As CheckBox = oControl 'igual que con combobox -'pasamos control a variable combobox creada para tener acceso a las propiedades del control
oControl2.Checked = False
End If
Next
-Tambien les puede pasarde que los coontroles se encuentran en un panel, entonces no funcionaria
el codigo anterior ya que solo recorreria los panes que estan dentro del form y no los controles que
queremos limpiar. Viendo esto se tendria que proceder de la siguiente forma :
For Each oControl As Control In Me.Controls("Panel1").Controls 'lo unico que agregariamos seria esto "Controls("Panel1").Controls" para acceder al panel(se debe poner el nombre del panel o index de este) y sus controles
If TypeOf oControl Is TextBox Then 'si es textbox limpiamos
oControl.Text = ""
ElseIf TypeOf oControl Is ComboBox Then 'si es combobox instanciamos variable combobox
Dim oControl2 As ComboBox = oControl 'pasamos control a variable combobox creada para tener acceso a las propiedades del control
oControl2.SelectedIndex = -1 'damos posicion -1
ElseIf TypeOf oControl Is CheckBox Then
Dim oControl2 As CheckBox = oControl 'igual que con combobox -'pasamos control a variable combobox creada para tener acceso a las propiedades del control
oControl2.Checked = False
End If
Next
-Espero que este primer post le sea de mucha ayuda, si creen que deberían agregar algo podrían comentar.
Buenas tardes
Comentarios
Publicar un comentario