文本框的问题

romantic774
romantic774
等级:

发表于：2008-04-02 20:44:39 楼主

大家好，有这样一个问题：我在文本框的keypress事件中，编写：
如果输入的是字符（例如a等），则弹出对话框，说明无效，重新输入，然后我想清空或选中文本框中的内容，该怎样实现呢?

问题点数：20 回复次数：7 修改删除举报引用回复

pcwe2002
等级:

发表于：2008-04-02 20:51:141楼得分:5

Private Sub Text1_KeyPress(KeyAscii As Integer)
If Chr(KeyAscii) = "a" Then
MsgBox "无效"
KeyAscii = 0
Text1.Text = ""
End If
End Sub

修改删除举报引用回复

romantic774
romantic774
等级:

发表于：2008-04-02 21:05:172楼得分:0

太感谢了，你能告诉我那个 KeyAscii = 0 有什么作用吗？

修改删除举报引用回复

chenjl1031
东方之珠
等级:

发表于：2008-04-02 21:14:283楼得分:2

应该这样：

VBScript code

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 Sub

修改删除举报引用回复

chenjl1031
东方之珠
等级:

发表于：2008-04-02 22:15:364楼得分:0

哦发现错了：Text1_Change中要取消Text1.Text = ""，否则不能输入了。对不起！

修改删除举报引用回复

chenjl1031
东方之珠
等级:

发表于：2008-04-02 22:19:235楼得分:0

改成这样：

VBScript code

Private Sub Text1_Change()
        If InStr(1, Text1.Text, "a") > 0 Then
           MsgBox ("输入无效，请重新输入！")
           Text1.Text = ""
        End If
End Sub

修改删除举报引用回复

aight
等级:

发表于：2008-04-03 00:42:356楼得分:3

VBScript code


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的值.

修改删除举报引用回复