Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[3.15.3.154] |
|
Сообщ.
#1
,
|
|
|
Самый быстрый это через API. Добавьте на форму кнопку и листбокс, а затем введите этот код
'(ed: BV) 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_FINDSTRING As Long = &H18F Private Sub Command1_Click() List1.ListIndex = SendMessageByString(List1.hWnd, LB_FINDSTRING, -1, "Bas") End Sub Private Sub Form_Load() List1.AddItem "sourcesRu" List1.AddItem "Visual" List1.AddItem "Basic" End Sub |