VB6在ListBox或Combox中搜索字符串项的模块(支持模糊与精确查找)

'****************************************************************************
'模块名称：mListBoxComboBoxSearch.bas
'发布日期：2009/03/06
'描 述：VB6在ListBox或Combox中搜索字符串项的模块(支持模糊与精确查找)
'博 客：http://blog.csdn.net/tanaya
'e-mail ：vbcoder@126.com
'****************************************************************************

Option Explicit

Private Declare Function SendMessage Lib "USER32" Alias "SendMessageA" ( _
ByVal hWnd As Long,_
ByVal wMsg As Long,_
ByVal wParam As Integer,_
ByVal lParam As Any) As Long

Private Declare Function SendMessageByString Lib "USER32" Alias "SendMessageA" ( _
ByVal hWnd As Long,_
ByVal wParam As Long,_
ByVal lParam As String) As Long

Private Const LB_FINDSTRINGEXACT = &H1A2 '在ListBox中精确查找
Private Const LB_FINDSTRING = &H18F '在ListBox中模糊查找

Private Const CB_FINDSTRINGEXACT = &H158 '在ComboBox中精确查找
Private Const CB_FINDSTRING = &H14C '在ComboBox中模糊查找

'其实返回值都是-1
Private Const LB_ERR = -1
Private Const CB_ERR = -1

'在ListBox或ComboBox中搜索指定字符串，并按照是否完全匹配，返回布尔值。
Public Function FindStringInListBoxOrComboBox(ByVal ctlControlSearch As Control,ByVal strSearchString As String,Optional ByVal blFindExactMatch As Boolean = True) As Boolean
On Error Resume Next
Dim lngRet As Long
If TypeOf ctlControlSearch Is ListBox Then
If blFindExactMatch = True Then
lngRet = SendMessage(ctlControlSearch.hWnd,LB_FINDSTRINGEXACT,-1,ByVal strSearchString)
Else
lngRet = SendMessage(ctlControlSearch.hWnd,LB_FINDSTRING,ByVal strSearchString)
End If
If lngRet = LB_ERR Then
FindStringInListBoxOrComboBox = False
Else
FindStringInListBoxOrComboBox = True
End If
ElseIf TypeOf ctlControlSearch Is ComboBox Then
If blFindExactMatch = True Then
lngRet = SendMessage(ctlControlSearch.hWnd,CB_FINDSTRINGEXACT,CB_FINDSTRING,ByVal strSearchString)
End If
If lngRet = CB_ERR Then
FindStringInListBoxOrComboBox = False
Else
FindStringInListBoxOrComboBox = True
End If
End If
End Function

'在ListBox或ComboBox中搜索指定字符串，并按照是否完全匹配，返回找到字符串所在的索引值。未找到返回 -1
Public Function GetStringIndexInListBoxOrComboBox(ByVal ctlControlSearch As Control,Optional ByVal blFindExactMatch As Boolean = True) As Long
On Error Resume Next
Dim lngRet As Long
GetStringIndexInListBoxOrComboBox = -1 '默认为 -1
If TypeOf ctlControlSearch Is ListBox Then
If blFindExactMatch = True Then
lngRet = SendMessage(ctlControlSearch.hWnd,ByVal strSearchString)
End If
GetStringIndexInListBoxOrComboBox = lngRet
ElseIf TypeOf ctlControlSearch Is ComboBox Then
If blFindExactMatch = True Then
lngRet = SendMessage(ctlControlSearch.hWnd,ByVal strSearchString)
End If
GetStringIndexInListBoxOrComboBox = lngRet
End If
End Function

用法示例：在窗体上加入：Command1,Command2,List1,List2

Private Sub Command1_Click()
MsgBox FindStringInListBoxOrComboBox(List1,"唐细",False) '模糊查找
MsgBox GetStringIndexInListBoxOrComboBox(List1,"唐细刚",True) '精确查找
End Sub

Private Sub Command2_Click()
MsgBox FindStringInListBoxOrComboBox(Combo1,False) '模糊查找
MsgBox GetStringIndexInListBoxOrComboBox(Combo1,True) '精确查找
End Sub

Private Sub Form_Load() List1.AddItem "aaa" List1.AddItem "bbbbb" List1.AddItem "唐细刚" List1.AddItem "ccccccccc" List1.AddItem "ddddddddddd" Combo1.AddItem "aaa" Combo1.AddItem "bbbbb" Combo1.AddItem "唐细刚" Combo1.AddItem "ccccccccc" Combo1.AddItem "ddddddddddd"End Sub

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!