VB编程:如何在列表框中自动查找
添加时间: 2007-5-6 2:33:33 作者: 计算机等级考试认证参考 阅读次数:103 来源: http://www.d9soft.com
当列表框拥有定位功能，它就会自动滚动到第一项，以你所输入的字母为开始。然而，它不会在多于第一个字母的情况下，自动选择项目。比如，如果你输入”ap”,你也许想要控制选择以”ap”为始的第一项。这个技巧解释了你如何能够执行这个行为是用API功能发送消息。如下它的必须罗列在程序中的声明：gongweini表框拥有定位，
Public Declare Function SendMessage Lib "user32" _
Alias "SendMessageA" (ByValhwnd As Long, _
ByValwMsg As Long, ByValwParam As Long, _
ByVallParam As String) As Long
你将会需要如下的常数，这些常数告诉列表框选择以特定字头开始的第一个项目：
Public Const LB_SELECTSTRING = &H18C
除了列表框之外，这项技巧要求文字框的控制。用户在文字框中进入文段，列表框自动地选择第一个匹配的项目。消息被发送至文字框的变化事实程序中：
Private Sub Text1_Change()
If Text1.Text <> "" Then
SendMessage List1.hwnd, LB_SELECTSTRING, -1, Text1.Text
End If
End Sub
当列表包含许多项目的时候，让用户选择基于比第一个项目多列表框项目是特别地有用的。
上一篇文章: VB指导:生成auto-OK对话框 下一篇文章: 最简Windows编程