Appeler un module dans une autre Form
nedra1441
-
Heliotte Messages postés 1561 Statut Membre -
Heliotte Messages postés 1561 Statut Membre -
Bonjour,
Je suis débutante sur vb.net.
J'ai dans mes interfaces deux formes. Dans la première j'ai fais un textbox1 pour que l'utilisateur fasse un saisie. Je voudrais faire apparaître ce saisie dans une autre form dans un autre textbox2. J'ai fais un module.
//Module Module1
Public doc as string
end module//
Dans la form1 jai mis doc = textbox1.text
et dans form2 jai mis textbox2.text=doc
ca ne marche pas pouvez vous m'aidez svp
Je suis débutante sur vb.net.
J'ai dans mes interfaces deux formes. Dans la première j'ai fais un textbox1 pour que l'utilisateur fasse un saisie. Je voudrais faire apparaître ce saisie dans une autre form dans un autre textbox2. J'ai fais un module.
//Module Module1
Public doc as string
end module//
Dans la form1 jai mis doc = textbox1.text
et dans form2 jai mis textbox2.text=doc
ca ne marche pas pouvez vous m'aidez svp
2 réponses
Bonsoir nedra1441,
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Form1,
TextBox1.Text = Duchemol
TransfereMonTexte(TextBox1.Text)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Module,
Friend Sub TransfereMonTexte(ByVal Doc As String)
Form2.TextBox2.Text=Doc
End Sub
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
et dans la form Form2,
la TextBox, TextBox2.Text vaut Duchemol
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Form1,
TextBox1.Text = Duchemol
TransfereMonTexte(TextBox1.Text)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Module,
Friend Sub TransfereMonTexte(ByVal Doc As String)
Form2.TextBox2.Text=Doc
End Sub
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
et dans la form Form2,
la TextBox, TextBox2.Text vaut Duchemol
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Si c'est une référence permanente,
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Form1,
TextBox1.Text = Duchemol
TransfereMonTexte(TextBox1.Text)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Form2,
TextBox2.Text = Form1.TextBox1.Text
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
et dans la form Form2,
la TextBox, TextBox2.Text vaut Duchemol
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Form1,
TextBox1.Text = Duchemol
TransfereMonTexte(TextBox1.Text)
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Form2,
TextBox2.Text = Form1.TextBox1.Text
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
et dans la form Form2,
la TextBox, TextBox2.Text vaut Duchemol
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~