Поиск на сайте
Главная Журнал Форум Wiki DRKB Страны мира

 


Поиск строки в 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

 

 

 


Основные разделы сайта


 

Реклама