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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

12   голосов , оценка 3.917 из 5