Организовать поиск в телефонном справочнике - Visual Basic .NET
Формулировка задачи:
Пишу обычный телефонный справочник. Сохраняет все txt. Помогите написать код для кнопки найти, чтобы в viewbox выводился только нужный нам результат.
Решение задачи: «Организовать поиск в телефонном справочнике»
textual
Листинг программы
- Dim p As Boolean = False 'проверка на нажатие кнопки
- Private Sub Searchbtn_Click(sender As Object, e As EventArgs) Handles Searchbtn.Click
- If p = False Then
- Dim finded As New Windows.Forms.ListView 'создадим новый listview для добавления туда найденных результатов
- For i = 0 To ListView1.Items.Count - 1
- If ListView1.Items.Item(i).Text.ToLower = TextBox1.Text.ToLower Or ListView1.Items.Item(i).SubItems.Item(1).Text.ToLower = TextBox2.Text.ToLower Then 'если textbox1 соответствует графе name в listview или если textbox2 соответствует графе phone в listview, то добавляем это в новый listview
- finded.Items.Add(ListView1.Items.Item(i).Text).SubItems.Add(ListView1.Items.Item(i).SubItems.Item(1).Text)
- End If
- Next
- If finded.Items.Count > 0 Then ' если что-то нашли
- ListView1.Items.Clear()
- For i = 0 To finded.Items.Count - 1
- ListView1.Items.Add(finded.Items.Item(i).Text).SubItems.Add(finded.Items.Item(i).SubItems.Item(1).Text) ' очищаем listview1 и пихаем в него все из finded
- Next
- Else
- MsgBox("Not found") ' если нет совпадений
- Exit Sub
- End If
- finded.Items.Clear()
- p = True
- Searchbtn.Text = "Clear"
- Else
- loadform() ' код из Form1_Load вынесен в процедуру loadform()
- p = False
- Searchbtn.Text = "Search"
- End If
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д