OpenOffice.info

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

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

Hi Andreas,

kommst Du mit folgendem klar:
[code]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[/code]

Schöne Grüsse.

Jürgen

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