Главная страница Случайная страница Разделы сайта АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника |
ЛАБОРАТОРНО-ПРАКТИЧЕСКАЯ РАБОТА № 4. Цель: Получить навыки использования массива объектов
Тема: Массивы объектов. Цель: Получить навыки использования массива объектов Порядок выполнения 8. Установите на форме следующие объекты и измените им свойства:
9. Приведите свою форму в соответствие с образцом
10. В разделе общих объявлений набрать
Dim k As Integer 11. В окне кода процедуры обработки события Load для объекта Form набрать:
'количество щелчков по кнопке k = 0 12. В окне кода процедуры обработки события Click для объекта Cmd набрать:
k = k + 1 If k < 9 Then Label1(k).Visible = True If k = 1 Then Shape1(0).Visible = True: Shape1(1).Visible = True If k = 2 Then Line1.Visible = True: Line2.Visible = True If k = 3 Then Shape1(2).Visible = True: Shape1(3).Visible = True If k = 4 Then Shape1(4).Visible = True If k = 5 Then Shape1(5).Visible = True: Shape1(6).Visible = True If k = 6 Then Shape1(7).Visible = True: Shape1(8).Visible = True If k = 7 Then Shape1(9).Visible = True If k = 8 Then MsgBox " Здравствуй, дружок",, " Привет" Else MsgBox " До свидания, дружок",, " Я ушел" Timer1.Interval = 1 End If 13. В окне кода процедуры обработки события Timer для объекта Timer1 набрать: 'движение человечка по " частям" For i = 0 To 9 Shape1(i).Left = Shape1(i).Left + 50 Next i If Shape1(1).Left > 9000 Then End 14. Проверьте работу программы 15. Измените программу так, чтобы «брови» двигались вместе с «человечком»
|