15 мая 2023 года "Исходники.РУ" отмечают своё 23-летие!
Поздравляем всех причастных и неравнодушных с этим событием!
И огромное спасибо всем, кто был и остаётся с нами все эти годы!

Главная Форум Журнал Wiki DRKB Discuz!ML Помощь проекту

 


Поиск строки в Combo Box

Приведённая здесь процедура CBFindString() осуществляет поиск строки в combo box при помощи API функции SendMessage(). Это более эффективный способ поиска, чем при помощи VB кода:

Declare Function SendMessage Lib "User" _ 
(ByVal hWnd As Integer, ByVal wMsg As Integer, _ 
ByVal wParam As Integer, lParam As Any) As Long 

Sub CBFindString (ctlEdit As Control, _ 
sSearch As String) 
Dim lPos As Long 

Const CB_FINDSTRING = &H40C 
lPos = SendMessage(ctlEdit.hWnd, CB_FINDSTRING, _ 
0, ByVal sSearch) 
If lPos >= 0 Then 
ctlEdit.ListIndex = lPos 
End If 
End Sub