Discussion :

[Mandarine]

Bonjour,

J'ai une fonction qui réalise

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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:

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

[PtiteDéveloppeuse]

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

Tu ajoute un module dans ton projet :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[olsimare]

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.