HERBERS Excel-Forum - die Dialoge

Thema: Focus trotz Frame fixieren

Home
Der Focus wird auch bei Klick auf einen Frame nicht aus einer TextBox entfernt. Focus nicht auf Frame
  • Prozedur: Label1_MouseDown
  • Art: Ereignis
  • Modul: Klassenmodul der UserForm
  • Zweck: Focus auf TextBox setzen
  • Ablaufbeschreibung:
    • Wenn die Tag-Eigenschaft des Frames leer ist, dann...
    • Fokus auf erste TextBox setzen
    • Sonst...
    • Fokus auf die TextBox setzen, die in der Tag-Eigenschaft des Frames benannt ist
  • Code:

    
    Private Sub Label1_MouseDown(ByVal Button As Integer, _
       ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
       If Frame1.Tag = "" Then
          txtFirst.SetFocus
       Else
          Controls(Frame1.Tag).SetFocus
       End If
    End Sub
    
  • Prozedur: txtFirst_Exit (und die folgenden TextBoxes)
  • Art: Ereignis
  • Modul: Klassenmodul der UserForm
  • Zweck: Name der als nächstes auszuwählenden TextBox in die Tag-Eigenschaft des Frames schreiben
  • Ablaufbeschreibung:
    • Name der als nächstes auszuwählenden TextBox in die Tag-Eigenschaft des Frames schreiben
  • Code:

    
    Private Sub txtFirst_Exit(ByVal Cancel As MSForms.ReturnBoolean)
       Frame1.Tag = txtSecond.Name
    End Sub