Seite 1 von 1

Fokus in ein Feld setzen

Verfasst: Mo, 06.12.2010 21:22
von 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

Re: Fokus in ein Feld setzen

Verfasst: Di, 07.12.2010 00:00
von hr.hartwig
Probier mal:
oForm.getByName("txtName").setFocus()
Viele Grüße,
Hotti

Re: Fokus in ein Feld setzen

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

Re: Fokus in ein Feld setzen

Verfasst: Mi, 08.12.2010 00:31
von hr.hartwig
Sorry, da hat noch was gefehlt.
Schau mal in das angehängte Dokument.
Viele Grüße,
Hotti

Re: Fokus in ein Feld setzen

Verfasst: Mi, 08.12.2010 12:35
von 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