Mausbewegung

Forumthread: Mausbewegung

Mausbewegung

14.06.2005 23:52:54

Thorsten

Hallo,
hab für Demozwecke so eine Art Präsention in Excel gabaut. Nun würde ich
gern noch Mausbewegungen aufzeichnen, um den Kursteilnehmern zu demonstrieren,
wohin sie klicken sollen. Leider habe ich keinen genauen Plan, wie das zu
machen ist. Muss sicherlich mit Api sein, aber welche.
Danke schon mal für Tipps, auch wenn es "nur" ein weiterführender Link ist.
Gruß Thorsten

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Mausbewegung

15.06.2005 00:26:26

Ramses
AW: Mausbewegung

15.06.2005 00:47:51

Thorsten

AW: Mausbewegung

15.06.2005 00:26:26

Ramses

Hallo
mal ein Ansatz zum spielen :-)
Option Explicit

Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Declare Function GetCursorPos Lib "user32" (pPoint As POINTAPI) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMS As Long)

Type POINTAPI
    x As Long
    y As Long
End Type

Function MausZeigerMove()
Dim i As Integer
Dim MousePosition As POINTAPI
GetCursorPos MousePosition
For i = MousePosition.x To MousePosition.x + 20 Step 1
    SetCursorPos i, MousePosition.y
    Sleep 20
Next
End Function

Sub WhereAmI_Mausposition_auslesen()
Dim pTargetPoint As POINTAPI
Dim lRetVal As Long
lRetVal = GetCursorPos(pTargetPoint)
MsgBox "Meine Position:" & vbLf & pTargetPoint.x & "," & pTargetPoint.y
End Sub

'----------------------------------------------------------------------------------

'Position einer Userform abfragen und Mauszeiger setzen
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long

Private Type RECT
    Left As Long
    Top As Long
    Right As Long
    Bottom As Long
End Type

Dim hWndForm

Private Sub UserForm_Initialize()
If Val(Application.Version) >= 9 Then
    hWndForm = FindWindow("ThunderDFrame", Me.Caption)
Else
    hWndForm = FindWindow("ThunderXFrame", Me.Caption)
End If
End Sub

Private Sub CommandButton1_Click()
MausRichtigSetzen
End Sub

Sub MausRichtigSetzen()
Dim R As RECT
Call GetWindowRect(hWndForm, R)
SetCursorPos R.Left, R.Top
End Sub

Gruss Rainer

AW: Mausbewegung

15.06.2005 00:47:51

Thorsten

Hallo,
die verwendeten Api
Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
Declare Function GetCursorPos Lib "user32" (pPoint As POINTAPI) As Long
haben es gebracht, danke.
mfg Thorsten

Beliebteste Forumthreads (12 Monate)

Forumthread: Mausbewegung

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread