ROTINA
Ola Pessoal, devo estar com aminézia pois não consigo lembrar o que fazer, nesse caso, por favor me ajudem.
vamos supor que tenho as seguintes linhas:
nome.text = [Ô][Ô]
end.text = [Ô][Ô]
bairro.text = [Ô][Ô]
cidade.text = [Ô][Ô]
uf.text = [Ô][Ô]
pais.text = [Ô][Ô]
telefone.text = [Ô][Ô]
não gostaria que toda vez que fosse preciso usa-la ter que digitar tudo novamente, gostaria de coloca-la em algum lugar e que fosse possivel usá-la em todo o programa, basta chama-la: call limpar
o que devo fazer?
vamos supor que tenho as seguintes linhas:
nome.text = [Ô][Ô]
end.text = [Ô][Ô]
bairro.text = [Ô][Ô]
cidade.text = [Ô][Ô]
uf.text = [Ô][Ô]
pais.text = [Ô][Ô]
telefone.text = [Ô][Ô]
não gostaria que toda vez que fosse preciso usa-la ter que digitar tudo novamente, gostaria de coloca-la em algum lugar e que fosse possivel usá-la em todo o programa, basta chama-la: call limpar
o que devo fazer?
Sub Limpar()
nome.text = [Ô][Ô]
end.text = [Ô][Ô]
bairro.text = [Ô][Ô]
cidade.text = [Ô][Ô]
uf.text = [Ô][Ô]
pais.text = [Ô][Ô]
telefone.text = [Ô][Ô]
End Sub
[ô] Para chamar
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Call Me.Limpar()
End Sub
nome.text = [Ô][Ô]
end.text = [Ô][Ô]
bairro.text = [Ô][Ô]
cidade.text = [Ô][Ô]
uf.text = [Ô][Ô]
pais.text = [Ô][Ô]
telefone.text = [Ô][Ô]
End Sub
[ô] Para chamar
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Call Me.Limpar()
End Sub
mas gostaria de coloca-la em um module ou um class, não sei ao certo...
e que em qualquer form que eu chamasse e fosse aceito.
e que em qualquer form que eu chamasse e fosse aceito.
Veja o exemplo em axexo...
[ô] Dentro do seu Form
Public Class Form1
Private Recurso As New clsRecursos
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Recurso.Limpar()
End Sub
End Class
[ô][ô][ô] <summary>
[ô][ô][ô] Classe de recursos
[ô][ô][ô] </summary>
[ô][ô][ô] <remarks></remarks>
Public Class clsRecursos
[ô][ô][ô] <summary>
[ô][ô][ô] Limpa os campos do Form1
[ô][ô][ô] </summary>
[ô][ô][ô] <remarks></remarks>
Public Sub Limpar()
Form1.TextBox1.Clear()
Form1.TextBox2.Clear()
Form1.TextBox3.Clear()
Form1.TextBox4.Clear()
Form1.TextBox5.Clear()
End Sub
End Class
Amigo, é muito fácil de fazer isso. Não precisa nem de módulo se vc não quiser. Suponha q vc tenha uma aplicação com Form1 e Form2. Vc colocou a TextBox1 no Form1 e o Button1 no Form2.
Basta vc inserir o seguinte código no Button1_Click:
My.Forms.Form1.TextBox1.Text = [Ô][Ô]
q=
Basta vc inserir o seguinte código no Button1_Click:
My.Forms.Form1.TextBox1.Text = [Ô][Ô]
q=
Tópico encerrado , respostas não são mais permitidas