Private Declare Function SetCursorPos& Lib "user32.dll" (ByVal x As Long, ByVal Y As Long) 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() Dim cButt, dwEI As Long SetCursorPos 10, 10 mouse_event MOUSEEVENTF_LEFTDOWN Or MOUSEEVENTF_LEFTUP, 0&, 0&, cButt, dwEI End Sub
Du får vinduets koordinater med GetWindowRect: Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Eksempel: Private Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Sub Form_Load() Dim R As RECT Dim ans As Long
ans = GetWindowRect(Me.hwnd, R) If ans = 0 Then MsgBox "Der opstod en fejl" Else MsgBox "Vinduets koordinater er:" + vbCrLf + CStr(R.Left) + ", " + CStr(R.Top) End If
End Sub
Synes godt om
Slettet bruger
15. januar 2003 - 15:28#6
Det er alt sammen fine forslag, men det virker bare ikke hvis man minimerer vinduet.
Kære t2c som driis skriver kan det det bare ikke lade sig gøre, med mindre du gemmer oplysningerne om den minimerede forms koordinater og knappers koordinater, men så skal det desuden være på en form du selv har oprettet til formålet for at det kan lade sig gøre. So whats the point. Medmindre du kan bruge sendkeys funktionen, så kan du også aktivere knapper på en minimeret form, men ikke ved hjælp af koordinater.
Det behøver da ikke gøres så svært... hvad med at bruge følgende? Call Form_MouseDown(Button, Shift, X, Y ) -Sion
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.