d. Вставить в форму модуль

 

     После создания формы, напишем программу, которая вставит «модуль программ» на Бэйсике в нашу форму. Это необходимо для того, чтобы обеспечить обработку событий формы, например, таких как открытие, загрузка,  нажатие кнопок.

     Далее в лекциях идет перечисление событий. Они отмечены на рисунках кнопкой.

 

Public Function funInsertFormModule(frm As Form) As Boolean

Dim s As String, mdl As Module

    On Error GoTo 999 'Переход по ошибке

    s = appFolder & "\Программы\Form_Мой калькулятор.bas"

    If Dir(s) <> "" Then 'Проверяем файл

        frm.Module.AddFromFile s 'Добавляем модуль

    End If

    Exit Function 'Выходи из программы

999:

    MsgBox Err.Description 'Сообщаем об ошибке

    Err.Clear 'Очищаем поток от ошибок

End Function