Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - .NET

Страница: 1 | 2 |

 

  Вопрос: Поиск по ListBox Добавлено: 06.12.10 01:39  

Автор вопроса:  SlayerNik

Ответить

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

Номер ответа: 16
Автор ответа:
 EROS



Вопросов: 58
Ответов: 4255
  Профиль | | #16 Добавлено: 29.12.10 16:32
Странно что уважаемые корифеи ничего не сказали про этот кусок кода...

да там не так много элементов чтоб заморачиваться с этим.. Хотя, безусловно, коллега, вы абсолютно правы в этом вопросе..

Ответить

Номер ответа: 17
Автор ответа:
 DimDoc



Вопросов: 21
Ответов: 104
  Профиль | | #17 Добавлено: 29.12.10 17:37
сам не разобрался, пришлось подглядывать...
вот что получилось:
  1.  
  2. Private Sub BtnFindString_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnFindString.Click
  3.         Call allString(TextBox4.Text)
  4.     End Sub
  5.  
  6.     Sub allString(ByVal searchString As String)
  7.         ListBox1.SelectionMode = MultiExtended
  8.         ListBox1.SelectedIndices.Clear()
  9.         Dim x As Integer = -1
  10.  
  11.         If Not (String.IsNullOrEmpty(searchString)) Then
  12.             Do
  13.                 x = ListBox1.FindString(searchString, x)
  14.                 If Not (x = -1) Then
  15.                     If ListBox1.SelectedIndices.Count > 0 Then
  16.                         If x = ListBox1.SelectedIndices(0) Then
  17.                             Return
  18.                         End If
  19.                     End If
  20.                     ListBox1.SetSelected(x, True)
  21.                 End If
  22.             Loop While x <> -1
  23.         End If
  24.         Dim outString As String = String.Format("Строка '{0}' не найдена", searchString)
  25.         MessageBox.Show(outString, "", MessageBoxButtons.OK, MessageBoxIcon.Information)
  26.     End Sub

Ответить

Номер ответа: 18
Автор ответа:
 DimDoc



Вопросов: 21
Ответов: 104
  Профиль | | #18 Добавлено: 29.12.10 17:58

Странно что уважаемые корифеи ничего не сказали про этот кусок кода...

наверное, вопрос не про заполнение ListBox'a
Вы так имели ввиду?

ListBox1.Items.AddRange({"Молоко", "Умник", "Умница", "Морковь", "Колбаса", "Коза", "Ситро", "Ситроен", "Синий", "Сибазон"})

Ответить

Номер ответа: 19
Автор ответа:
 EROS



Вопросов: 58
Ответов: 4255
  Профиль | | #19 Добавлено: 29.12.10 17:58
Call - ф топку

Ответить

Номер ответа: 20
Автор ответа:
 DimDoc



Вопросов: 21
Ответов: 104
  Профиль | | #20 Добавлено: 29.12.10 18:01
так же понятнее...

Ответить

Номер ответа: 21
Автор ответа:
 EROS



Вопросов: 58
Ответов: 4255
  Профиль | | #21 Добавлено: 29.12.10 18:07
и без него все понятно.. не замусоривай код

Ответить

Страница: 1 | 2 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам