Народ, помогите сделать анимацию!!!

[fort]

фишка такая:
есть круглая форма. нужно сделать так, что бы по периметру крутился какой нибудь рисунок (например круг).с
помогите кто могет...

[Bonesnapper]

что крутится то должно - шейп,пикчербокс,или надо круг рисовать на форме

[Kirill1983]

Можешь ClipСontrol использовать и сам нарисовать,что и как у тя крутицца будет...

[fort]

Bonesnapper скажем так: должен крутиться Image с 3D шариком.

[Faust]

Так, что ли?

Код: Выделить всё

Private Declare Function timeGetTime Lib "winmm.dll" () As Long
Dim StopFlag As Boolean

Private Sub Form_Load()
Dim t As Long, rx As Integer, ry As Integer
StopFlag=False
rx=(Me.ScaleWidth-Image1.ScaleWidth)\2
ry=(Me.ScaleHeight-Image1.ScaleHeight)\2
Do
   t=timeGetTime
   Image1.Left = rx+rx*Cos(t)
   Image1.Top = ry+ry*Sin(t)
   DoEvents
Loop Until StopFlag
End Sub

Private Sub Form_Click()
StopFlag=True
End Sub


[Bonesnapper]

Faust
Так то так только я думаю лучше таймером
и
Image1.Width
и
me.show

[Faust]

Таймер глюкавый просто, я его по привычке не использую. А по поводу Image1.ScaleWidth и Image1.ScaleHeight я действительно погорячился...

[fort]

Faust все конечно класно, все работает, спасибо большее,только есть один маленький нюанс - форма то овальная

Код: Выделить всё

Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function SetWindowRgn Lib "USER32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Private Sub Form_Load()
  Show
  SetWindowRgn hWnd, CreateEllipticRgn(3, 3, 300, 300), False  ' True
End Sub

тогда возникает другой вопрос:
как сделать так, что бы какой-либо элемент крутился по окружности с центром в заданной точке?

[hludens]

X=x0+r*sin(a)
Y=Y0+r*sin(a)

где
x0 Y0 - центр окружности
R радиус.
а -Угол поворота (меняем в цикле)
x y -координаты объекта

Это же простейшая задачка по математике...

Если форма овальная то вместо R использоваьт R1 и R2 соответственно ширину и высоту формы.

[fort]

туплю. бывает иногда...
спасибо...