'****************************************************************************'模块名称：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 wMsg 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中模糊查找
'其实返回值都是-1Private Const LB_ERR = -1Private 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, -1, 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, -1, ByVal strSearchString) Else lngRet = SendMessage(ctlControlSearch.hWnd, CB_FINDSTRING, -1, ByVal strSearchString) End If If lngRet = CB_ERR Then FindStringInListBoxOrComboBox = False Else FindStringInListBoxOrComboBox = True End If End IfEnd Function
'在ListBox或ComboBox中搜索指定字符串，并按照是否完全匹配，返回找到字符串所在的索引值。未找到返回 -1Public Function GetStringIndexInListBoxOrComboBox(ByVal ctlControlSearch As Control, ByVal strSearchString As String, 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, LB_FINDSTRINGEXACT, -1, ByVal strSearchString) Else lngRet = SendMessage(ctlControlSearch.hWnd, LB_FINDSTRING, -1, ByVal strSearchString) End If GetStringIndexInListBoxOrComboBox = lngRet ElseIf TypeOf ctlControlSearch Is ComboBox Then If blFindExactMatch = True Then lngRet = SendMessage(ctlControlSearch.hWnd, CB_FINDSTRINGEXACT, -1, ByVal strSearchString) Else lngRet = SendMessage(ctlControlSearch.hWnd, CB_FINDSTRING, -1, ByVal strSearchString) End If GetStringIndexInListBoxOrComboBox = lngRet End IfEnd 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
转载于:https://www.cnblogs.com/forads/archive/2009/03/06/2161176.html
相关资源：JAVA上百实例源码以及开源项目