Private Sub cmdAdd_Click() 'Процедура добовления записей

Количество_записей = Количество_записей + 1

Один_друг.Fam = txtFam.Text

Один_друг.Name = txtName.Text

Один_друг.BirthDay = DTPicker1.Value

Один_друг.Telephone = Val(txtTelephone.Text)

Put #1, Количество_записей, Один_друг 'запись в файл (дополнение)

ReDim Preserve Друзья(Количество_записей) 'Переопределение массива

Друзья(Количество_записей).BirthDay = Один_друг.BirthDay 'дополнение массива

Друзья(Количество_записей).Fam = Один_друг.Fam

Друзья(Количество_записей).Name = Один_друг.Name

Друзья(Количество_записей).Telephone = Один_друг.Telephone

Call FormClear 'Вызов процедуры очистки полей ввода

Call Add_Record(Количество_записей) 'Вызов процедуры для дополнения объекта ListView новой записью

End Sub

Private Sub FormClear() 'Процедура очистки полей ввода

txtFam.Text = ""

txtName.Text = ""

DTPicker1.Value = Date 'Поле объекта заполняется значением текущей даты

txtTelephone.Text = ""

End Sub

Private Sub cmdFind_Click() 'Процедура поиска по фамилии

Dim find As Boolean 'переменная показывает найдена ли запись

Dim j As Integer

For j = 1 To Количество_записей

If txtFind.Text = Trim(Друзья(j).Fam) Then

MsgBox Trim(Друзья(j).Fam) + Chr(13) + Trim(Друзья(j).Name) + Chr(13) + Str(Друзья(j).BirthDay) + Chr(13) + Str(Друзья(j).Telephone), vbInformation, "Найдено!"

find = True

End If

Next j

If find = False Then

MsgBox "Такой фамилии нет!", vbExclamation, "Пусто!"

End If

End Sub

Private Sub cmdDelete_Click()

Dim NumRec As Integer

Dim j As Integer

NumRec = Val(txtNumRec.Text)

If NumRec > Количество_записей Or NumRec = 0 Then

MsgBox "Неверный номер записи!", vbExclamation, "Ошибка!"

Exit Sub

End If

ListView1.ListItems.Clear 'Очистка объекта

For j = NumRec To Количество_записей — 1 'Удаление элемента из массива

Друзья(j).Fam = Друзья(j + 1).Fam

Друзья(j).Name = Друзья(j + 1).Name

Друзья(j).Telephone = Друзья(j + 1).Telephone

Друзья(j).BirthDay = Друзья(j + 1).BirthDay

Next j

Количество_записей = Количество_записей — 1

Del = True

If Количество_записей = 0 Then Exit Sub

ReDim Preserve Друзья(Количество_записей)

Call View_All

End Sub

7. Сохраните проект и форму в папке ЛАБ16с именами Лр16_Зад2_P_Записная_ книжка и Лр16_Зад2_F_ Записная_ книжка соответственно.

8.Проверьте работу приложения.

9. Создайте exe-файл (Записная книжка.exe).

10. Дополнить проект возможностью вывода списка фамилий всех друзей, родившихся в заданном Вами месяце.