Question

我目前正在使用VB进行编程考试，我试图只为文本输入和数字值创建两个子。编写一个文本框的代码很容易，但我似乎无法记住如何为多个文本框执行此操作，其中我使用sub来调用If语句。（我在VB中使用handle textchange来控制输入）

以下是我用来检查一个文本框的代码：

If Not Regex.Match(txtRegansnr.Text, "^[a-å]*$", RegexOptions.IgnoreCase).Success Then

MsgBox("Kun bokstaver tillatt.", , "Feil")
        txtRegansnr.Clear()
        txtRegansnr.Focus()

End If

我曾尝试修改此代码，但无法让它像我想要的那样工作。

Answer 1

将它放在textchanged事件处理程序中：

Dim txtbox as TextBox = DirectCast(sender, TextBox)

If Not Regex.Match(txtbox.Text, "^[a-å]*$", RegexOptions.IgnoreCase).Success Then

  MsgBox("Kun bokstaver tillatt.", , "Feil")
  txtbox.Clear()
  txtbox.Focus()

End If

将所有文本框附加到上述处理程序的Handles列表中：

Sub TextChanged(sender As Object, e As System.EventArgs) Handles txtRegansnr.TextChanged, txtBox1.TextChanged, txtBox2.TextChanged, ...

如何在多个TextBox中检查输入是否为数字？

1 个答案: