Andreas Borutta schrieb:
<snip>
Jetzt fehlt nur noch das vorselektieren des Feldinhaltes.
Weißt Du auch wie das geht?
Sub OnCreate()
Dim oControl as Object
Dim aSelection as New com.sun.star.awt.Selection
If ThisComponent.DrawPage.Forms(0).HasByName("tbInterpret") then
oControl = ThisComponent.DrawPage.Forms(0).GetByName("tbInterpret")
aSelection.Min = 0
aSelection.Max = Len(oControl.Text)
ThisComponent.CurrentController.GetControl(oControl).SetFocus
ThisComponent.CurrentController.GetControl(oControl).SetSelection(aSelection)
End If
End Sub
Peter
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
