1. Расположите на форме объекты в соответствии с рис. 16.1.
Рис. 16.1. Экранная форма с 4 элементами ComboBox, имитирующими таблицу
Меню приложения Edit должно вызывать подменю, содержащее 5 команд редактирования: Добавить запись, Удалить запись, Вставить запись, Изменить запись, Очистить таблицу. Остальные команды меню (рис.16.1) не нуждаются в комментариях.
2. Наберите программный код проекта:
Dim numb As Integer, fio As String, bdate As Date, bloc As String
‘ Синхронизация выделения записи таблицы:
Private Sub Comb_Click(Index As Integer)
i% = Combo(Index).ListIndex
For j% = 0 To 3
Combo(j).Text = Combo(j).List(i):
Combo(j).ListIndex = i
Next j
End Sub
‘ Добавление новой записи в таблицу:
Private Sub mnuAdd_Click()
For j% = 0 To 3
XC = Combo(j).Text
Combo(j).AddItem XC
Next j
End Sub
‘ Удаление записи из таблицы:
Private Sub mnuRemove_Click()
i% = Combo(0).ListIndex
If i < 0 Then
MsgBox "Выделите удаляемую строку", vbExclamation
Else
For j% = 0 To 3
Combo(j).RemoveItem i
Next j
End If
End Sub
‘ Вставка новой записи в таблицу: