ПОМОГИТЕ! Как обеспечить ввод в текстовое окно только чисел?

[wertill@]

Подскажите пожалуйста как мне обеспечить возможность введения в текстовое окно только числовой информации (и знака разделителя - "точки"). Остальные же значения не должны вводиться. У меня есть некоторые идеи, но я не знаю чем закончить:
If Not ((KeyAscii >= 48 And KeyAscii <= 57) Or KeyAscii = 46) Then...

ЗАРАНЕЕ БЛАГОДАРЕН!!!

[Boss IT]

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

Private Sub Text1_KeyPress(KeyAscii As Integer)
If Chr$(KeyAscii) Like "#" = False Then KeyAscii = 0
End Sub

+ http://bbs.vbstreets.ru/viewtopic.php?t=20662

[Rodos]

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

Private Sub Text1_Change()
   If Not IsNumeric(Text1.Text) Then 'написать что надо
End Sub

[GSerg]

Rodos
Худший способ.

[Rodos]

GSerg Худший способ - это тоже способ.

[dr.MIG]

Ещё один очень плохой способ...
Контрол. Свойство IgnoreThisSymbols.

[KVG]

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

Private Sub txtMy_KeyPress(ByVal KeyAscii As Integer)
    If Chr$(KeyAscii) Like "#" = False Then
        If KeyAscii = 44 Or KeyAscii = 46 Then
            If InStr(txtMy.Value, ".") > 0 Or InStr(txtMy.Value, ",") > 0 Then _
                KeyAscii = False ' чтоб не ввели несколько "." или ","
        Else
            KeyAscii = False
        End If
    End If
End Sub


Хорошо бы в "hkey_current_user\Control Panel\International" с помощью RegQueryValueExA (из ADVAPI32.DLL) взять десятичный разделитель ("sDecimal")

[Vladimir!]

andreymp
Ошибочка вышла. Меняешь не запятую на точку, а наоборот.
В твоем примере:
If KeyAscii = 46 Then
KeyAscii = 44
End If[/syntax]

[Alexander N. Samarin]

Кто сможет хуже?


if (chr$(Keyascii) <> "0") and ... and (chr$(Keyascii) <> "9") and (chr$(Keyascii) <> ".") then

msgbox "..."
keyascii = 0
end if