在以前看到一篇关于用SendMessage API函数实现的在 ListBox 里实现的快速 : : 查询，就象是金山词霸的那种。 : 我现在把这个资料丢失了，而且我当时做的试验也没有保留下来。 : ....... Private Sub Text1_Change() Dim Search As String, Index As Long Search=Text1.Text If Len(Search)>0 Then Index=SendMessage(List1.hwnd,LB_SELECTSTRING,-1,ByVal Search) Else List1.ListIndex=0 End If End Sub 其中第3个参数表示从头找起，如果要从第N项找起，就设为N-1 这样也会自动选取找到的项，如果不想自动选取，把第2个参数改成LB_FINDSTRI NG此文章由 http://www.ositren.com 收集整理 ,地址为: http://www.ositren.com/htmls/67999.html