Проект «Движение круга».

Проект «Движение круга». 1. Разместить на форме графическое поле picAnim, в котором будет производится движение круга. 2. Поместить на форму кнопку cmdStart и создать  событийную процедуру, реализующую анимацию: Private Sub cmdStart_Click() Dim intX As Integer, lngI  As Long ‘Масштаб picAnim.Scale (­10,10)­(10,­10) ‘Анимация For intX= ­10 To 10 ‘Рисование picAnim.FillColor=vbBlue picAnim.Circle(intX,0),1,vbBlue ‘Задержка стирания For lngI=1 To 10000000 Next lngI ‘Стирание picAnim.FillColor=vbWhite picAnim.Circle(intX,0),1,vbWhite next intX End Sub В свойстве FillStyle объекта  picAnim поставить  значение 0 ­ Solid  3. Запустить проект и щёлкнуть по кнопке Старт. В графическом поле начнётся движение синего круга  по оси ОХ.  Проект «Движение круга». 1. Разместить на форме графическое поле picAnim, в котором будет производится движение круга. 2. Поместить на форму кнопку cmdStart и создать  событийную процедуру, реализующую анимацию: Private Sub cmdStart_Click() Dim intX As Integer, lngI  As Long ‘Масштаб picAnim.Scale (­10,10)­(10,­10) ‘Анимация For intX= ­10 To 10 ‘Рисование picAnim.FillColor=vbBlue picAnim.Circle(intX,0),1,vbBlue ‘Задержка стирания For lngI=1 To 10000000 Next lngI ‘Стирание picAnim.FillColor=vbWhite picAnim.Circle(intX,0),1,vbWhite next intX End Sub В свойстве FillStyle объекта  picAnim поставить  значение 0 ­ Solid 3. Запустить проект и щёлкнуть по кнопке Старт. В  графическом поле начнётся движение синего круга  по оси ОХ.  Проект «Движение круга». 1. Разместить на форме графическое поле picAnim, в котором будет производится движение круга. 2. Поместить на форму кнопку cmdStart и создать  событийную процедуру, реализующую анимацию: Private Sub cmdStart_Click() Dim intX As Integer, lngI  As Long ‘Масштаб picAnim.Scale (­10,10)­(10,­10) ‘Анимация For intX= ­10 To 10 ‘Рисование picAnim.FillColor=vbBlue picAnim.Circle(intX,0),1,vbBlue ‘Задержка стирания For lngI=1 To 10000000 Next lngI ‘Стирание picAnim.FillColor=vbWhite picAnim.Circle(intX,0),1,vbWhite next intX End Sub В свойстве FillStyle объекта  picAnim поставить  значение 0 ­ Solid 3. Запустить проект и щёлкнуть по кнопке Старт. В  графическом поле начнётся движение синего круга  по оси ОХ.  Проект «Движение круга». 1. Разместить на форме графическое поле picAnim, в котором будет производится движение круга. 2. Поместить на форму кнопку cmdStart и создать  событийную процедуру, реализующую анимацию: Private Sub cmdStart_Click() Dim intX As Integer, lngI  As Long ‘Масштаб picAnim.Scale (­10,10)­(10,­10) ‘Анимация For intX= ­10 To 10 ‘Рисование picAnim.FillColor=vbBlue picAnim.Circle(intX,0),1,vbBlue ‘Задержка стирания For lngI=1 To 10000000 Next lngI ‘Стирание picAnim.FillColor=vbWhite picAnim.Circle(intX,0),1,vbWhite next intX End Sub В свойстве FillStyle объекта  picAnim поставить  значение 0 ­ Solid 3. Запустить проект и щёлкнуть по кнопке Старт. В  графическом поле начнётся движение синего круга  по оси ОХ.