Discussion :

[jacko842]

Bonjour je voudrais faire la meme chose :

Code :

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

1
2
3
4
 
Private Sub frm_recherche_VisibleChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.VisibleChanged
        Call txt_nom_rech_TextChanged(sender, e)
    End Sub

Mais depuis une procédure?

Merci

[Skalp]

Je n'ai pas bien compris ce qu'est censé faire le bout de code que tu donnes.
Qu'entends-tu par "depuis une procédure" ?

[methylene]

Si je comprend bien tu souhaites appeler une procédure (je suppose un sub), et ceci en dehors d'un sub, c'est à dire directement dans la classe elle-même ?

Il me semble que cela n'est pas possible, mais il te suffit d'appeler ta procédure dans l'évènement Load de ta form, et par conséquent la procédure sera appelée directement au chargement de ta form.

De plus il faut savoir que la commande "call" n'est pas obligatoire pour appeler une procédure :

Code :

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

1
2
3
Private Sub frm_recherche_VisibleChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.VisibleChanged
         txt_nom_rech_TextChanged(sender, e)
    End Sub

,fonctionne également, cependant pour le code il est plus clair d'avoir la balise "call" pour une compréhension plus simple.

De plus pour appeler une procédure contenu dans une autre form, il est nécessaire de mettre le nom de la form devant la procédure :

si la form où l'on appelle la procédure (form1) n'est pas parent de la form contenant la procédure (form2) :

Code :

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

1
2
3
4
5
6
7
Public class Form1
 
Private Sub frm_recherche_VisibleChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.VisibleChanged
         Form2.txt_nom_rech_TextChanged(sender, e)
    End Sub
 
End Class

si la form où l'on appelle la procédure (form1) est parent de la form contenant la procédure (form2) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public class Form1
 
Public Sub Form1_Load (ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
 
Form2.MdiParent = Me
 
End Sub
 
 
Private Sub frm_recherche_VisibleChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.VisibleChanged
         txt_nom_rech_TextChanged(sender, e)
    End Sub
 
End Class

(Valable également si la procédure est comprise dans un module)

En espérant t'avoir aidé.

[jacko842]

Merci de votre aide.