Gruppe
Dialog
Problem
Der Focus soll nach Eingaben zwischen zwei TextBoxes wechseln. Die Einträge sollen selektiert erscheinen.
StandardModule: basMain
Sub CallForm()
frmFocus.Show
End Sub
ClassModule: frmFocus
Private Sub cmdWeiter_Click()
Unload Me
End Sub
Private Sub txtA_AfterUpdate()
With txtB
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
End Sub
Private Sub txtB_AfterUpdate()
txtA.SetFocus
With txtA
.SetFocus
.SelStart = 0
.SelLength = Len(.Text)
End With
End Sub