OpenOffice.info

Vielen Dank, werde ich versuchen.

Hallo
[quote]Was habe ich falsch gemacht?[/quote]

Das findest du für 'dein' event am besten per [url]http://extensions.services.openoffice.org/de/project/MRI[/url] heraus.

Karolus

        sstring = event.source.model.Text
        msgbox sstring

[quote="F3K Total"]Hi,
am einfachsten:
Hänge z.B. dieses Makro an ein Maustastenereignis
[code]
Sub S_Mouseclicks(event)
if event.ClickCount = 2 then
msgbox "Doppelklick"
endif
End Sub[/code]

Um den aktuellen Text auszulesen geht z.B. dies:
[code]Sub S_Mouseclicks(event)
if event.ClickCount = 2 then
sstring = event.source.model.Text
msgbox sstring
endif
End Sub[/code]
Gruß R[/quote]

Ich habe es mit
[code] sstring = event.source.model.Text
msgbox sstring
[/code]versucht und eine Fehlermeldung erhalten:

[b]"BASIC runtime error.
Property or method not found: model."[/b]

Was habe ich falsch gemacht?

Uiuiui, das ist mir gerade etwas mühsam. Den DevGuide hatte ich vor längerer Zeit mal in den Fingern, war mir aber aus den Augen geraten. Ist mal was für unters Kopfkissen ;-)

Hauptsache, ich kann jetzt die Doppelklickerei abfangen - das funktioniert echt fein.

Grüß und Tschüß, Wolli

[quote="wolli-j"]Anmerkungen:
Komisch, dass mir die Möglichkeit der Rückgabe sub xxx(event) noch nie begegnet ist. Würde mich ja mal interessieren, ob das irgendwo dokumentiert ist![/quote]
Es ist etwas versteckt, steht aber drin ... und noch mehr interessantes ...
[url]http://wiki.openoffice.org/wiki/Documentation/DevGuide/Forms/Programmatic_Assignment_of_Scripts_to_Events[/url]

Gruß R

Hej, danke für die rasante Antwort. Im Labortest extrem vielversprechend. :-)

Anmerkungen:
[list]
[*]Komisch, dass mir die Möglichkeit der Rückgabe [i]sub xxx(event)[/i] noch nie begegnet ist. Würde mich ja mal interessieren, ob das irgendwo dokumentiert ist!
[*]Interessant, dass das Ereignis schon auftritt, wenn ich das erste Mal klicke. Wenn ich die Sub umschreibe in [i]"msgbox event.clickcount"[/i], bekomme ich immer "1" heraus. Darf man das so verstehen, dass das Ereignis nochmal "aufgefrischt" wird, wenn ich das zweite (oder dritte) Mal klicke?[/list]

Gerade lese ich auch Deinen Nachklapp mit [i]event.source.model.Text[/i]. Sehr hilfreich, vielen Dank.

1000 Grüße, Wolli

Sub S_Mouseclicks(event)
    if event.ClickCount = 2 then
        msgbox "Doppelklick"
    endif
End Sub

Sub S_Mouseclicks(event)
    if event.ClickCount = 2 then
        sstring = event.source.model.Text
        msgbox sstring
    endif
End Sub

Hi,
am einfachsten:
Hänge z.B. dieses Makro an ein Maustastenereignis
[code]
Sub S_Mouseclicks(event)
if event.ClickCount = 2 then
msgbox "Doppelklick"
endif
End Sub[/code]

Um den aktuellen Text auszulesen geht z.B. dies:
[code]Sub S_Mouseclicks(event)
if event.ClickCount = 2 then
sstring = event.source.model.Text
msgbox sstring
endif
End Sub[/code]
Gruß R

Moin zusammen,

ich habe in meinem Leben weiß Gott schon 1001 OOO-Formulare programmiert, aber an einer Stelle scheitere ich jetzt zum wiederholten Male.

Was will ich tun? - Ich habe in einer Datenbankanwendung z.B. eine Ergebnistabelle innerhalb eines Formulars und möchte nun, dass der Benutzer einen Doppelklick auf eine Zeile macht und daraufhin ein Code ausgeführt wird, der z.B. Details zu diesem Datensatz aufruft oder ihn löscht oder oder oder ...

Da es ja für jedes Control die vordefinierten Ereignisse [i]"Maustaste gedrückt"[/i] und [i]"Maustaste losgelassen"[/i] gibt, die ich auf der Properties-Page des Controls mit einem Makro hinterfüttern kann, denkt sich mein kleines Gehirn, dass man da ja vielleicht irgendwie die Anzahl der Klicks abfragen kann (wenn Daten als [i]"MouseEvent"[/i]-Struct vorliegen, wäre es ja da drin), aber ich verstehe mich nicht darauf, auf in dem Ereignismakro das MouseEvent einzubinden. Geht das? Wenn ja: wie?

Das Pendant in MS Office ist
[i] Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
...
End Sub[/i]
- da bekommt man die angeklickte Zelle auf dem Silbertablett serviert und der Doppelklick ist auch schon drin.

Oder ist die Lösung nur in den vermaledeiten Listenern zu suchen? Die sind ja nicht gerade leicht zu implementieren und beim Testen schmiert OOO zuverlässig ab. Ich habe mal ein Writer-Dokument mit einem Form und einem Control versucht und dahinein [i]"ThisComponent.CurrentController.addMouseClickHandler(oHorcher)"[/i] gemacht. Die Ereignisse [i]MousePressed[/i] und [i]MouseReleased [/i]wurden wohl getriggert, aber das ist doch mal ehrlich a pain in the ass, für so einen kleinen Doppelklick ein halbes Lexikon programmieren zu müssen.

Wer kann meine Wahrnehmung hier mal geraderücken? Vielen Dank!