Discussion :

[mapmip]

Bonjour,


comment fait on pour changer par exemple la procedure onclick d'un bouton dynamiquement par code ?

Merci d'avance

[Ehjoe]

Bonjour,


comment fait on pour changer par exemple la procedure onclick d'un bouton dynamiquement par code ?

Merci d'avance

Bonjour,

Je ne sais pas si c'est ce qui suit que tu veux, non testé ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Dim WithEvents b As Button ' pour un bouton
 
Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
   Me.b = New Button
End Sub
'
Sub b_Click(ByVal sender As Object, ByVal e As System.EventArgs) ' procédure CLICK
 Dim btn As Button = CType(sender, Button) ' conversion en type "bouton"
 MessageBox.Show("vous avec clique le bouton ..." & btn.Text) ' test
End Sub

[tomlev]

comment fait on pour changer par exemple la procedure onclick d'un bouton dynamiquement par code ?

En supposant que tu aies un bouton btn et 2 méthodes btn_Click_1 et btn_Click_2 :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private WithEvents btn As Button
 
...
 
Private Sub btn_Click_1(ByVal sender As Object, ByVal e As EventArgs)
    ...
End Sub
 
 
Private Sub btn_Click_2(ByVal sender As Object, ByVal e As EventArgs)
    ...
End Sub

si c'est btn_Click_1 qui gère l'évènement Click du bouton, et que tu veux utiliser btn_Click_2 à la place, tu peux faire ça :

Code :

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

1
2
RemoveHandler btn.Click, AddressOf btn_Click_1
AddHandler btn.Click, AddressOf btn_Click_2

[mapmip]

En supposant que tu aies un bouton btn et 2 méthodes btn_Click_1 et btn_Click_2 :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private WithEvents btn As Button
 
...
 
Private Sub btn_Click_1(ByVal sender As Object, ByVal e As EventArgs)
    ...
End Sub
 
 
Private Sub btn_Click_2(ByVal sender As Object, ByVal e As EventArgs)
    ...
End Sub

si c'est btn_Click_1 qui gère l'évènement Click du bouton, et que tu veux utiliser btn_Click_2 à la place, tu peux faire ça :

Code :

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

1
2
RemoveHandler btn.Click, AddressOf btn_Click_1
AddHandler btn.Click, AddressOf btn_Click_2

et pour quelque chose qui serait du genre:

btn1.override(event click, event click + nouveau_truc_en_plus) ?

[tomlev]

et pour quelque chose qui serait du genre:

btn1.override(event click, event click + nouveau_truc_en_plus) ?

C'est à dire ? tu veux ajouter un handler à l'évènement, en plus de celui qui existe déjà ? Dans ce cas utilise seulement le AddHandler, pas le RemoveHandler