Запрет ввода символов

[Alexey-VB]

Есть задача в TextBox сделать запрет на ввод ненужных символов.
например я сделал так:

Private Sub TextBox_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 48 Or KeyCode = 49 Or KeyCode = 50 Or KeyCode = 51 Or KeyCode = 52 Or KeyCode = 53 Or KeyCode = 54 Or KeyCode = 55 Or KeyCode = 56 Or KeyCode = 57 Or KeyCode = 8 Or KeyCode = 13 Then
Else
PushButton = MsgBox("You cannot enter letters! ", 16, " Warning")
TextBox = ""
End If
End Sub

Все работает кроме одного. Я немогу сделать разрешение на ввод "." и ","
Я в вставляю KeyCode = 46 (это соответствует "."), а VB игнорирует этот символ.

Что я не так сделал? И существуют ли другие способы запрета ввода символов?

[RayShade]

Во первых, надо, обрабатывать keyup а не keydown - потому что это идеологически неверно, ибо для человека ощущение введенного с клавиатуры символа возникает в момент, отпускания клавиши.

а во вторых - в самом деле, надо бы по хрошему поулчать раскладку клавиатуры и мапить символы, в соответствии с ней. Иначе, на разных локалях могут быть траблы.

[Amed]

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

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 48 Or KeyAscii = 49 Or KeyAscii = 50 Or KeyAscii = 51 Or KeyAscii = 52 Or KeyAscii = 53 Or KeyAscii = 54 Or KeyAscii = 55 Or KeyAscii = 56 Or KeyAscii = 57 Or KeyAscii = 8 Or KeyAscii = 13 Or _
    KeyAscii = 44 Or KeyAscii = 46 Then
    KeyAscii = 0
End If
End Sub

RayShade, пожалуй, это слишком сложно

[alibek]

Во первых, надо, обрабатывать keyup а не keydown - потому что это идеологически неверно

Не так.
Человек ожидает реакции при нажатии, а не отпускании.
Не говоря уж о том, что KeyUp не повторяется при длительном нажатии, а KeyDown повторяется.

[Alexey-VB]

Как "мапить символы" с клавиатуры?

[Nicky]

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

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 48 Or KeyAscii = 49 Or KeyAscii = 50 Or KeyAscii = 51 Or KeyAscii = 52 Or KeyAscii = 53 Or KeyAscii = 54 Or KeyAscii = 55 Or KeyAscii = 56 Or KeyAscii = 57 Or KeyAscii = 8 Or KeyAscii = 13 Or _
    KeyAscii = 44 Or KeyAscii = 46 Then
    KeyAscii = 0
End If
End Sub

Ай-яй-яй

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

Private Sub Text1_KeyPress(KeyAscii As Integer)
  Select Case KeyAscii
    Case 8, 13, 44, 46, 48 To 57: KeyAscii = 0
  End Select
End Sub

[RayShade]

alibek

Человек ожидает реакции, при отпускании клавиши

Потому что, для него - завершение действия это, отпущенная клавиша.

[Конь]

RayShade
Ты же не ждешь, что появится символ во время отпускания клавиши? Ты ждешь, что он появится, когда ты ее нажмешь...

[lister]

Человек ожидает реакции, при отпускании клавиши

Хм... Я думаю наоборот. Человек ждет реакции от нажатия кнопки (клавиша - тоже своего рода кнопка), а не от ее отпускания.

Нажми на кнопку - получишь результат. © группа "Технология"

Потому что, для него - завершение действия это, отпущенная клавиша.

А если человек не хочет завершать действие, он не должен отпускать кнопку

[RayShade]

Конь

lister

Спор бессмысленен. Возьмите, и попробуйте получить MSGBOX в тот момент как у вас палец на нажатой кнопке.

[Конь]

RayShade
Согласен. Но все же появление символа ожидается во время нажатия кнопки;)

[RayShade]

Конь

Нет. Во время ее отпускания. Проверь

[Хакер]

В действительности, же, символы в текстбоксе появляются во время нажатия. Многие действия происходят именно по дауну кнопки. Исключением является разве что WinKey

[Конь]

RayShade
Не знаю, как у тебя... Но я слежу только за тем, как нажимаю, но никак не как отпускаю
Вобщем... лучше пусть автор делает, как ему удобно;)

[Nicky]

Конь
Нет. Во время ее отпускания. Проверь

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

Option Explicit

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
  Label1.Tag = CLng(Label1.Tag) + 1
  Label1.Caption = " Кейдауны: " & Label1.Tag
End Sub

Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
  Label2.Tag = CLng(Label2.Tag) + 1
  Label2.Caption = " Кейапы: " & Label2.Tag
End Sub

[lister]

Конь
Нет. Во время ее отпускания. Проверь

Я проверил. Во время ее нажатия

[RayShade]

lister

Ты не то проверил. Я говорил про ожидание

А не про появление.

[lister]

аааа... понятно
тогда согласен

[|( () ( T |/| |(]

Вот ещё способ:

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

Private Sub Text1_KeyPress(KeyAscii As Integer)
If InStr("\/:*?<>|" + Chr(34), Chr(KeyAscii)) <> 0 Then KeyAscii = 0
End Sub


[MIT]

По моему легче всего так

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


Private Const numbers As String = "1234567890"
Private Sub Text2_KeyPress(keyascii As Integer)
If InStr(1, numbers & Chr(8), Chr(keyascii), vbTextCompare) = 0 Then keyascii = 0
End Sub


сдесь можно вводить только цифры. Ставишь в константу нужные символу и вперед.

Если надо отследить не нужные, то пиши

InStr(1, numbers , Chr(keyascii), vbTextCompare)>0 then ...

[lister]

Разрешить цифры в текстовом поле и запретить остальное лучше так:

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

SetWindowLong( Text1.hWnd, GWL_STYLE, GetWindowLong( Text1.hWnd, GWL_STYLE ) Or ES_NUMBER )

В случае ввода нецифры винда выдаст звуковое и визуальное предупреждение

[Kovu]

Неа, а вдруг пользователю дробное значение ввести надо =)

[lister]

если вводятся только цифры