Проект, форма и модуль в системе программирования VB6

ОТЧЁТ

по лабораторной работе

«Проект, форма и модуль в системе программирования VB6»

Цель работы: Изучение принципов построения проекта в VB6. Изучение базового объекта VB6-формы. Изучение модуля VB6.

Вариант № 10 (алгоритм 1).

При запуске на экран выводятся все формы. При щелчке на первой форме ее цвет должен изменится. Щелчок по центральной форме удаляет ее с экрана, а щелчок по любой другой вызывает ее появление. При каждом щелчке по крайним формам размеры всех форм уменьшаются на 10%. При щелчке по средней форме размеры восстанавливаются до исходного значения.

Рисунок 1 – Общий вид элементов программы

Код формы 1.

Private Sub Form_DblClick()

    Frm_2.Show

End Sub

Private Sub Form_Click()

    Frm_1.Timer1.Enabled = True

    Frm_1.Timer1.Interval = 1000

    Frm_1.Timer2.Enabled = True

    Frm_1.Timer2.Interval = 1000

End Sub

Private Sub Timer1_Timer()

    Frm_1.BackColor = &H80& * Rnd

End Sub

Private Sub Timer2_Timer()

    Frm_1.Height = Frm_1.Height - 300

        If Frm_1.Height < 1700 Then Frm_1.Height = 1700

    Frm_1.Width = Frm_1.Width - 300

        If Frm_1.Width < 1700 Then Frm_1.Width = 1700

    Frm_2.Height = Frm_2.Height - 300

        If Frm_2.Height < 1700 Then Frm_2.Height = 1700

    Frm_2.Width = Frm_2.Width - 300

        If Frm_2.Width < 1700 Then Frm_2.Width = 1700

    Frm_3.Height = Frm_3.Height - 300

        If Frm_3.Height < 1700 Then Frm_3.Height = 1700

    Frm_3.Width = Frm_3.Width - 300

        If Frm_3.Width < 1700 Then Frm_3.Width = 1700

End Sub

Код формы 2.

Private Sub Form_Click()

    Frm_2.Hide

End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Enter As Integer)

    Frm_1.Move 150, 300, 3500, 3500

    Frm_2.Move 6000, 300, 3500, 3500

    Frm_3.Move 11850, 300, 3500, 3500

    Frm_1.Timer1.Enabled = False

    Frm_1.Timer2.Enabled = False

    Frm_3.Timer1.Enabled = False

End Sub

Код формы 3.

Private Sub Form_Click()

    Frm_3.Timer1.Enabled = True

    Frm_3.Timer1.Interval = 1000

End Sub

Private Sub Form_DblClick()

    Frm_2.Show

End Sub

Private Sub Timer1_Timer()

    Frm_1.Height = Frm_1.Height - 300

        If Frm_1.Height < 1700 Then Frm_1.Height = 1700

    Frm_1.Width = Frm_1.Width - 300

        If Frm_1.Width < 1700 Then Frm_1.Width = 1700

    Frm_2.Height = Frm_2.Height - 300

        If Frm_2.Height < 1700 Then Frm_2.Height = 1700

    Frm_2.Width = Frm_2.Width - 300

        If Frm_2.Width < 1700 Then Frm_2.Width = 1700

    Frm_3.Height = Frm_3.Height - 300

        If Frm_3.Height < 1700 Then Frm_3.Height = 1700

    Frm_3.Width = Frm_3.Width - 300

        If Frm_3.Width < 1700 Then Frm_3.Width = 1700

End Sub

Код MDI-формы.

Private Sub MDIForm_Load()

    Frm_1.Move 150, 300, 3500, 3500

    Frm_2.Move 6000, 300, 3500, 3500

    Frm_3.Move 11850, 300, 3500, 3500

End Sub

Рисунок 2 – Выполнение программы

Выводы.

В ходе выполнения лабораторной работы мы овладели навыками создания графического интерфейса пользователя в среде Visual Basic 6.0, а также ознакомились со свойствами, событиями и методами объектов проекта и приложения; изучили принципы построения проекта VB6.

Литература.

1. Методические указания  к лабораторной работе «Проект, форма и модуль в системе программирования VB6»/ Ветчинин Д.Д., Павлычев С.Ю.