Focus auf Ausgangsteuerelement zurücksetzen

09/09/2009 - 10:22 von Detlev Kulke | Report spam
Hallo.

Ich habe folgendes Problem:
In einem Fenster befinden sich 3 Textboxen und 2 Commandbutton.
BSP: Bin ich in Textbox2 und klicke den Button 1 an, so soll nach dem
Klick-Ereignis des Buttons, wieder zur Textbox2 zurückgesprungen
werden oder bei Klick auf Button2 ebenfalls wieder Rücksprung an die
aufrufende Textbox.

Wie kann das gelöst werden?

Vielen Dank.

Detlev
 

Lesen sie die antworten

#1 Christian Zimmermann
09/09/2009 - 10:36 | Warnen spam
Hallo Detlev,

Detlev Kulke schrieb:

In einem Fenster befinden sich 3 Textboxen und 2 Commandbutton.
BSP: Bin ich in Textbox2 und klicke den Button 1 an, so soll nach dem
Klick-Ereignis des Buttons, wieder zur Textbox2 zurückgesprungen
werden oder bei Klick auf Button2 ebenfalls wieder Rücksprung an die
aufrufende Textbox.

Wie kann das gelöst werden?



Indem du dir im GotFocus-Ereignis der Textboxen merkst, welche den Focus
bekommen hat, z. B. so:

Option Explicit

Dim LastTxtCtrl As Control

Private Sub Command1_Click()
If Not (LastTxtCtrl Is Nothing) Then
If LastTxtCtrl.Enabled And LastTxtCtrl.Visible Then
LastTxtCtrl.SetFocus
End If
End If
End Sub

Private Sub Text1_GotFocus(Index As Integer)
Set LastTxtCtrl = Text1(Index)
End Sub

So merkst du dir immer die Textbox, die zuletzt den Fokus erhalten hat.
Im Klick-Ereignis des Commandbuttons wertest du die entsprechend aus.

Gruß

Christian

Ähnliche fragen