PopupMenu Mnu

28. Проверьте работу программы

29. Сделайте для своей программы окно-заставку, для этого:

- добавьте еще одну форму, измените у нее свойства по своему усмотрению, добавьте любую картинку

- введите программный код, который при щелчке по картинке отображает первую форму

- сделайте новую форму стартовой, для этого выберите Project / ProjectProperties, в списке Startup Object выберите Form5

30. Проверьте работу программы.

31. Результат показать преподавателю

ЛАБОРАТОРНО-ПРАКТИЧЕСКАЯ РАБОТА № 9

Тема: События, связанные с мышкой

Цель: Закрепить навыки использования событий MouseMove, MouseDown и разработки меню

Постановка задачи: Разработать приложение «Графический редактор», позволяющий рисовать изображения, используя объекты точка, квадрат, круг, а также позволяющий менять размер этих объектов и их цвет

15. Откройте новый проект.

16. Установите на форме графическое окно (Pic1)и создайте следующее меню:

17. В разделе общих объявлений набрать

Dim f, S As Integer

18. В окне кода процедуры обработки события Load для объекта Form набрать

Form1.Height = 5500

Form1.Width = 5300

Pic1.Height = 4500

Pic1.Width = 5000

Pic1.Left = 100

Pic1.Top = 100

Pic1.Scale (0, 0)-(100, 100)

19. В окне кода процедуры обработки события Click для объекта Mnu10 набрать

S=10

20. Самостоятельно ввести код для Mnu5, Mnu20

21. В окне кода процедуры обработки события Click для объекта MnuB набрать

Pic1.ForeColor = vbBlue

22. Самостоятельно ввести код для MnuR, MnuG

23. В окне кода процедуры обработки события Click для объекта

MnuQw набрать f=3

MnuCirc набрать f=2

MnuPset набрать f=1

24. Самостоятельно написать код для пунктов меню Очистить, Выход

25. В окне кода процедуры обработки события MouseDown для объекта Pic1 набрать

Select Case f

Case 1 'точка

Pic1.Pset (X, Y), Pic1.ForeColor

Case 2 'круг

Pic1.Circle (X, Y), S

Case 3 'квадрат

Pic1.Line (X, Y)-(X + S, Y + S),, B

End Select

26. В окне кода процедуры обработки события MouseMove для объекта Pic1 набрать

If Button = 1 Then ‘нажата левая кнопка

Select Case f

Case 1 'точка

Pic1.Pset (X, Y), Pic1.ForeColor

Case 2 'круг

Pic1.Circle (X, Y), S

Case 3 'квадрат

Pic1.Line (X, Y)-(X + S, Y + S),, B

End Select

End If

27. Проверьте работы программы.

28. Измените программы так, чтобы при нажатии правой кнопки мышки она «работала» как стерка, т.е. рисовала квадрат белым цветом.

29. Результат показать преподавателю.

30. Добавьте в меню для пункта «Объекты» подпункт «Распылитель»и введите следующий код

f=4

31. Измените процедуры для событий MouseDown, MouseMove, добавив в каждую из них следующий код

Case 4

For i = 1 To 20

Pic1.PSet (Rnd * S + X - S / 2, Rnd * S + Y - S / 2), Pic1.ForeColor

Next i

32. Измените программу для рисования линии, используя следующий код: (не забудьте объявить новые переменные)

Case 10 'прямая

If z = 0 Then

z = 1

x0 = X: y0 = Y

Else