Muitas vezes temos de escrever rotinas para executar tarefas, mas devemos antes analisar com qual freqüência esta rotina será usada em nosso sistema ou sistemas.
Assim devemos sempre buscar rotinas com maior abstração possível com o intuito de utiliza – lá mais vezes.
Por este motivo vou postar hoje uma rotina que o ajudará a limpar os campos de seu formulário após uma inclusão ou alteração.
Caso tenha duvidas na utilização da rotina acesse nosso fórum e crie um tópico com suas duvidas, assim poderemos direcionar nossa resposta a sua necessidade.
Rotina Limpa Campos.
Private Sub btnLimpaCampos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLimpaCampos.Click
Dim formulario As Object
formulario = Me
limpaCampos(formulario)
End Sub
Obs: Se estiver usando um Groupbox, passe como paramento o nome do seu Groupbox
no lugar do Me.
formulario =Groupbox1
Por exemplo.
O procedimento (Sub) a baixo foi criado em um modulo para facilitar sua utilização em diversos formulários, sendo assim é possível fazer a sua chamada em um procedimento de botão ou mesmo no on-load de um formulário. Lembre-se de passar como parâmetro o formulário que a rotina deve ser executada. No exemplo abaixo coloquei uma chamada que pode ser usado em qualquer formulário sem ser necessário passar o nome deste formulario, usando para isso o ‘ Me ‘ Procedimento do Botão Limpa Campos.
Sub limpaCampos(ByVal formulario As Object)
Dim oObj As New Object
With formulario
For Each oObj In .Controls
If TypeOf oObj Is MaskedTextBox Or TypeOf oObj Is ComboBox Or TypeOf oObj Is TextBox Then
oObj.Text = Nothing
oObj.Focus()
End If
Next
End With
End Sub
