限制VB文本框输入的代码
来源:互联网 发布:java ee基础实用教程 编辑:程序博客网 时间:2024/05/14 09:10
1.只能输入数字和Backspace键
Private Sub txtSID_KeyPress(KeyAscii As Integer)
If KeyAscii = 8 Then
ElseIf KeyAscii < Asc(“0”) Or KeyAscii > Asc(“9”) Then
KeyAscii = 0
End If
End Sub
2. 只能输入大小写英文字母和汉字(包括退格和回车)
Private Sub txtName_KeyPress(KeyAscii As Integer)
If KeyAscii < 0 Or KeyAscii = 8 Or KeyAscii = 13 Then
ElseIf Not Chr(KeyAscii) Like “[a-zA-Z]” Then
KeyAscii = 0
End If
End Sub
3. 只能输入汉字
Private Sub txtDirector_KeyPress(KeyAscii As Integer)
If KeyAscii < 0 Or KeyAscii = 8 Then Exit Sub
KeyAscii = 0 ‘不能输入
End Sub
4.限制字符输入
1.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
2.Private Sub txtUserName_Change()
Dim a As String
Dim i As Integer
a = “’!@#$%^&*()_+ “””
For i = 1 To 20
txtUserName.Text = Replace(txtUserName.Text, Mid(a, i, 1), “”)
Next
End Sub
注:这段代码就是限制了a中的特殊符号,如果还想限制别的特殊符号可以在a变量中继续添加。
- 限制VB文本框输入的代码
- 限制文本框的输入代码
- 限制文本框的输入代码
- 限制文本框的输入代码
- VB文本框限制输入类型
- 限制多文本框输入字数的代码
- VB制作的可以限制输入的文本框
- VB制作的可以限制输入的文本框
- 限制文本框的输入
- vb.net限制文本框只能输入数字
- vb.net限制文本框只能输入数字
- vb.net限制文本框只能输入数字
- 简单的限制文本框只能输入数字的代码
- 文本框限制输入类型的相关代码设置
- CnCrypt代码 之 限制只能输入数字的文本框
- 限制文本框输入的问题
- 限制文本框的输入长度
- 限制文本框输入的长度
- 利用v-model实现父子组件间的双向通信
- 贝叶斯分类
- Python中列表的append、insert、extend区别
- Unix的cat在Windows环境下的替代者:type
- 解决java.lang.IllegalStateException: Fragment already added:Fragment already added问题
- 限制VB文本框输入的代码
- Android动画总结
- ==和equanls方法
- Xshell使用技巧总结
- untiy2D 相机人物跟随的震动现象的疑问(本文暂时找不到方法)
- leetcode面试频率
- 西瓜书《机器学习》课后答案——chapter5_5.8 SOM网络
- 关于swoole 定时器有时候无法清除的解决方法
- hdu 1016 Prime Ring Problem(素数环)