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

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

如何在VB6中执行此操作？

最佳答案

在文本框中输入文字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

关于vb6 - 仅在文本框中允许数字值，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/4506105/