Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress
'屏蔽键盘输入
e.Handled = True
End Sub
本以为可以屏蔽所有输入,但今天发现不能屏蔽汉字????
...全文
22614打赏收藏
textbox怎么实现屏蔽汉字输入阿?
Private Sub TextBox2_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox2.KeyPress '屏蔽键盘输入 e.Handled = True End Sub 本以为可以屏蔽所有输入,但今天发现不能屏蔽汉字????
还可以用正则表达式在textbox的Validing事件中过滤
Private Sub textBox1_Validating(ByVal sender As Object, _
ByVal e As System.ComponentModel.CancelEventArgs) Handles textBox1.Validating
Dim numericRegex As Regex = new Regex("^\d+$")
if Not numericRegex.Match(CType(sender,TextBox).Text) Then
' Cancel the event and select the text to be corrected by the user.
e.Cancel = True
textBox1.Select(0, textBox1.Text.Length)
End If
End Sub