[GELÖST] Text in einem TextFeld automatisch selektieren

[Blaukraut]

Hallo,

gibt es eine Funktion, den Text in einem TextFeld automatisch zu selektieren, so wie etwa

oTextField.SelectAll
(diese Funktion gibt es leider nicht)

so ähnlich wie die Funktion:

oTextField.SetFocus
(diese Funktion gibt es)

aber mit automatischer Selektion des gesamten Inhalts?

Danke vorab!

Oo 3.00
Win2K

[komma4]

oTextfield ... ?

In einem Writer-Dokument, einem Dialog oder einem Formular?


Entweder über den CurrentController ... oder das .Model (je nachdem, müsste ich auch ausprobieren).

[Blaukraut]

Hallo,

sorry für die magere Beschreibung (mea culpa maxima) .
Es geht um einen Dialog in einem CALC-Dokument.
Ich habe im Dialog eine DropDownListe, nach deren Auswahl ein paar Textfelder (ebenfalls in diesem Dialog) geändert werden.
Eines der Textfelder soll je nach Bedarf (nicht immer) sofort überschrieben werden können.
Daher setze ich den Fokus nach der Auswahl auf dieses Textfeld. Um den Inhalt zu ändern muss ich nun den alten Text zunächst von Hand löschen.
Es wäre daher sehr praktisch, wenn dieses Textfeld nicht nur den Fokus erhält, sondern deren Text auch sofort komplett markiert wird, um diesen ggf. sofort überschreiben zu können.

Gruß, Blaukraut

[turtle47]

Hallo Blaukraut,

versuche es mal so:

Code: Alles auswählen

Sub MarkText
	myTextfield = oDialog1.GetControl("TextField1")
	myTextfield.setfocus
	oSelection.Min = 0
	oSelection.Max = 20
	myTextfield.setSelection(oSelection)
End Sub

Hilft das?

Jürgen

[ykcim]

Hallo Turtle,

da fehlt noch eine Zeile für das oSelection-Struct.

Code: Alles auswählen

Sub MarkText
   myTextfield = oDialog1.GetControl("TextField1")
   myTextfield.setfocus
   Dim oSelection As New com.sun.star.awt.Selection
   oSelection.Min = 0
   oSelection.Max = 20
   myTextfield.setSelection(oSelection)
End Sub

mfg
Michael

[turtle47]

Hallo Michael,

Oh ja, du hast natürlich recht.
Habe ich übersehen weil es im Kopfteil des Codes stand.

Danke für den Hinweis.

Jürgen

[Blaukraut]

Hallo,

Ihr seid spitze.
So funktioniert es .
Besten Dank und schönen Abend!

Blaukraut