IF Then Mausabfrage
30.09.2020 20:50:37
Aton
Ich würde mich freuen, wenn jemand meine Mausabfrage zum fuktionieren brächte.
Gruß Aton
Dim UdtPoints As POINTAPI
Dim LaufZeit As Long
Dim X As Long, Y As Long
Option Explicit
Private Declare
Function GetCursorPos Lib "user32" ( _
lpPoint As POINTAPI) As Long
Private Type POINTAPI
X As Long
Y As Long
End Type
Sub CursorPosition_Statusleiste()
For LaufZeit = 1 To 400
GetCursorPos UdtPoints
' Application.StatusBar = "Xpos " & CStr(UdtPoints.x) & " XPos " & CStr(UdtPoints.y) ' X _
_
Pos und Y Pos in der Statusleiste anzeigen
Range("B1") = CStr(UdtPoints.X) ' X Pos
Range("C1") = CStr(UdtPoints.Y) ' Y Pos
' If "Maustaste Links gedrückt" Then Application.Run "LinienZeichnen", X, Y ' Mein Makro _
_
das die Linie zeichnet
' If "Maustaste Rechts gedrückt" Then Exit For ' Zeitschleife verlassen
Next LaufZeit
Application.Run "LinienZeichnen", X, Y ' Der Aufruf der mein Makro startet, das die Linie _
zeichnet.
' 1. Makrostart wird Start Punkt gesetzt.
' 2. Makrostart wir die Line vom Startpunkt zu diesem Punkt gezeichnet.
' 3. Und dann als neuer Startpunkt gemerkt.
' 4. So kann ich eine Linienfolge von Punkt 1 zu 2 zu 3 usw. zeichnen. Punkt = Pixel auf _
Bildschirm.
' 5. Muss aber für jeden Punkt das Makro neu starten.
' 6. Mit einer Maustastenabfrage müsste ich nicht immer 2 Sekunden warten um einen Punkt _
festzulegen
' und könnte eine Dauerschleife mit der Rechten Maustaste verlassen, wenn ich den _
letzten Punkt eingegeben habe.
End Sub