网页资讯视频图片知道文库贴吧地图采购
进入贴吧全吧搜索
vb吧 关注：156,116贴子：1,166,147
  • 2回复贴，共1页

求助

如图，使用户名的文本框只能输入字母，否则会出现msgbox。把代码打上去，发现按清除键的时候也会弹出msgbox。有没有什么好办法，目前只会这一种代码
代码如下
Private Sub Text1_KeyPress(KeyAscii As Integer) If (KeyAscii < Asc("a") Or KeyAscii > Asc("z")) And (KeyAscii < Asc("A") Or KeyAscii > Asc("Z") And (KeyAscii < Asc(8) Or KeyAscii > Asc(8))) Then MsgBox ("请输入字母")End Sub


那可以把删除键屏蔽掉即可
代码添加几句即可
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii <> 8 Then
If (KeyAscii < Asc("a") Or KeyAscii > Asc("z")) And (KeyAscii < Asc("A") Or KeyAscii > Asc("Z") And (KeyAscii < Asc(8) Or KeyAscii > Asc(8))) Then MsgBox ("请输入字母")
End If
End Sub


扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！
  • 2回复贴，共1页
分享到: