Foxtable(狐表)用户栏目专家坐堂 → combobox,Validating 事件验证问题


  共有2255人关注过本帖树形打印复制链接

主题:combobox,Validating 事件验证问题

帅哥哟,离线,有人找我吗?
szsmall
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:168 积分:1956 威望:0 精华:0 注册:2015/5/8 1:17:00
combobox,Validating 事件验证问题  发帖心情 Post By:2016/10/20 22:43:00 [显示全部帖子]

combobox下拉菜单,有3个项目:A项目、B项目C项目
录入时,输入“A”,再按 Ctrl+Enter,就会出现下拉菜单供选择。

为了防止录入错误,Validating 加入下面代码,提示警告。但这样每次按 Ctrl+Enter,就会先提示警告,再出现下拉菜单。
试过把代码放在Leave,又不能禁止离开控件。

 

 Dim items = e.Sender.Items
If items.Contains(e.Sender.Text) = False Then
    msgbox("请输入正确内容")
    e.Cancel = True
End If

 

 


此主题相关图片如下:002.gif
按此在新窗口浏览图片

 回到顶部