Thema: TextBox-Eingaberand setzen

Home

Abbildung - Vorher
Vorher

Abbildung - Nachher
Nachher

Prozedur: cmdMargin_Click
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: TextBox-Eingaberand setzen
Ablaufbeschreibung:
- Rahmen um das TextBox-Objekt bilden
- Randeinstellung umkehren
- Fokus auf TextBox setzen

Code:


Private Sub cmdMargin_Click()
   With txtMargin
      .SelectionMargin = Not .SelectionMargin
      .SetFocus
   End With
End Sub