Limpia todos los campos de un formulario
Limpia el contenido de todos los campos de un formulario sin necesidad de limpia uno a uno.
Private Sub limpia_todo()
For Each x As Control In Me.Controls
If TypeOf x Is TextBox Then
x.Text = "" ' limpia todos lo textbox
End If
If TypeOf x Is ComboBox Then
x.Text = "" ' limpia todos los combobox
End If
If (TypeOf (x) Is CheckBox) Then
CType(x, CheckBox).Checked = False 'pone como FALSE todos los checkbox
End If
If TypeOf x Is DateTimePicker Then
x.Text = Date.Today ' limpia fecha de los datetimepicker
End If
Next
End Sub
Private Sub limpia_todo()
For Each x As Control In Me.Controls
If TypeOf x Is TextBox Then
x.Text = "" ' limpia todos lo textbox
End If
If TypeOf x Is ComboBox Then
x.Text = "" ' limpia todos los combobox
End If
If (TypeOf (x) Is CheckBox) Then
CType(x, CheckBox).Checked = False 'pone como FALSE todos los checkbox
End If
If TypeOf x Is DateTimePicker Then
x.Text = Date.Today ' limpia fecha de los datetimepicker
End If
Next
End Sub
Limpia todos los campos de un formulario
Creador por hugoxoft
el
10:30
Clasificación:
No hay comentarios.: