| Вопрос: Помогите! На завтра надо сделать практическую. | Добавлено: 10.12.06 20:58 |
Автор вопроса:  Oleksiyko
|
|
Как сделать поиск через TextBox в ListBox?
У меня есть на форме TextBox и ListBox. В ListBox например такие слова "слово1, слово2, слово3, слово4, слово5". Как сделать чтобы когда я вводил в TextBox слово и нажимал кнопку "слово3" выделялось в ListBox? Слова в ListBox английские и их больше ста и все они занесени в ListBox с текстового файла. |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:  AlexF Вопросов: 20 Ответов: 113 |
Профиль | | #1 | Добавлено: 10.12.06 21:34 |
|
Function FindString(strFind As String, ctlContainer As Control) As Integer Dim i As Integer For i = 0 To ctlContainer.ListCount - 1 If InStr(1, ctlContainer.List(i), strFind, vbTextCompare) Then FindString = i Exit For End If Next End Function Private Sub Command1_Click() List1.ListIndex = FindString(Text1, List1) Text1.SetFocus End Sub Попробуй так, например |
||
|
Номер ответа: 2 Автор ответа:  Oleksiyko Вопросов: 7 Ответов: 4 |
Профиль | | #2 | Добавлено: 11.12.06 00:07 |
| Спасибо! Все работает. | ||
|
Номер ответа: 3 Автор ответа: Sacred PhoenixICQ: 304238252 Вопросов: 52 Ответов: 927 |
Профиль | | #3 | Добавлено: 11.12.06 21:37 |
| для этого есть по-моему сообщение (api) | ||
Страница: 1 |