您的位置:首页 > 编程语言 > VB

VB中实现只能输入有效实数的文本框

2010-07-10 20:51 183 查看
有一个名为TxtNum的TextBox文本框,要求只能输入有效实数,代码如下:

Private Sub TxtNum_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TxtNum.KeyPress
Dim b As Boolean = True
If Char.IsDigit(e.KeyChar) Or e.KeyChar = Chr(8) Then
e.Handled = False
ElseIf e.KeyChar = Chr(46) And Not TxtNum.Text.Equals("") And b Then
e.Handled = False
b = False
Else
e.Handled = True
End If
End Sub
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: