Главная страница Случайная страница Разделы сайта АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника |
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
|