Only allow numeric values in the textbox

前端 未结 12 931
南笙
南笙 2021-01-12 03:53

I want to make a TextBox control that only accepts numerical values.

How can I do this in VB6?

12条回答
  •  -上瘾入骨i
    2021-01-12 04:12

    Try this code:

    Private Sub Text1_Change()
        textval = Text1.Text
        If IsNumeric(textval) Then
            numval = textval
        Else
            Text1.Text = CStr(numval)
        End If
    End Sub
    

提交回复
热议问题