Организовать поиск в телефонном справочнике - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д