Меню сайта
Полезные странички
Отбравить SMS сообщение БЕСПЛАТНО
Лабораторная работа по MicrosoftVisualBasic № 4
Проект «Движение круга»
- Запустите программу MicrosoftVisualBasic[Пуск - Все программы - MicrosoftVisualBasic 6.0 - MicrosoftVisualBasic 6.0]. На открывшейся диалоговой панели выбрать тип создаваемого проекта STANDART.EXE и нажать кнопку открыть.
- Разместите на форме графическое поле PictureBox, в котором будет производиться построение графика. Поменять свойство у объекта Back Color на значение Active Title Bar Text.
Движение по оси ОХ реализуем в цикле. Эффект анимации получим рисованием сначала круга синего цвета, а затем его стирание кругом цвета фона (белым). Для получение закрашенного круга требуется установить значение свойства FillColor (при рисовании vbBlue, а при стирании vbWhite), которое определяет цвет заполнения рисуемой фигуры. Для свойства FillStyle, которое задает тип закраски (прозрачный – Transparent или непрозрачный - Solid) установить значение Solid.
Скорость движения круга (скорость смены одного изображения другим) можно регулировать с помощью изменения количества повторений пустого цикла между рисованием и стиранием.
- Разместите на форме кнопку cmdStart и создайте событийную процедуру, реализующую анимацию:
Dim intX As Integer, lngI As Long
Private Sub cmdStart_Click()
' Масштаб
Picture1.Scale (-10, 10)-(10, -10)
'Анимация
For intX = -10 To 10
'Рисование
Picture1.FillColor = vbBlue
Picture1.FillStyle = Solid
Picture1.Circle (intX, 0), 1, vbBlue
'Задержка стирания
For lngI = 1 To 10000000
Next lngI
'Стирание
Picture1.FillColor = vbWhite
Picture1.Circle (intX, 0), 1, vbWhite
Next intX
End Sub
- Запустите проект и щелкните по кнопке Пуск.
