Gruppe
Dialog
Bereich
TextBox
Thema
Zeichen in UserForm-TextBox durch ScrollBar-Schieber markieren
Problem
Wie kann ich die einzelnen Zeichen einer UserForm-TextBox entsprechend den gewählen ScrollBar-Werten markieren lassen?
Lösung
Geben Sie den nachfolgenden Code in das Klassenmodul der UserForm ein.
ClassModule: frmSelect
Private Sub cmdWeiter_Click()
Unload Me
End Sub
Private Sub scbSelect_Change()
scbSelect.SetFocus
txtSelect.SelStart = scbSelect.Value
txtSelect.SelLength = 1
txtSelect.SetFocus
End Sub
Private Sub UserForm_Initialize()
scbSelect.Max = Len(txtSelect.Text) - 1
End Sub
StandardModule: basMain
Sub CallForm()
With frmSelect
With .txtSelect
.SetFocus
.SelStart = 0
.SelLength = 1
End With
.Show
End With
End Sub