CLASSE PARA LIMPAR OBJETOS DO FORM

WEBSTERGONTIJO 15/12/2010 07:40:59
#359580

Classe que fiz para limpar os objetos do form



public Shared Sub LimpaFormulario(ByVal sender As Object)
[ô]Executa uma varredura nos componentes do formulário, limpando os controles e desativa o form--
Dim I As Integer
For I = 0 To sender.controls.count() - 1
If (sender.controls.item(I).GetType Is GetType(GroupBox)) Or (sender.controls.item(I).GetType Is GetType(Panel)) Or _
(sender.controls.item(I).GetType Is GetType(TabControl)) Or (sender.controls.item(I).GetType Is GetType(TabPage)) Or _
(sender.controls.item(I).GetType Is GetType(ListView)) Then
pLimpaFormulario(sender.controls.item(I))
Else
If sender.controls.item(I).GetType Is GetType(TextBox) Then
sender.controls.item(I).Text = [Ô][Ô]
End If
If sender.controls.item(I).GetType Is GetType(MaskedTextBox) Then
sender.controls.item(I).ctLText = Replace(sender.controls.item(I).text, [Ô]#[Ô], [Ô]_[Ô])

End If
If sender.controls.item(I).GetType Is GetType(ComboBox) Then
sender.controls.item(I).SelectedIndex = -1
End If
End If
Next
End Sub


Para a galera que fica limpando manual , ta ai uma soluçao rapida e eficiente