OpenOffice.info

REM  *****  BASIC  *****

Option Explicit

Dim oForm, oDocView, oTxtCtrl As Object

Sub Text_1

	oForm = ThisComponent.DrawPage.Forms.getByName("Form")
	oDocView = ThisComponent.getCurrentController()
	oDocView.getControl(oForm.getByName("Textfeld_1")).setFocus()

End Sub

Sub Text_2

	oForm = ThisComponent.DrawPage.Forms.getByName("Form")
	oDocView = ThisComponent.getCurrentController()
	oDocView.getControl(oForm.getByName("Textfeld_2")).setFocus()

End Sub

Hi Hotti,
ja, super, danke, funktioniert!
Grüße
Reginald


Hier der Code, damit die Nachwelt nicht das Dokument herunterladen muß:
[code]REM ***** BASIC *****

Option Explicit

Dim oForm, oDocView, oTxtCtrl As Object

Sub Text_1

oForm = ThisComponent.DrawPage.Forms.getByName("Form")
oDocView = ThisComponent.getCurrentController()
oDocView.getControl(oForm.getByName("Textfeld_1")).setFocus()

End Sub

Sub Text_2

oForm = ThisComponent.DrawPage.Forms.getByName("Form")
oDocView = ThisComponent.getCurrentController()
oDocView.getControl(oForm.getByName("Textfeld_2")).setFocus()

End Sub
[/code]

Sorry, da hat noch was gefehlt.
Schau mal in das angehängte Dokument.
Viele Grüße,
Hotti

Hallo Hotti!
Funzt leider nicht. "Property or method not found: setFocus"
Noch ne andere Idee?
Grüße, Reginald

Probier mal:
oForm.getByName("txtName").setFocus()
Viele Grüße,
Hotti

Hallo!
Ich habe mir ein Makro zusammenprogrammiert - ja, so langsam komme ich in die Materie rein.

Das ganze wird mit einem Button in einem offenen Formular ausgelöst und als letzter Befehl soll noch der Cursor in das Textfeld mit dem Namen txtName springen.

Mit welchem Befehl geht das?

Mit welchem Befehl bzw. wie kann ich den Cursor direkt beim Öffnen eines Formulars in ein bestimmtes Feld setzen, so dass man mit dem Tippen gleich loslegen kann ... - über die Tab-Reihenfolge habe ich es leider nicht hinbekommen.

Grüße
Reginald