Разрешить только числовые значения в текстовом поле

Question

Я хочу создать элемент управления TextBox, который принимает только числовые значения.

Как я могу сделать это в VB6?

Answer 1

Для целых чисел может использоваться следующее:

Private Sub text1_KeyPress(KeyAscii As Integer)
    If Not IsNumeric(text1.Text & Chr(KeyAscii)) And Not KeyAscii = 8 Then    KeyAscii = 0
    if (KeyAscii>=43) and (KeyAscii<=46) Then KeyAscii = 0 
    'it ignores '-', '+', '.' and ','
End Sub

Answer 2

Я обычно использую этот код:

Private Sub text1_KeyPress(KeyAscii As Integer)
    If Not IsNumeric(text1.Text & Chr(KeyAscii)) And Not KeyAscii = 8 Then KeyAscii = 0
End Sub