- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- combobox，Validating 事件验证问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=91879)
-- 发布时间：2016/10/20 22:43:00
-- combobox，Validating 事件验证问题
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
-- 发布时间：2016/10/20 23:06:00
--
leave事件
Dim items = e.Sender.Items
If items.Contains(e.Sender.Text) = False Then
msgbox("请输入正确内容")
e.Sender.Select
e.Sender.OpenDropDown
End If