Reaktion auf Maustaste Doppelclick
Verfasst: Fr 8. Nov 2019, 15:52
Guten Tag
Grüble momentan über dem Problem meine kleine Anwendung auf Maustasten-Doppelclicks reagieren zu lassen. Bei Lehnhardt und Dannenhöfer hab ich leider nichts gefunden womit ich was anfangen könnte.
Nehm aber doch an dass ich com...MouseEvent und com...MouseButton brauche um die linke Maustaste und den Doppelclick erkennen zu können !? Im Codebeispiel wird mir msgbox ZelleAdr.column korrekt angezeigt, danach nichts mehr, aber auch kein Absturz.
Ob ich es geschafft habe mein Codebeispiel in der richtigen Art und Weise in das Thema einzubinden weiss ich nicht, mal sehen ?
Vielen Dank
Grüble momentan über dem Problem meine kleine Anwendung auf Maustasten-Doppelclicks reagieren zu lassen. Bei Lehnhardt und Dannenhöfer hab ich leider nichts gefunden womit ich was anfangen könnte.
Nehm aber doch an dass ich com...MouseEvent und com...MouseButton brauche um die linke Maustaste und den Doppelclick erkennen zu können !? Im Codebeispiel wird mir msgbox ZelleAdr.column korrekt angezeigt, danach nichts mehr, aber auch kein Absturz.
Ob ich es geschafft habe mein Codebeispiel in der richtigen Art und Weise in das Thema einzubinden weiss ich nicht, mal sehen ?
Vielen Dank
Code: Alles auswählen
sub MausDoppelclick
'
dim EventME as object
'
EventME = CreateObject("com.sun.star.awt.MouseEvent")
const Maus = ("com.sun.star.awt.MouseButton")
'
ZelleAdr = thiscomponent.getCurrentSelection().getCellAddress()
Zelle = thiscomponent.sheets(0).getCellByPosition(ZelleAdr.column,ZelleAdr.row)
'
if ZelleAdr.column = 2 then
msgbox ZelleAdr.column
if Maus = 1 then
if EventME.ClickCount = 2 then
msgbox "Doppelklick"
end if
end if
end if
end sub