Заставить двигаться картинку слева направо, через Picturebox - VB

Формулировка задачи:

может кто помочь заставить двигаться эту картинку с лева на права через Picturebox.

                    Листинг программы
                
 
                        
                          
                    
Private Sub Command1_Click()
Circle (4000, 4000), 250
Circle (4000, 4500), 250
Circle (4000, 5000), 250
Circle (4500, 5000), 250
Circle (5000, 5000), 250
Circle (4000, 3250), 500
Circle (4200, 3200), 100
Circle (3800, 3200), 100
Circle (4000, 3400), 100
End Sub

Решение задачи: «Заставить двигаться картинку слева направо, через Picturebox»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Picture1.AutoRedraw = True
Do
    Picture1.Cls
    Picture1.Scale (Picture1.ScaleLeft - 3, Picture1.ScaleTop)- _
                   (Picture1.ScaleLeft + Picture1.ScaleWidth - 3, Picture1.ScaleTop + Picture1.ScaleHeight)
    Picture1.Circle (4000, 4000), 250
    Picture1.Circle (4000, 4500), 250
    Picture1.Circle (4000, 5000), 250
    Picture1.Circle (4500, 5000), 250
    Picture1.Circle (5000, 5000), 250
    Picture1.Circle (4000, 3250), 500
    Picture1.Circle (4200, 3200), 100
    Picture1.Circle (3800, 3200), 100
    Picture1.Circle (4000, 3400), 100
    DoEvents
Loop

Оцени полезность:

15 голосов , оценка 3.867 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы