Организовать поиск в телефонном справочнике - 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