请教判断函数（如何限制一个文本框里只能输入数字，符号，或者英文）

现在要保证一个文本框的输入只能为数字，符号或者英文，请问应该用什么函数 问题点数：100、回复次数：6Top

1 楼MmMVP（杜霖:（现在是DooDu的马甲。。））回复于 2005-04-27 16:59:40 得分 30

Private   Sub   Text1_KeyDown(KeyCode   As   Integer,   Shift   As   Integer)  
    Dim   ctrldown  
        ctrldown   =   (Shift   And   vbCtrlMask)   >   0  
    If   (KeyCode   >=   65   And   KeyCode   <=   90)   Or   (KeyCode   >=   48   And   KeyCode   <=   57)   Or   ctrldown   Or   KeyCode   =   vbKeySpace   Or   KeyCode   =   vbKeyLeft   Or   KeyCode   =   vbKeyRight   Or   KeyCode   =   vbKeyBack   Or   KeyCode   =   vbKeyReturn   Then  
   
    Else  
      MsgBox   "请输入字符或数字!",   vbInformation,   "出错"  
    End   If  
  End   Sub  
   
  基本满足你的要求，但对ctrl+v来的汉字没判断，自己可以添加  
  Top

2 楼viena（维也纳N02）回复于 2005-04-27 16:59:51 得分 60

Private   Sub   Text1_KeyPress(KeyAscii   As   Integer)  
          If   KeyAscii   <   0   Or   KeyAscii   >   127   Then   KeyAscii   =   0  
  End   SubTop

3 楼neuafei（阿飞）回复于 2005-04-27 17:00:56 得分 10

最方便的是不用函数，直接用masked   edit控件。。。该控件的使用方法msdn有。该控件全称是  
  Microsoft   Masked   edit   control   6.0Top

4 楼danpengzhang（me）回复于 2005-04-27 17:14:47 得分 0

多谢各位了，Top

5 楼danpengzhang（me）回复于 2005-04-27 17:21:55 得分 0

刚才给各位分数的时候出现错误，怎么才能重给啊Top

6 楼windstorm1981（花的太阳）回复于 2005-08-26 14:31:57 得分 0

IMEMode   属性选择3就可以,屏蔽了输入法Top

相关问题

• 函数
• 控件
• 数字
• 文本框
• 符号
• ctrldown
• 英文
• 只能
• keycode
• masked edit

• 帖主：danpengzhang
• MmMVP
• viena
• neuafei

• Visual Basic类图书
• Visual Basic类源码下载