发信人: fishy()
整理人: (2000-01-06 11:56:45), 站内信件
|
【 在 wonghwa (SOSO) 的大作中提到: 】
: 我在以前看到一篇关于用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
--
Dim fishy As Friend
回复时请打勾
------------
欢迎大家访问酷码工作室：http://comma.my163.net
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 202.103.37.23]
|
|