只能判断输入的内容是否在下拉项目中,获取text文本,根据逗号拆分:http://www.foxtable.com/webhelp/topics/0245.htm,遍历拆分后的数组项目,判断是否在复选框的下拉列表中
Dim cmb As WinForm.CheckedComboBox
cmb = Forms("窗口1").Controls("CheckedComboBox1")
dim lst as new List(of string)
lst.addrange(cmb.ComboList.split("|"))
for each s as string in cmb.text.solit(",")
if lst.contains(s) = false then
msgbox(s & "不在下拉项目中")
end if
next