当前位置: 开源爱好者 » VB源码 » 文本字符 » 详情页

VB 自动删除文本中的非法字符

  • 时间:2018-04-25
  • 测试环境:VB6.0
  • 源码概述:自动删除

VB 自动删除文本中的非法字符,请在文本框内输入大写字母或小写字母,如果输入其他非法字符则自动删除掉,如下代码,将完成核心的删除功能:
  Private Sub Text1_KeyPress(KeyAscii As Integer)
  If (KeyAscii > 65 + 26 Or KeyAscii < 65) And (KeyAscii > 97 + 26 Or KeyAscii < 97) And KeyAscii <> 13 Then
   '判断参数KeyAscii所带返回值是否在大小写字母指定范围内
   MsgBox "数据中有非法字符", 48, "输入数据" '弹出对警告对话框
   Text1.SetFocus '文本框获得焦点
   KeyAscii = 0 '清除非法字符
  ElseIf KeyAscii = 13 Then
   Command1.SetFocus '如果按下回车键,则命令按钮获得焦点
  End If
  End Sub
  
  Private Sub Command1_Click()
  End '退出程序
  End Sub

VB 自动删除文本中的非法字符测试效果图
源码包大小:2.29K
该源码已累计下载了:

CopyRight 2018© 开源爱好者 All Rights Reserved 豫ICP备16030607号 隐私声明 网站地图