VB6自动完成筛选功能实现
VB6 的自动完成功能，其实也能做得挺像样的。尤其是你要搞点输入建议、模糊匹配那种效果，搭配 TextBox 和 ComboBox 就能整出一个还不错的用户体验。核心逻辑嘛，就是在用户输入时自动查数据库，把的选项列出来，响应也挺快。
控件的搭配其实简单：TextBox 负责收用户的输入，ComboBox 展示匹配的建议；两个控件配合 Change 事件，基本上就能跑起来。数据库这块用 ADODB 搞定连接和查询，一般配 LIKE 关键字来模糊匹配，效果还蛮好。
代码也不复杂，比如数据库查询部分可以这样写：
SQLStr = "SELECT ColumnName FROM TableName WHERE ColumnName LIKE '" & txtInput.Text & "*'"结果拿到后就往 ComboBox 里 AddItem，如果没查到就 Clear，逻辑挺直观。建议你在 Change 事件里别搞太频繁的查询，可以加个延迟，或者限制下匹配数量，不然性能会被拖慢。
另外，如果你对这种交互感兴趣，也可以看看VB6 AutoCode那套自动提示的逻辑，思路上有点类似，但用在代码编辑器里更带感。
如果你正在用 VB6 做一些需要用户输入的系统，比如表单、搜索框之类的，不妨试试这个方法。支持中文，兼容老项目，体验上也加分。
文件大小：3.66KB
评论区