OpenOffice.info

@turtle47

[quote]Aber wie kommt es dann, dass die Datei gestern Abend funktioniert hat und jetzt nicht mehr [/quote]

... na weil Du getsern das Makro unter M$-Offffff...... laufen hast lassen : :lol: :lol: :lol:

Im Ernst: Keine Ahnung! An und für sich hätte es so nicht laufen dürfen - seltsam :o

Gruß,
Billy

Hallo Billy,

zugegeben ich bin manchmal etwas träge mit der Deklaration von Variablen.
Aber wie kommt es dann, dass die Datei gestern Abend funktioniert hat und jetzt nicht mehr :?:

Weil ich erwähnte es schon:
[quote="turtle47"]obwohl das Makro bei mir gestern keine Fehlermeldung gebracht hat.
Ich hatte es vor dem Einstellen hier im Forum natürlich auch getestet.[/quote]
und deshalb:
[quote="turtle47"]Seltsam [/quote]

Ich gelobe Besserung mit den Deklarationen. :D

Jürgen

'Global oDialog1 as Object

Sub Dialog_starten
	DialogLibraries.loadLibrary("Standard") 
	oForm = DialogLibraries.Standard.Dialog1
	oDialog1 = CreateUnoDialog(oForm)                '...hier belegst Du die Variable oDialog1
	myTextfield = oDialog1.GetControl("TextField1")  '...hier belegst Du die Variable myTextfield
	myTextfield.text = "Blaufaselblubb"
	oDialog1.execute
end sub

Sub MarkText
myTextfield= oDialog1.GetControl("TextField1")     '...oDialog1 und myTextfield sind hier nicht bekannt
selText= myTextfield.SelectedText  
msgbox selText
oDialog1.endexecute                                '...oDialog1 ist hier immer noch nicht bekannt
End Sub

REM Variablen oDialog1 und myTextfield öffentlich deklarieren
Dim oDialog1 as Object
Dim myTextfield As Object

Sub Dialog_starten
  DialogLibraries.loadLibrary("Standard") 
  oForm = DialogLibraries.Standard.Dialog1
  oDialog1 = CreateUnoDialog(oForm)
  myTextfield = oDialog1.GetControl("TextField1")
  myTextfield.text = "Blaufaselblubb"
  oDialog1.execute
end sub

Sub MarkText
  selText= myTextfield.SelectedText  
  msgbox selText
  oDialog1.endexecute
End Sub

@turtle47

Hallo Jürgen,

