VB编程:如何在列表框中自动查找

当列表框有定位功能时，会自动滚动到第一项，从您输入的字母开始。但是，它不会自动选择首字母以上的项目。例如，如果您键入“ap”，您可能希望控制以“ap”开头的第一个项目的选择。这个技巧解释了如何通过用api函数发送消息来执行这个行为。程序中必须列出以下语句:宫维尼表框有定位，

public declare function sendmessage lib ' user 32 ' _
alias ' sendmessage a '(byvalhwnd为long，_
byvalwmsg为long，byvalwparam为long，_
byvallparam为string)为long

您将需要以下常量，这些常量告诉列表框选择以特定前缀开头的第一个项目:

公共常数lb_selectstring = &h18c

除了列表框，这项技能还需要对文本框的控制。在用户文本框中输入文本，列表框将自动选择第一个匹配项。该消息被发送到文本框的更改事实程序:
private sub text1_change()

if text 1 . text ' ' then
send message list 1 . hwnd，lb_selectstring，-1，text1.text
end if

末端接头

当列表包含许多项目时，用户选择比第一个项目更多的列表框项目特别有用。