Fokus in ein Feld setzen

[Reginald]

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

[hr.hartwig]

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

[Reginald]

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

[hr.hartwig]

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

[Reginald]

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


Hier der Code, damit die Nachwelt nicht das Dokument herunterladen muß:

Code: Alles auswählen

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