Sendkey.. Shift + right mouse?

I de fleste sammenhænge er shift+right det samme som shift+f10  - hjælper det?

Eller skulle følgende gøre noget lignende:
'Before you start this program, I suggest you save everything that wasn't saved yet.
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_LEFTDOWN = &H2
Const MOUSEEVENTF_LEFTUP = &H4
Const MOUSEEVENTF_MIDDLEDOWN = &H20
Const MOUSEEVENTF_MIDDLEUP = &H40
Const MOUSEEVENTF_MOVE = &H1
Const MOUSEEVENTF_ABSOLUTE = &H8000
Const MOUSEEVENTF_RIGHTDOWN = &H8
Const MOUSEEVENTF_RIGHTUP = &H10
Private Sub Form_Activate()
    'KPD-Team 1998
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    Do
        'Simulate a mouseclick on the cursor's position
        mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0&, 0&, cButt, dwEI
        DoEvents
    Loop
End Sub

Jeg er ikke helt med i hvad der sker i din stefanfuglsang.. og shift+f10 kan jeg ikke få til at virke, hvad er den nøjagtige syntax?

Jeg er ikke sikker på at shift+f10 er det du ønsker? Syntaksen er Sendkeys "+{F10}".

mouse_event sender "muse-koder" ligesom sendkeys sender taster. Men kan vist ikke  bruge shift samtidig?

Vær opmærksom på, at højer-klik sker der hvor musen er.

'---------------------------------- Form1 ----------------------------------
Option Explicit

Private Const KEYEVENTF_KEYUP      As Long = &H2
Private Const VK_F10                As Long = &H79
Private Const VK_SHIFT              As Long = &H10

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _
                                              ByVal bScan As Byte, _
                                              ByVal dwFlags As Long, _
                                              ByVal dwExtraInfo As Long)

Private Const MOUSEEVENTF_RIGHTDOWN As Long = &H8
Private Const MOUSEEVENTF_RIGHTUP  As Long = &H10

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)

Private Sub Command1_Click()
  Call keybd_event(VK_SHIFT, 0&, 0&, 0&)  'SHIFT
  Call keybd_event(VK_F10, 0&, 0&, 0&)    'F10

  Call mouse_event(MOUSEEVENTF_RIGHTDOWN, 0&, 0&, 0&, 0&) 'RIGHT
  Call mouse_event(MOUSEEVENTF_RIGHTUP, 0&, 0&, 0&, 0&)  'RIGHT

  Call keybd_event(VK_F10, 0&, KEYEVENTF_KEYUP, 0&)    'F10
  Call keybd_event(VK_SHIFT, 0&, KEYEVENTF_KEYUP, 0&)  'SHIFT
End Sub
'---------------------------------- Form1 ----------------------------------

Det er højre musetast jeg vil have.. Hvis ikke shift kan bruges er der så en kombination for ctrl+right mouse!! Jeg skal bruge den.. :-)

Okay sjh, jeg er overhovedet ikke med med hensyn til hvad dit eksempel gør, og skal det bruges med en userform?? For jeg har ingen UserForm, jeg skal bruge det med et regneark.

Er det MSExcel.. ved ikke om man kan bruge vb i excel.. men ellers indsetter du bare det her hvor du aktiver din knap eller funktion


  Call keybd_event(VK_SHIFT, 0&, 0&, 0&)  'SHIFT
  Call keybd_event(VK_F10, 0&, 0&, 0&)    'F10
  Call mouse_event(MOUSEEVENTF_RIGHTDOWN, 0&, 0&, 0&, 0&) 'RIGHT
  Call mouse_event(MOUSEEVENTF_RIGHTUP, 0&, 0&, 0&, 0&)  'RIGHT
  Call keybd_event(VK_F10, 0&, KEYEVENTF_KEYUP, 0&)    'F10
  Call keybd_event(VK_SHIFT, 0&, KEYEVENTF_KEYUP, 0&)  'SHIFT


og det her i toppen:


Private Const KEYEVENTF_KEYUP      As Long = &H2
Private Const VK_F10                As Long = &H79
Private Const VK_SHIFT              As Long = &H10

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _
                                              ByVal bScan As Byte, _
                                              ByVal dwFlags As Long, _
                                              ByVal dwExtraInfo As Long)

Private Const MOUSEEVENTF_RIGHTDOWN As Long = &H8
Private Const MOUSEEVENTF_RIGHTUP  As Long = &H10

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)

Det sidste ligner det rigtige, med et par rettelser:
de to linjer med
Call keybd_event(VK_F10 ...
skal fjernes, og jeg tror at denne skal komme til sidst:
Call mouse_event(MOUSEEVENTF_RIGHTUP, 0&, 0&, 0&, 0&)  'RIGHT

' Har lige testet, følgende virker fint:
' tildel f.eks. ctrl+q til makroen test()
' husk at virkningen afhænger af, hvilket vindue der har fokus.
Private Const KEYEVENTF_KEYUP      As Long = &H2
Private Const VK_F10                As Long = &H79
Private Const VK_SHIFT              As Long = &H10

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, _
                                              ByVal bScan As Byte, _
                                              ByVal dwFlags As Long, _
                                              ByVal dwExtraInfo As Long)

Private Const MOUSEEVENTF_RIGHTDOWN As Long = &H8
Private Const MOUSEEVENTF_RIGHTUP  As Long = &H10

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)
 
Sub test()
  Call keybd_event(VK_SHIFT, 0&, 0&, 0&)  'SHIFT
  Call mouse_event(MOUSEEVENTF_RIGHTDOWN, 0&, 0&, 0&, 0&) 'RIGHT
  Call keybd_event(VK_SHIFT, 0&, KEYEVENTF_KEYUP, 0&)  'SHIFT
  Call mouse_event(MOUSEEVENTF_RIGHTUP, 0&, 0&, 0&, 0&)  'RIGHT

End Sub

Jeps, det virker.... hvad med hvis jeg ville bruge Ctrl, så er det Private Const VK_SHIFT              As Long = &H10
der skal ændres, men til hvad?

Private Const VK_CONTROL = &H11

http://www.vbarchiv.net/archiv/tipp_542.html

Tak begge 2, har prøvet at dele pointene så ligelidt så muligt!

bare ok