Seite 1 von 1

textfeldfragen

Verfasst: Mo, 10.03.2008 23:31
von 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

Re: textfeldfragen

Verfasst: Mo, 10.03.2008 23:59
von 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

Re: textfeldfragen

Verfasst: Di, 11.03.2008 09:06
von 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