OVH Cloud OVH Cloud

Comment déclencher un sub d'évènement depuis un autre sub ?

2 réponses
Avatar
Yan
Bonjour à tous,

Je cherche à déclencher un sub d'évènement depuis un autre sub.

Au déclenchement de l'évènement activated d'un form, je récupère des
informations contenu dans une base de données, et je les affiche dans un
datagrid. jusque là, tout va bien.

Ensuite, j'insert des valeurs dans ma base à partir d'un bouton et
j'aimerais que mon datagrid ce recharge pour ce réactualiser en appelant le
sub activated.

J'ai pensé faire un truc dans ce genre là, mais ça ne marche pas :

Private Sub frm_ajout_profil_Activated(ByVal sender As Object, ByVal e As
System.EventArgs) Handles MyBase.Activated
' Affichage des mes données
end sub

Private Sub btn_ajouter_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btn_ajouter.Click
call frm_ajout_profil_Activated()
End sub

Merci d'avance pour votre aide,
Yan

2 réponses

Avatar
nesserb
Bonjour ,

Private Sub btn_ajouter_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btn_ajouter.Click
call frm_ajout_profil_Activated()
End sub

call frm_ajout_profil_Activated()
Tu n'est pas obligé d'utiliser Call

frm_ajout_profil_Activated(me,nothing)

Devrais fonctionner car dans ta Sub tu attend 2 arguments !

En esperant t'avoir aider.
Bon Courage !

----------------------------------------------------------------------------
--------
Bonjour à tous,

Je cherche à déclencher un sub d'évènement depuis un autre sub.

Au déclenchement de l'évènement activated d'un form, je récupère des
informations contenu dans une base de données, et je les affiche dans un
datagrid. jusque là, tout va bien.

Ensuite, j'insert des valeurs dans ma base à partir d'un bouton et
j'aimerais que mon datagrid ce recharge pour ce réactualiser en appelant


le
sub activated.

J'ai pensé faire un truc dans ce genre là, mais ça ne marche pas :

Private Sub frm_ajout_profil_Activated(ByVal sender As Object, ByVal e As
System.EventArgs) Handles MyBase.Activated
' Affichage des mes données
end sub

Private Sub btn_ajouter_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btn_ajouter.Click
call frm_ajout_profil_Activated()
End sub

Merci d'avance pour votre aide,
Yan




Avatar
Yan
Ha ! super !

J'avais pensé à "Me" pour le premier argument, mais pas à nothing, je ne
savais pas quoi mettre justement.

Merci !
Yan

"nesserb" a écrit dans le message de news:

Bonjour ,

Private Sub btn_ajouter_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btn_ajouter.Click
call frm_ajout_profil_Activated()
End sub

call frm_ajout_profil_Activated()
Tu n'est pas obligé d'utiliser Call

frm_ajout_profil_Activated(me,nothing)

Devrais fonctionner car dans ta Sub tu attend 2 arguments !

En esperant t'avoir aider.
Bon Courage !