vb2008问题

显示全部楼层 · 2010-8-19 17:38:00

大家好,我想在txtbox里面限制只能输入数字,不输入数字提示错误,下面是我写的code,基本上已经实现了不输入数字提示错误,但是还有一个小问题,就是输入数字以后清空,也会出现错误提示,请教.(vb2008大部分code和06不一样)
Private Sub finalex_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles finalex.TextChanged

If Microsoft.VisualBasic.IsNumeric(Me.finalex.Text) = False Then

ErrorProvider1.SetError(finalex, "Please enter numbers")

finalex.Text = ""

Else

ErrorProvider1.SetError(finalex, "")

End If

End Sub

千问 · 2010-8-19 17:38:00

Private Sub finalex_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles finalex.TextChanged
If finalex.Text = "" Then Exit Sub
If Microsoft.VisualBasic.IsNumeric(Me.finalex.Text) = False Then
ErrorProvider1.SetErro....

千问 · 2010-8-19 17:38:00

因为你的 finalex.text="" 语句也会引发TextChanged事件这时里面也不是数据，如果可以的话建议把这句改成finalex.text="0"不希望清除为0 的话，可以做下面的更改Private Sub finalex_TextChanged(ByVal sender As System.Object, ByVal e As