[quote]Ich habe es jetzt selber mal runtergeladen und natürlich hast Du Recht, es kommt zu einem Error. [color=#FF0000]Seltsam[/color][/quote]

natürlich gar nicht seltsam, weil Du in Deiner ersten Prozedur [color=#008000]Dialog_starten[/color] die Variable [color=#008000]myTextfield[/color] durch die Verwendung (... Du deklarierst Deine Variablen leider nicht, sondern verwendest sie undeklariert in der Befehlszeile) belegst, und deren Inhalt jedoch nicht an die 2. Prozedur [color=#008000]MarkText[/color] weiter gibst :shock: . Mit der Variable [color=#008000]oDialog1 [/color]ist das gleiche Spiel:

[code]'Global oDialog1 as Object

Sub Dialog_starten
DialogLibraries.loadLibrary("Standard")
oForm = DialogLibraries.Standard.Dialog1
oDialog1 = CreateUnoDialog(oForm) '...hier belegst Du die Variable oDialog1
myTextfield = oDialog1.GetControl("TextField1") '...hier belegst Du die Variable myTextfield
myTextfield.text = "Blaufaselblubb"
oDialog1.execute
end sub

Sub MarkText
myTextfield= oDialog1.GetControl("TextField1") '...oDialog1 und myTextfield sind hier nicht bekannt
selText= myTextfield.SelectedText
msgbox selText
oDialog1.endexecute '...oDialog1 ist hier immer noch nicht bekannt
End Sub[/code]

Der Error "Objektvariable nicht belegt" folgt daher unweigerlich :!: .

Wenn Du kein Freund von Pflichtdeklarationen (= [color=#0000FF]Option Explicit[/color]) bist, dann musst Du es zumindest so lösen:

[code]
REM Variablen oDialog1 und myTextfield öffentlich deklarieren
Dim oDialog1 as Object
Dim myTextfield As Object

Sub Dialog_starten
DialogLibraries.loadLibrary("Standard")
oForm = DialogLibraries.Standard.Dialog1
oDialog1 = CreateUnoDialog(oForm)
myTextfield = oDialog1.GetControl("TextField1")
myTextfield.text = "Blaufaselblubb"
oDialog1.execute
end sub

Sub MarkText
selText= myTextfield.SelectedText
msgbox selText
oDialog1.endexecute
End Sub[/code]

So gibt's jedenfalls keinen Error mehr :wink:

Gruß,
Billy

Hi Billy,

[quote="keyboard-billy"]
P.S.: ich trau's mich fast nicht sagen, aber Dein Makro hat eine Fehlermeldung ausgegeben.[/quote]

Warum, ich bin doch auch nicht vollkommen, obwohl das Makro bei mir gestern keine Fehlermeldung gebracht hat.
Ich hatte es vor dem Einstellen hier im Forum natürlich auch getestet.

Ich habe es jetzt selber mal runtergeladen und natürlich hast Du Recht, es kommt zu einem Error. Seltsam :?:
Aber die Hauptsache ist, dass es jetzt funktioniert und Du glücklich bist. :lol:

Schöne Grüsse.

Jürgen

@turtle47

Hallo Jürgen,

Du hast vollkommen Recht! Ich hatte natürlich meinen Denkansatz immer in Richtung "selektieren Text" - quasi immer den Fokus auf die Property "SelectedText" gelenkt :mrgreen: . (... zugegeben, es ist mein erster Dialog und mir fehlt's da völlig an Erfahrung)

Das Natürlich ein Ereignis eintritt, wenn der Text selektiert wird (... irgendwann muss die Maustaste wieder losgelassen werden ...) ist natürlich klar :idea: ; aber auf diese "Banalität" wäre ich nie und nimmer mehr gekommen :oops: .

Ich hab nach Deiner Anregung den Denk ansatz weiter gesponnen: "Was passiert, wenn ich den Text nicht mit der Maus, sonder mit der Tastatur markiert habe?"
Logische Konsequenz: Ich muss natürlich eine Taste loslassen! Und da gibt's natürlich auch einen Listener im Eigenschaftsfenster der Dialogbox: "[color=#0000FF]Taste losgelassen[/color]".

Diesem Ereignis ordne ich das gleiche Makro zu, wie schon bei "[color=#0000FF]Maustaste losgelassen[/color]". Und schon funzt das hervorragend :!: .

Danke Jürgen, Dein Vorschlag war einfach genial - um nicht zu sagen genial einfach. :D :D :D

P.S.: ich trau's mich fast nicht sagen, aber Dein Makro hat eine Fehlermeldung ausgegeben. Ich hab's ein bisschen modifiziert, indem ich alle Variablen durchgängig deklariert habe und die Variablen [color=#008000]oDialog1[/color] und [color=#008000]oMyTextfield [/color]öffentlich gemacht habe :wink: - jetz läuft's einwandfrei.

Grüsse,
Billy

Hallo Billy,

[quote]Die Eigenschaftsbox im Dialogeditor bietet (natürlich!) auch kein Event an, welches das prüft.[/quote]
Wieso nicht?
Du kannst dem Textfeld doch bei Ereignissen > Eigenschaften > "Maustaste losgelassen" ein Makro zuweisen.

Siehe Beipieldatei.

Viel Erfolg.

Jürgen

Option Explicit

Dim oDialog as Object                                                          'globale Definition des Dialoges
Dim oControlModel as Object
Dim oControlView as Object

REM Dialogbox öffnen und Text im Textfeld ausgeben
Sub execDlg_PDANotice
  Dim oBib as Object
  Dim oDlg as Object
  Dim oListener As Object

  REM zuerst muss die Dialogbibliothek (hier im Dokument eingebunden!) geladen werden
  DialogLibraries.LoadLibrary("Standard")
  oBib = DialogLibraries.getByName( "Standard" )
  oDlg = oBib.getByName( "Dlg_PDANotice" )
  oDialog = CreateUnoDialog( oDlg )

  REM MRI - UNO Object Inspection Tool (Python)
  Dim oMRI As Object
  Globalscope.BasicLibraries.LoadLibrary( "MRILib" )
  oMRI = CreateUnoService( "mytools.Mri" )

  oControlModel = oDialog.getControl( "TextField1" ).Model
  oControlView = oDialog.getControl( "TextField1" ).View

  oControlModel.Text = "Blaufaselblubb"                                    'in Textfeld schreiben
 
  oMRI.inspect ( oControlView )

  oDialog.execute()                                                                   'Dialog öffnen
End Sub

(Listeners)
com.sun.star.awt.XFocusListener
com.sun.star.awt.XKeyListener
com.sun.star.awt.XMouseListener
com.sun.star.awt.XMouseMotionListener
com.sun.star.awt.XPaintListener
com.sun.star.awt.XTextListener
com.sun.star.awt.XWindowListener
com.sun.star.lang.XEventListener
com.sun.star.util.XModeChangeApproveListener
com.sun.star.util.XModeChangeListener

(Listeners)
com.sun.star.beans.XPropertiesChangeListener
com.sun.star.beans.XPropertyChangeListener
com.sun.star.beans.XVetoableChangeListener
com.sun.star.lang.XEventListener

Hallo Leutz,

ich habe eine Dialogbox mit einem Textfeld erstellt.

Ich starte meine Dialogbox mit folgendem Code:
[code]
Option Explicit

Dim oDialog as Object 'globale Definition des Dialoges
Dim oControlModel as Object
Dim oControlView as Object

REM Dialogbox öffnen und Text im Textfeld ausgeben
Sub execDlg_PDANotice
Dim oBib as Object
Dim oDlg as Object
Dim oListener As Object

REM zuerst muss die Dialogbibliothek (hier im Dokument eingebunden!) geladen werden
DialogLibraries.LoadLibrary("Standard")
oBib = DialogLibraries.getByName( "Standard" )
oDlg = oBib.getByName( "Dlg_PDANotice" )
oDialog = CreateUnoDialog( oDlg )

REM MRI - UNO Object Inspection Tool (Python)
Dim oMRI As Object
Globalscope.BasicLibraries.LoadLibrary( "MRILib" )
oMRI = CreateUnoService( "mytools.Mri" )

oControlModel = oDialog.getControl( "TextField1" ).Model
oControlView = oDialog.getControl( "TextField1" ).View

oControlModel.Text = "Blaufaselblubb" 'in Textfeld schreiben

oMRI.inspect ( oControlView )

oDialog.execute() 'Dialog öffnen
End Sub[/code]

Nun möchte ich automatisch ermitteln, wenn Text ausgewählt wurde.

Wenn ich mir mit dem Inspector (MRI) das die View [color=#008000]oControlView [/color]ansehe bekomme ich folgende Listener:

[code]
(Listeners)
com.sun.star.awt.XFocusListener
com.sun.star.awt.XKeyListener
com.sun.star.awt.XMouseListener
com.sun.star.awt.XMouseMotionListener
com.sun.star.awt.XPaintListener
com.sun.star.awt.XTextListener
com.sun.star.awt.XWindowListener
com.sun.star.lang.XEventListener
com.sun.star.util.XModeChangeApproveListener
com.sun.star.util.XModeChangeListener
[/code]

Leider stellt keiner der o.a. Listener eine Methode zur Überwachung der Selektierung zur Verfügung. Die View hat eine Property [color=#008000]Selection [/color](Struct). Aber ich habe noch nicht rausgefunden, welcher Listener das auswerten könnte....

Wenn ich mit dem Inspector das Model [color=#008000]oControlModel [/color] betrachte, erhalte ich folgende Listener:

[code]
(Listeners)
com.sun.star.beans.XPropertiesChangeListener
com.sun.star.beans.XPropertyChangeListener
com.sun.star.beans.XVetoableChangeListener
com.sun.star.lang.XEventListener
[/code]

Dummerweise (und natürlich konsequent logisch!) hat das Model natürlich nicht die Property [color=#008000]Selection [/color] - jedoch den Listener
[color=#008000]com.sun.star.beans.XPropertiesChangeListener[/color] der die Properties eines Objektes auf Veränderung prüfen könnte.

Die Eigenschaftsbox im Dialogeditor bietet (natürlich!) auch kein Event an, welches das prüft.
Wie kann ich auf eine Selektierung des Textes triggern (listen...), wenn ich z.B. Text mit der Maus auswähle?

Über Vorschläg zur Vorgehensweise würde ich mich sehr freuen.

Btw.: Ich werwende OOO 2.4.2 unter XP/SP2

Danke und Grüße,
Billy