Bouton enfoncé

Question

bonjour,

dans la calculette de xp qd on clique sur 2 du pave numerique le bouton 2 de la calculette s'enfonce, savez vous comment je peux faire pour faire le meme effet en vb.net

merci

http://www.tarnweb.com
http://www.correzeweb.com

MadM@tt · Answer

A la limite tu peux simuler un clic de souris avec la fonction

Private Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long)
Const MOUSEEVENTF_ABSOLUTE = &H8000
Const MOUSEEVENTF_LEFTDOWN = &H2
Const MOUSEEVENTF_LEFTUP = &H4
Const MOUSEEVENTF_MIDDLEDOWN = &H20
Const MOUSEEVENTF_MIDDLEUP = &H40
Const MOUSEEVENTF_MOVE = &H1
Const MOUSEEVENTF_RIGHTDOWN = &H8
Const MOUSEEVENTF_RIGHTUP = &H10
Const MOUSEEVENTF_WHEEL = &H80
Const MOUSEEVENTF_XDOWN = &H100
Const MOUSEEVENTF_XUP = &H200
Const WHEEL_DELTA = 120
Const XBUTTON1 = &H1
Const XBUTTON2 = &H2


Enfoncer le bouton :
Call mouse_event(MOUSEEVENTF_LEFTDOWN + MOUSEEVENTF_ABSOLUTE, Command1.Left + 40, Command1.Top + 40, 0, 0)


Relancher le bouton :
Call mouse_event(MOUSEEVENTF_LEFTUP + MOUSEEVENTF_ABSOLUTE, Command1.Left + 40, Command1.Top + 40, 0, 0)


@ +
MadMatt

cs_chris81 · Answer

oulala merci pour l'astuce mais je pense qu'avec .net ca doit etre plus simple 
merci
http://www.tarnweb.com
http://www.correzeweb.com

NicoSoftt · Answer

Salut 

Moi j'ai une solution barbare

If KeyCode = 50 Then
nb2.SetFocus
SendKeys " "
End If

Ca enfonce le bouton car on fait semblant d'appuyer sur espace

Voila
N$

MadM@tt · Answer

Oups j'avais pas vu que c'était sur vb.net, de toute façon c'est possible quand meme, simplement comme tu le dit oui c'est compliqué.
Mais la solution de NicoSoftt est (bien que barbare lol) pas bête du tout.
@ +
MadMatt

cs_chris81 · Answer

merci pour votre aide mais meme la soluce de nico  ne marche pas en .net
http://www.tarnweb.com
http://www.correzeweb.com

Bouton enfoncé

5 réponses

Discussions similaires