VBNet - Форум - Поиск по Лист боксу...............................

Вопрос: Поиск по Лист боксу............................... Добавлено: 02.05.06 14:27

Автор вопроса: someone | Web-сайт: 123

Как оформить поиск по ListBox?
(обходя ListBox1.List)
Поскольку контрол - самопал и там такого нету.
Зато есть ItemText (Index), ListIndex, ListCount.
Дайте плз код как найти элемент и выдать его Index
А то некогда :( Плиз
Ответить

Ответы Всего ответов: 13

Номер ответа: 1 Автор ответа: Morpheus Вопросов: 224 Ответов: 3777	Web-сайт: xury.zx6.ru Профиль \| \| #1	Добавлено: 02.05.06 14:39
	чё то ж было в примерах через SendMessage and LB_FINDSTRING / LB_FINDSTRINGEXACT Ответить

Номер ответа: 2 Автор ответа: someone Вопросов: 215 Ответов: 1596	Web-сайт: 123 Профиль \| \| #2	Добавлено: 02.05.06 14:56
	Та то х..я... Стандартными средствами можно? Ответить

Номер ответа: 3 Автор ответа: someone Вопросов: 215 Ответов: 1596	Web-сайт: 123 Профиль \| \| #3	Добавлено: 02.05.06 15:00
	) Я уже сам сделал: lstURLn.ListIndex = 0 10 If lstURLn.ItemText(lstURLn.ListIndex) = "1" Then MsgBox "one!" Else If lstURLn.ListIndex = lstURLn.ListCount - 1 Then MsgBox "All!" End If lstURLn.ListIndex = lstURLn.ListIndex + 1 GoTo 10 End If Ответить

Номер ответа: 4 Автор ответа: gvozd Разработчик Offline Client Вопросов: 164 Ответов: 1317	Web-сайт: www.gvozdsoft.com Профиль \| \| #4	Добавлено: 02.05.06 16:50
	Empro, это че за??? Хоть бы в цикл оформил. Ответить

Номер ответа: 5 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362	Профиль \| \| #5	Добавлено: 02.05.06 17:25
	типа скорость наверное Ответить

Номер ответа: 6 Автор ответа: Morpheus Вопросов: 224 Ответов: 3777	Web-сайт: xury.zx6.ru Профиль \| \| #6	Добавлено: 03.05.06 06:02
	гы гы а с АПИ быстрее Ответить

Номер ответа: 7 Автор ответа: ViktorZ ICQ: 271202919 Вопросов: 56 Ответов: 837	Профиль \| \| #7	Добавлено: 03.05.06 12:14
	lstURLn.ListIndex = 0 10 If lstURLn.ItemText(lstURLn.ListIndex) = "1" Then MsgBox "one!" Else If lstURLn.ListIndex = lstURLn.ListCount - 1 Then MsgBox "All!" End If lstURLn.ListIndex = lstURLn.ListIndex + 1 GoTo 10 End If Я уж думал времена меток канули в небытие... Ответить

Номер ответа: 8 Автор ответа: someone Вопросов: 215 Ответов: 1596	Web-сайт: 123 Профиль \| \| #8	Добавлено: 03.05.06 15:30
	Я привык пользовать метки, т.к. начинал я с TurboBasic'а Ответить

Номер ответа: 9 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362	Профиль \| \| #9	Добавлено: 03.05.06 16:11
	угу возьми ещё строки прономеруй 10 20 30... Ответить

Номер ответа: 10 Автор ответа: someone Вопросов: 215 Ответов: 1596	Web-сайт: 123 Профиль \| \| #10	Добавлено: 03.05.06 17:52
	Когда-то я так делал. И не смешно, тк даный код работает... Ответить

Номер ответа: 11 Автор ответа: Mufasa Вопросов: 19 Ответов: 63	Web-сайт: webpricols.narod.ru Профиль \| \| #11	Добавлено: 03.05.06 18:13
	Поиск по какому критерию то? По начальной букве или слово целиуом? Или другому данному? Ответить

Номер ответа: 12 Автор ответа: Neco ICQ: 247906854 Вопросов: 133 Ответов: 882	Web-сайт: neco.pisem.net Профиль \| \| #12	Добавлено: 04.05.06 08:58
	10 If lstURLn.ItemText(lstURLn.ListIndex) = "1" Then Вау!!! Когда-то я так делал. А смысл? Этот код тоже работает: Private Function GetRandom() As Long Dim A As Variant Dim B As Variant Dim C As Variant Dim D As Variant Dim E As Variant Dim F As Variant Dim GHFCKX As Variant For GHFCKX = 0 To 55 F = E + 1 * C ^ B Next GHFCKX GetRandom = CLng(Rnd() * 10000) End Function Но нах кому нужен? Option Explicit Private Function FindNext(strToFind As String, Optional lngBeginFrom As Long = -1) As Long Dim i As Long For i = lngBeginFrom + 1 To List1.ListCount - 1 If StrComp(strToFind, List1.List(i), vbTextCompare) = 0 Then FindNext = i Exit Function End If Next i FindNext = -1 End Function Private Sub Form_Load() Dim strToFind As String Dim ind As Long strToFind = "1" ind = FindNext(strToFind) Do While ind > -1 MsgBox "Found! ind=" + CStr(ind) ind = FindNext(strToFind, ind) Loop End Sub Ответить

Номер ответа: 13 Автор ответа: Neco ICQ: 247906854 Вопросов: 133 Ответов: 882	Web-сайт: neco.pisem.net Профиль \| \| #13	Добавлено: 04.05.06 09:07
	Mufasa Бррррррррррррр... Ответить

Страница: 1 |