Как при вводе в TextBox отсечь ненужные символы?

[Alkoch]

Задача: надо, чтобы при вводе в textbox программа автоматически пропускала только цифры и запятые, а остальные символы игнорировала? Помогите, пожалуйста.

[GSerg]

Код: Выделить всё

Private Sub Text1_KeyPress(KeyAscii As Integer)
  Select Case KeyAscii
  Case vbKey0 To vbKey9, vbKeyDecimal
  Case Else
    KeyAscii = 0
  End Select
End Sub

[Alkoch]

Спасибо, работает, но пропускает только цифры и почему-то символ n, запятую не пропускает. Помогите еще раз, пожалуйста

[Ennor]

Эта обработка должна быть в событии KeyDown(). Ну и еще тебе придется пропускать некоторые клавиши, типа Backspace (vbKeyBack) и Delete (не помню )...

[Alkoch]

Пожалуйста, поподробнее и желательно с примером, если, конечно, можно

[Ennor]

Н-да... Че-то у меня KeyDown() отказался в среде работать. Странно...

Код: Выделить всё

Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case Chr$(KeyAscii)
  Case "0" To "9", ".", ","
    ' nothing to do
  Case Else
    KeyAscii = 0
End Select
End Sub


Видимо, все-таки вот так...

[Alkoch]

Спасибо! Работает!

[tyomitch]

Код: Выделить всё

Private Sub Text1_KeyPress(KeyAscii As Integer)
  Select Case KeyAscii
  Case vbKey0 To vbKey9, vbKeyDecimal
  Case Else
    KeyAscii = 0
  End Select
End Sub

А не путаешь ASCII и VKEY-коды?
В параметре передаётся ASCII-код, а ты сравниваешь с VKEY-константой...

[tyomitch]

Код: Выделить всё

Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case Chr$(KeyAscii)
  Case "0" To "9", ".", ","
    ' nothing to do
  Case Else
    KeyAscii = 0
End Select
End Sub


Видимо, все-таки вот так...

Не спорю, что так читается лучше, но гораздо эффективнее было бы делать Case по самому KeyAscii, чтобы избежать 4:!: строковых сравнений для каждой нажатой кнопки.

[xolod]

Господа, так намного проще, имхо. Я всегда делаю так:

Код: Выделить всё

Private Sub Text1_KeyPress(KeyAscii As Integer)
  If (InStr(1, "1234567890," & Chr(8), Chr(KeyAscii))) = 0 Then KeyAscii = 0
End Sub


[tyomitch]

Самый эффективный метод - с Case-ом по KeyAscii.
Но если процессор такой мощный, что нечем его занять - тогда можно делать как угодно. Например, так: (inspired by Ruslan Demidow)

Код: Выделить всё

Private Sub Text1_KeyPress(KeyAscii As Integer)
Const Accept = "1234567890,"
  If Len(Replace(Accept, Chr(KeyAscii), "")) = Len(Accept) Then KeyAscii = 0
End Sub


Квадратик в коде - это и есть Chr(8); прекрасно работает

[Ennor]

...
Не спорю, что так читается лучше, но гораздо эффективнее было бы делать Case по самому KeyAscii, чтобы избежать 4:!: строковых сравнений для каждой нажатой кнопки.

Согласись, что моей целью было не только, чтобы это работало, но и чтобы это было понятно . Кроме того, как ты понимаешь, для написания промышленного кода, даже в таких объемах, нужно чуть больше, чем 5 минут...