Создание пользовательских форм в Visual Basic for Applications. Любин А.Н. - 51 стр.

    Ниже представлен листинг процедур к пользовательским
формам для рассмотренного задания.

Dim dgr As String, Gr(20) As String, _
k As Integer, prm As String

Private Sub UserForm_Initialize()
Open "D:\Grup3" For Input As #1 'Grup3-ФАЙЛ ХРАНЕНИЯ ДАННЫХ
10 If EOF(1) Then GoTo 20
Input #1, Gr(k)                'СЧИТЫВАНИЕ ДАННЫХ ИЗ ФАЙЛА
ComboBox1.AddItem Gr(k)
k=k+1
GoTo 10
20 Close #1
End Sub

Private Sub CommandButton1_Click()   'ДОБАВИТЬ В СПИСОК
Dim i As Integer
Open "D:\Grup3" For Append As #1
dgr = TextBox1.Text
Gr(k) = dgr                'МАССИВ ДЛЯ ХРАНЕНИЯ ДАННЫХ
Print #1, dgr
k=k+1
Close #1
ComboBox1.AddItem dgr
TextBox1.Text = ""
End Sub

Private Sub CommandButton2_Click() 'ВЫХОД
Unload Me
End Sub
Private Sub CommandButton3_Click() 'ПРОСМОТРЕТЬ СПИСОК
prm = ComboBox1.Text
MsgBox "      Группа -" & prm & "." & _
vbLf & " Работа со списком группы.", , _
" Программа список "
UserForm5.Show              'ПЕРЕХОД ВО ВТОРУЮ ФОРМУ
End Sub

                                  51