Bonjour,
comment fait on pour changer par exemple la procedure onclick d'un bouton dynamiquement par code ?
Merci d'avance
Version imprimable
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:
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
En supposant que tu aies un bouton btn et 2 méthodes btn_Click_1 et btn_Click_2 :
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:
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
Code:
1
2 RemoveHandler btn.Click, AddressOf btn_Click_1 AddHandler btn.Click, AddressOf btn_Click_2