Thema: Nach ScrollBar selektieren

Home

Abbildung - Nach ScrollBar selektieren

Prozedur: UserForm_Initialize
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: ScrollBar-Maximalwert setzen
Ablaufbeschreibung:
- Maximalwert der Scrollbar gem. Textlänge festlegen

Code:


Private Sub UserForm_Initialize()
   scbSelect.Max = Len(txtSelect.Text) - 1
End Sub

Prozedur: scbSelect_Change
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: Nach ScrollBar selektieren
Ablaufbeschreibung:
- Fokus auf ScrollBar seten
- Startzeichen in der TextBox gem. ScrollBar-Wert setzen
- Selektionslänge mit 1 festlegen
- Fokus auf TextBox setzen

Code:


Private Sub scbSelect_Change()
   scbSelect.SetFocus
   txtSelect.SelStart = scbSelect.Value
   txtSelect.SelLength = 1
   txtSelect.SetFocus
End Sub