Anzeige
Archiv - Navigation
624to628
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
624to628
624to628
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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
Anzeige
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
Anzeige
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

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige