hello,

j'ai un problème en vb.net
Mon problème c'est que lorsque l'on fait un double clic sur un controle avec la souris,
ca déclenche d'abord l'évènement "MouseClick" et ensuite "MouseDoubleClick"
Mon problème c'est que je ne veux surtout pas qu'il execute le code du MouseClick quand je fais un doubleclic
J'ai pas trouvé de feinte pour arriver à mes fins

(pour info c'est pour gérer le simple clic et le double clic sur une icone dans la zone de notification en bas à droite(NotifyIcon))

Merci d'avance

Salut,

On utilise uniquement l'evenement MouseDown et on regarde le temps entre 2 cliques

Private Declare Function GetTickCount Lib "kernel32" () As UInteger Private Declare Function GetDoubleClickTime Lib "user32" () As UInteger Private Sub TonNotifyIconOnMouseDown( ByVal Sender As Object , ByVal Args As System.Windows.Forms.MouseEventArgs) Handles TonNotifyIcon.MouseDown    Dim DoubleClick As Boolean = False    Static Count As Long = 0    If Count > 0 AndAlso GetTickCount() - Count < GetDoubleClickTime() Then DoubleClick = True   Count = GetTickCount()    If DoubleClick Then      ' ToDo: DblClick    Else      ' ToDo: Click    End If End Sub

Kenji

j'ai pas super compris comment ca marchait, mais une chose est sure ca ne marche pas.

quand tu fais un double clic, il passe 2 fois dans la procédure, la première dans le "Todo: Click" et la 2e fois dans le "Todo: DoubleClick"

Ah mince quel idiot je fait. J'ai meme pas fait attention à ca alors que c'était le but. Je m'occupais que du double clique.

Kenji

Salut, explication from Microsoft :
[ Lien ]

Voir la partie Remarks.

Je ne peut pas tester ce soir mais j'espère que ça t'aidera.

J'ai fini par trouver une solution grâce à l'aide de Kenji, mais par contre je sais pas comment écrire du code dans un message ...
j'ai beau chercher je vois pas

Ma solution est plus courte mais je sais pas si elle est mieux, par contre je sais pas comment mettre du code dans un message pour qu'il reconnaisse la syntaxe et qu'il colore les instructions ....

Dolphin Boy> J'ai esseyer avec la methode de ms :

MyBase .SetStyle(ControlStyles.StandardClick, True ) MyBase .SetStyle(ControlStyles.StandardDoubleClick, True ) MyBase .UpdateStyles()

Ca ne change pas grands chose ; on as toujours le click avant le dblclick

Kenji

Il n'y as pas de coloration syntaxique automatiqe disponible sur le forum. Il faut que tu utilise un programe exterieur.
Mais si tu copie colle le code de vs, il copira aussi la coloration.

Kenji