Bonsoir,
Dans votre exemple, vous avez ce que j'appelle peu de checkbox
Ce qui oblige d'écrire:
Handles CheckBox1.MouseLeave, CheckBox5.MouseLeave, CheckBox4.MouseLeave, CheckBox3.MouseLeave, CheckBox2.MouseLeave
L'idée de la boucle c'est dans le cas ou l'on a beaucoup de checkbox
Style :
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
|
Private Sub MainForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
For Each ctrl As Control In Me.Controls
If TypeOf (ctrl) Is CheckBox = True Then
AddHandler ctrl.MouseEnter, AddressOf AfficherInfo
AddHandler ctrl.MouseLeave, AddressOf ResetInfo
End If
Next
End Sub
Private Sub AfficherInfo(sender As Object, e As EventArgs)
Label1.Text = DirectCast(sender, CheckBox).Tag
End Sub
Private Sub ResetInfo(sender As Object, e As EventArgs)
Label1.Text = "Bla bla bla"
End Sub |
Bien évidement, ce code est valide que dans le cas ou toutes les checkbox doivent avoir le même comportement...
Partager