Api funktion (maustaste)
25.08.2003 15:14:08
chris b
Dieser code solle eigentlich nur die Rechte Maustaste klicken so das ein kleines Menue aufgeht wie mann es bei der rechten Maustaste kennt aber das macht er nicht.
Vieleicht könnt ihr mir einen kleinen tipp geben? Danke schon einmal Christian
Hier der Code !!->
Private Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
'keybd_event dwFlags-Konstanten
Private Const KEYEVENTF_EXTENDEDKEY = &H1 'Erweiterte Tastatureingabe
Private Const KEYEVENTF_KEYUP = &H2 'Die angegebene Taste wird losgelassen
Private Sub Command1_Click()
Call keybd_event(VK_RBUTTON, 0&, 0&, 0&)
Call keybd_event(VK_RBUTTON, 1&, KEYEVENTF_KEYUP, 0&)
End Sub
Was ich will ist wenn ich z.B das Makro in VBA editor ausführe das dann das Menü aufgeht, das aufgeht wenn ich die Rechte Maustaste klicken würde.
Und vorallem will ich das ganze auch verstehen warum es nicht so geht wie ich es mache ! Danke Chris