限制VB文本框输入的代码
1.只能输入数字和Backspace键Private Sub txtSID_KeyPress(KeyAscii As Integer) 2. 只能输入大小写英文字母和汉字(包括退格和回车)Private Sub txtName_KeyPress(KeyAscii As Integer) 3. 只能输入汉字Private Sub txtDirector_KeyPress(KeyAscii As Integer) 4.限制字符输入Private Sub txtUserName_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 8 Case Asc(“A”) To Asc(“Z”) Case Asc(“0”) To Asc(“9”) Case Asc(“a”) To Asc(“z”) Case Is < 0 Case Else KeyAscii = 0 End Select End Sub (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |