仅允许文本框中的数值

Question

我想创建一个只接受数值的TextBox控件.

我怎么能在VB6中这样做？

Answer 1

右键单击控制框>组件>控制 - > Microsoft Masked Edit Control 6.0.
或者使用普通文本框:

Private Sub Text1_Validate(Cancel As Boolean)
 Cancel = Not IsNumeric(Text1.Text)

End Sub

Answer 2

在文本框文本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