2个回答
展开全部
'自己加个listbox控件来隐藏起来,在combobox的change事件加入代码。
private sub combo1_change()
dim tempstr As String
list1.clear
list1.left=combo1.left
list1.top=combo1.top+combo1.height
list1.width=combo1.width
list1.Visible = True
tempstr = combo1.text
for i = 0 to combo1.listcount - 1
if instr(1, left(combo1.list(i), len(tempstr)), tempstr) <> 0 then list1.additem combo1.list(i)
next i
end sub
'list1的click事件中加入代码
private sub list1_click()
combo1.text=list1.text
list1.visible=falst
end sub
当然,随手写的。代码还有待完善。可能有错误,但思路绝对是好的
private sub combo1_change()
dim tempstr As String
list1.clear
list1.left=combo1.left
list1.top=combo1.top+combo1.height
list1.width=combo1.width
list1.Visible = True
tempstr = combo1.text
for i = 0 to combo1.listcount - 1
if instr(1, left(combo1.list(i), len(tempstr)), tempstr) <> 0 then list1.additem combo1.list(i)
next i
end sub
'list1的click事件中加入代码
private sub list1_click()
combo1.text=list1.text
list1.visible=falst
end sub
当然,随手写的。代码还有待完善。可能有错误,但思路绝对是好的
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询