Bonjour.
Bon bon bon....
On arrête de jouer là ....
PS : Danyel, chef ça me plait pas plus que ça ...Code:
2
3
4
5
6
7
8
9
10
11Private Sub Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Me.Click Select Case True Case e.GetType Is GetType(MouseEventArgs) MsgBox("souris") Case e.GetType Is GetType(EventArgs) MsgBox("clavier") End Select End Sub
Cdt.
