Числовое значение TextBox'а

[dimasss]

Как сделать чтоб в TextBox можно было вводить только числовые значения (в Visual FoxPro просто ставил Value в 0 и работало, а в VBA что-то нет)

[SHURUP]

Вариант 1: Отслеживать все нажатия клавиш и если клавиша не соответствует цифровой обнулять ее.
Следует также следить за "BackSpace", "Del", "Клавиши управления курсором" и тд. Не забывать также о возможности вставки из буффера.

Вариант 2: (В последнее время полбзуюсь ним)
Вставить обработчик изменения текста:

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

Private Sub TextBox1_Change()
Static oldtext As String
If IsNumeric(TextBox1.Text) Or TextBox1.Text = "" Then
    oldtext = TextBox1.Text
Else
    TextBox1.Text = oldtext
End If
End Sub

[dimasss]

SHURUP
спасибо большое

[Booozer]

Private Sub txt_KeyPress(KeyAscii As Integer)
Dim Num As String
Num = "0123456789,"
If KeyAscii > 26 Then
If InStr(Num, Chr(KeyAscii)) = 0 Then
KeyAscii = 0
End If
If InStr(txt.Text, ",") > 0 And Chr(KeyAscii) = "," Then
KeyAscii = 0
End If
End If
End Sub