[gelöst] Gedrückte Maustaste erkennen

[Krangel]

Hi,
ich brauche ein Code, der bei gedrückter Maustaste ausgeführt wird.
Es gibt das Maus-Ereignis "Mouse button pressed", finde aber keine Erklärung wir das angewandt wird. Aufgerufen wird das Makro über eine Schaltfläche und soll den Code bis zum Loslassen ausführen.

Code: Alles auswählen

Sub Mouse_left_down

    Do
    		REM Mein Makro ausführen
 	Loop while <>  ?Mouse button pressed?
End Sub

Grüße

[komma4]

Was ist Dein Anwendungsfall? Was willst Du erreichen?

Das Ereignis (wo: bei einem Formular?) wird nur einmal ausgelöst...
Und: während ein Makro läuft kann keine andere Aktion durchgeführt werden.

[Stephan]

z.B. ein Zweites Makro und eine öffentliche Variable, und das zweite Makro dem Ereignis "Maustaste loslassen" zuordnen:

Code: Alles auswählen

Dim halt As Boolean

Sub Mouse_left_down
    halt = 0
    Do
          REM Mein Makro ausführen
    Loop while halt = True
End Sub

Sub Anhalten()
	halt = 1
End Sub

Gruß
Stephan

[Krangel]

Hi,
genauso! Einfacher als ich dachte.
Merkwürdig ist nur, dass bei mir until und while in der Funktion vertauscht ist.

Danke und Grüße an den Meister

[Stephan]

Danke und Grüße an den Meister

als "Der Meister" wird, im Zusammenhang mit StarBasic-Programmierung i.A. Andrew Pitonyak bezeichnet:

Webseite:
http://www.pitonyak.org/

Bild:
http://www.hentzenwerke.com/images/au_p ... andrew.jpg


Gruß
Stephan