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
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~