当某个文本框只能输入数字时,我们需要加以限制,以避免操作员输入其它字符,以免保存数据时出错，下面的代码可以达到这样的效果。
我们假定文本框名称为：txtWeight,则在KeyPress事件中写下面的代码。
' 下面的代码是允许操作员输入数字和小数点
Private Sub txtWeight_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtWeight.KeyPress
If Char.IsNumber(e.KeyChar) Or e.KeyChar = Chr(Keys.Back) Or e.KeyChar = '.' Then
Return
End If
e.Handled = True
End Sub
' 在您保存数据时,您需要对这个文本框进行检查:一是检查是否操作员输入了,二是检查操作员是否输入了有效的数字,则我们可在保存事件的前面加上检测代码:
If Trim(Me.txtWeight.Text) = '' Then
MessageBox.Show('请输入订货量!', softname, MessageBoxButtons.OK, MessageBoxIcon.Information)
Me.txtWeight.Focus()
Exit Sub
End If
If IsNumeric(Me.txtWeight.Text) = False Then
MessageBox.Show('订货量输入错误', softname, MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
Me.txtWeight.Focus()
Exit Sub
End If