具有查询功能的comboBox

feixiangzaici 2007-01-18 04:46:40

请大家帮忙：
我实现在控件comboBox中实现查询功能，例如：
在comboBox下拉框中有数据
1111
1111-0001
1111-0002
1112
1601
1601-0001
1601-0001
当我在文本框中输入数据如果有此数据，自动找到它，若没有，把光标定在以所输入数据的第一个数据。
请大家帮忙，谢谢！

...全文

300 11 打赏收藏转发到动态举报

写回复

用AI写文章

11 条回复

切换为时间正序

请发表友善的回复…

发表回复

vbman2003 2007-01-25

打赏
举报

combobox1.style=2
combobox1.sorted=true

这个就行

feixiangzaici 2007-01-25

打赏
举报

cuilei197979(风) ,你好：
能不能给点具体的代码呀？谢谢！

上官云峰 2007-01-24

打赏
举报

vb自带的无法做到你需要的
给你个变通的方法，用combox和list一起用combox在list之上，平时list隐藏,只有combox输入数据并检索有内容的时候，那么list显示，同时将有关的内容插入list中，当点击list上相应的数据时,将这个数据插入combox中，然后隐藏list，
在界面感觉上类似与浏览器的地址栏

麦田之兔 2007-01-24

打赏
举报

设置属性不符合要求，也不能实现其功能这样子可以
最好是一个Textbox1中输入，用listbox1现实。
Combox本身就是这两个控件的组合，所以combox如果不符合要求就用这两个。
Listbox1.Listindex = SendMessage(Listbox1.hwnd, LB_FINDSTRING, -1, ByVal CStr(Textbox1.Text))

麦田之兔 2007-01-24

打赏
举报

设置属性不符合要求，也不能实现其功能这样子可以
对象.Listindex = SendMessage(对象.hwnd, LB_FINDSTRING, -1, ByVal CStr(输入框.Text))

feixiangzaici 2007-01-23

打赏
举报

各位，问题没有解决呀，怎么给分呀，请大家在帮忙呀！

feixiangzaici 2007-01-19

打赏
举报

请：zq972(偶宣布，偶已经不是路盲啦~~~~~~)给点详细的代码，谢谢！

zyg0 2007-01-19

打赏
举报

为什么要这么复杂我实验我说的2个属性设置

yuanping215 2007-01-19

打赏
举报

comboBox1.Style = 1
comboBox.List(0) = 1111
comboBox.List(1) = 1112
comboBox.List(3) = ...
Dim i As integer
For i = 0 To comboBox.ListCount -1
If text.text = comboBox.List(i) then
comboBox.Text = comboBox.List(i)
Exit for
Else
comboBox.SetFocus
End If
Next i

差不多也就这样拉，没有经过具体的验证。我也是来找资料的，顺便回答下，给点分哦

zq972 2007-01-18