如何在多個文本框中檢查輸入是否爲數字？

我目前正在使用VB進行編程考試，我正在嘗試僅爲文本輸入和數字值創建兩個子。爲一個文本框編寫代碼很容易，但我似乎不記得如何在多個文本框中使用sub來調用If語句。（我用的手柄textchange在VB中控制輸入）如何在多個文本框中檢查輸入是否爲數字？

這裏是我用來檢查一個文本框代碼：

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

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

End If

我試圖修改此代碼，但不能讓它的工作像我想它來。

來源

2013-05-14 Henrik Mürer Gystad

傳遞文本框的潛艇作爲參考參數。 – Renan 2013-05-14 12:01:55

它是wpf，webforms的winforms嗎？請添加適當的標籤。 – IvanH 2013-05-14 12:19:31

不要看到如何與我的問題相關，但確定。 – 2013-05-14 12:27:04

將這個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, ...

來源

2013-05-14 12:44:09 ajakblackgoat

感謝您的回答;）制定出色。 – 2013-05-14 13:34:03

如何在多個文本框中檢查輸入是否爲數字？

回答

相關問題