vb.net - 如何检查多个文本框中的输入是否为数字？

Question

我目前正在使用 VB 进行编程考试，并且我正在尝试为仅文本输入和仅数字值制作两个 subs。为一个文本框编写代码很容易，但我似乎不记得如何为多个文本框编写代码，我使用 sub 来调用 If 语句。（我使用 VB 中的句柄 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, ...