Gruppe
Dialog
Problem
In einer UserForm-TextBox kann kein Tabulator eingesetzt werden. Kann ich dieses Problem umgehen?
ClassModule: frmTabulator
Private Sub cmdWeiter_Click()
Unload Me
End Sub
Private Sub spnTabulator_Change()
txtSpin.Value = spnTabulator.Value
End Sub
Private Sub txtTabulator_KeyDown(ByVal _
KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 9 Then
KeyCode = 0
txtTabulator.Text = txtTabulator.Text & _
String(spnTabulator.Value, " ")
End If
End Sub
StandardModule: basMain
Sub CallForm()
frmTabulator.Show
End Sub