passer un formulaire ou un ensemble de collection en parametre de fonction

Bonjour,

J'ai une fonction qui réalise

Code:

---

1 2 3 4

sub mafonction() TextBox2.Text = "Affaire" TextBox3.Text = "Client"

---

par exemple.

J'aimerai appeler cette fonction plusieurs fois et qu'elle s'exécute sur différents formulaires.

Afin de pouvoir faire ceci:

Code:

---

1 2 3 4

sub mafonction(frm as form) frm.TextBox2.Text = "Affaire" frm.TextBox3.Text = "Client"

---

Et ensuite appelé ma fonction au sein de mon formulaire par : mafonction(Me)

Or j'obtiens l'erreur:

Citation:

---

Erreur 1 Une valeur de type 'System.Windows.Forms.Control.ControlCollection' ne peut pas être convertie en 'System.Windows.Forms.Form'. C:\TEP2E Access\Gestion des affaires VB\Gestion des affaires VB\proposition2.vb 50 45 Gestion des affaires VB

---

Merci

Coucou,
J'ai peut-être bien une réponse pour toi :

Tu ajoute un module dans ton projet :

Code:

---

1 2 3 4 5 6

Module Module1 Public Sub essai(ByRef texte As String) texte = "essai" End Sub End Module

---

Et ensuite tu peux appeler cette fonction dans toutes les forms de ton projet :

Code:

---

1 2 3 4 5 6 7 8

Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim t1 As String = Nothing essai(t1) TextBox1.Text = t1 End Sub End Class

---

Code:

---

1 2 3 4 5 6 7 8

Public Class Form2 Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim t1 As String = Nothing essai(t1) TextBox1.Text = t1 End Sub End Class

---

J'espère que ça a répondu à ton problème

Bonjour.

Si t'es form possédent des propriétés ou des méthodes communes, tu peux les faire hériter d'un même objet de type Form (ça me semble plus dans la philosophie POO).

Sinon, tu peux aussi passer directement le Textbox dans les paramétres de la sub.

Cdt.