textfeldfragen

[keksi1970]

Hi Leute,

im back, oder so. ich hab da mal 2 Fragen.

Also das mit dem Textfeld auslesen und beschreiben krieg ich ja hin, nur was schön wäre :

1. ich würde gerne einen in ein Textfeld geschriebenen Text markieren, so wie halt bei der Inputbox

2. kann man den Cursor innerhalb eines Textfeldes positionieren ?? (bsp Wort hat 8 Buchstaben, Cursor soll an Position 6)

Gruß Andreas

[turtle47]

Hi Andreas,

kommst Du mit folgendem klar:

Code: Alles auswählen

Dim MyDlg as Object
Sub Text_markieren
	Dim oSelection As New com.sun.star.awt.Selection 
	oDoc = thisComponent
	mySheet = oDoc.Sheets(0)
	mycell = mysheet.getCellRangeByName("A1")
	myString1 = mycell.string
	MyDlg.getControl("TextField2").Text = myString1
	oSelection.Min = 6    'Hier festlegen ab welcher Stelle markiert wird!
	oSelection.Max = Len( myString1 )
	MyCtrl=MyDlg.getControl("TextField2")
	MyCtrl.setSelection( oSelection )
	MyDlg.getcontrol("TextField2").setfocus()
End Sub

Schöne Grüsse.

Jürgen

[keksi1970]

Vielen Dank,

hast mir mehr geholfen als du geahnt hast.

nu weiß ich zumindest auch, wie ich einen Focus auf ein bestimmtes Element setze

Gruß

Andreas