7492
社区成员
文本框的问题
大家好，有这样一个问题：我在文本框的keypress事件中，编写：
如果输入的是字符（例如a等），则弹出对话框，说明无效，重新输入，然后我想清空或选中文本框中的内容，该怎样实现呢?
如果输入的是字符（例如a等），则弹出对话框，说明无效，重新输入，然后我想清空或选中文本框中的内容，该怎样实现呢?
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
aight 2008-04-03
Private Sub Text1_Change()
If Asc(InStr(1, Text1.Text) = 97) Then
If (MsgBox("输入错误!", vbOKOnly) = vbOK) Then
Text1.SelStart = 0
Text1.SelLength = Text1.Width
Text1.SetFocus
End If
End If
End Sub
因为字母a对应的ASCII值是97,所以在判断的时候用Asc(InStr(1, Text1.Text) = 97)来判断
接着,弹出输入错误,并按了确定之后,就会把输入的a选中,楼主可以试一下.
另外,二楼的keyascii是指的按键对应的ASCII的值.
cbm6666 2008-04-03
Private Sub Text1_KeyPress(KeyAscii As Integer)
If (KeyAscii >= 65 And KeyAscii <= 90) Or (KeyAscii >= 97 And KeyAscii <= 122) Then
KeyAscii = 0 '一般就是不给值
'Text1.Text = "" '把整个Text1清空没道理
MsgBox ("输入无效，请重新输入！")
End If
End Sub
If (KeyAscii >= 65 And KeyAscii <= 90) Or (KeyAscii >= 97 And KeyAscii <= 122) Then
KeyAscii = 0 '一般就是不给值
'Text1.Text = "" '把整个Text1清空没道理
MsgBox ("输入无效，请重新输入！")
End If
End Sub
东方之珠 2008-04-02
改成这样：
Private Sub Text1_Change()
If InStr(1, Text1.Text, "a") > 0 Then
MsgBox ("输入无效，请重新输入！")
Text1.Text = ""
End If
End Sub东方之珠 2008-04-02
哦发现错了：Text1_Change中要取消Text1.Text = ""，否则不能输入了。对不起！
东方之珠 2008-04-02
应该这样：
Option Explicit
Private Sub Form_Load()
Text1.Text = ""
End Sub
Private Sub Text1_Change()
If InStr(1, Text1.Text, "a") > 0 Then MsgBox ("输入无效，请重新输入！")
Text1.Text = ""
End Subdeveloper45 2008-04-02
太感谢了，你能告诉我那个 KeyAscii = 0 有什么作用吗？
pcwe2002 2008-04-02
Private Sub Text1_KeyPress(KeyAscii As Integer)
If Chr(KeyAscii) = "a" Then
MsgBox "无效"
KeyAscii = 0
Text1.Text = ""
End If
End Sub
If Chr(KeyAscii) = "a" Then
MsgBox "无效"
KeyAscii = 0
Text1.Text = ""
End If
End Sub
swift-解决在iOS平台下的键盘遮挡文本框问题 在开发Reactnative的表单页面开发时，我们经常会填写各种表单信息，当我们对文本框进行编辑时，这时就需要弹出键盘，编辑完成时要正常的收起键盘。对于Android平台还好，系统会自动帮我们处理了键盘的弹出和收起
文本框问题 限制文本框只能输入数字（效果：输入其它字符，会自动清除） <input type="text" id="a" onkeyup="value=value.replace(/[^(\d)]/g,'')"/> 文本框输入超过一定长度后，弹出提示框，并将光标移动到下一个...
移动端键盘弹出遮挡文本框问题 记一次，解决移动端文本框弹出键盘遮挡输入框的方法: document.activeElement.scrollIntoViewIfNeeded(); 方法用来将不在浏览器窗口的可见区域内的元素滚动到浏览器窗口的可见区域。 如果该元素已经在浏览器窗口的...
C# TextBox多行文本框的字数限制问题 TextBox组件（文本框组件）是一种常用的，也是比较容易掌握的组件。应用程序主要使用它来接收使用者于输入文字信息。 在Visual C# 中，多行文本框使用的也是 TextBox，只不过其 Multiline 属性为 true。 要注意，其...
文本框失去焦点问题 文本框焦点问题解答，没有基础的看着费劲 TextBox组件[2]（文本框组件）是一种常用的，也是比较容易掌握的组件。应用程序主要使用它来接收使用者于输入文字信息。 当我们使用Visual Basic .Net集成开发环境开发...
IOS系统下虚拟键盘遮挡文本框问题的解决 最近在项目中发现同样的代码在Android端...经过高人指点，这个问题终于解决了 下面说说解决办法： 主要代码 document.body.scrollTop = document.body.scrollHeight; 然后在文本框获取焦点的时候，可以定义...
iOS软键盘遮挡UITableView内文本框问题 3、触发文本框，滚动tableView -(void) textFieldDidBeginEditing:(UITextField *)textField { NSIndexPath* path = [NSIndexPath indexPathForRow:row inSection:section]; [self performSelector:@selector...
js实现文本框中焦点在最后位置 但是存在一个小小的问题… 那就是obj.focus()将焦点移动到输入框后,会将文字光标(就是一闪一闪的竖线)移动到这个输入框的第一个字符的位置…就上面的判断而言..如果文本框中没有内容..obj.focus正好可以满足我们直接...
文本框只能选择数据到文本框禁止手动输入 今天在醒目中碰到了一个问题。文本框只能上人家选择数据进去。不能手动输入。查了资料。最后解决如下。 页面代码： 代码如下: ”txtcategory” readonly=”true” Width=”300″ CssClass=”txt” runat=”server”>...
表单文本框尺寸调整与按钮对齐问题(分成了两行) 默认的样式查询窗口比较短，简单用width和height来改变form的设置，导致文本框与按钮分成了两行，针对这个问题，下面有个不错的解决方法，希望大家可以借鉴
Watir-webdriver无法找到IE文本框问题 由于在网上看到watir webdriver处理弹出窗口的功能比watir强大，就想试一下之前的问题能否解决，打算把之前的watir代码改写。 在登陆界面时，就遇到了阻碍。我改写的webdriver代码始终都找不到用户名和密码的输入框...
深入Vue响应式原理, 解决Vue表单文本框/选择框无法输入问题 解决Vue + ElementUI表单文本框无法输入问题需求引入导致原因问题解决方式 需求引入 一般来说网页中都会存在Form表单以供填写, 常用的编辑页面会从后台获取到数据并赋值到文本框中, 并会对文本框进行数据的绑定, ...
python selenium无法清除文本框内容问题 正常是我们在清除文本框内容的时候，都会使用 clear() 函数进行清除，但是有时候会出现，清除完成后再点击查询时，文本框的内容会再次自动填充，这个时候我们可以选择以下方式： #清空查询条件 driver.find_...
js光标定位文本框回车表单提交问题的解决方法 本文实例讲述了js光标定位文本框回车表单提交问题的解决方法。分享给大家供大家参考。具体分析如下： 当光标定位在辅助查找的文本框后回车，页面会出现方法的返回的json串。 原因：When there is only one single-...
js 金额文本框实现代码 案例1：回车实现Tab跳转。 响应文本框的onKeyDown事件，window.event.keyCode获得用户点击的... 只有少数的键才能被替换，大部分是不行的，有权限问题。 键盘码与ASCII码不一样。 keyCode 8：退格键 46：delete 37-40：
