vb6 - 仅在文本框中允许数字值

Question

我想制作一个仅接受数值的TextBox控件。

如何在VB6中执行此操作？

Answer 1

在文本框中输入文字Change事件，检查输入的值是否为数字。如果不是数字，请重新设置旧值。

Dim textval As String
Dim numval As String

Private Sub TextBox1_Change()
  textval = TextBox1.Text
  If IsNumeric(textval) Then
    numval = textval
  Else
    TextBox1.Text = CStr(numval)
  End If
End Sub