خطا در اجرای انیمیشن

[engm 76]

سلام دوستان 

من یه انیمیشن با استفاده از یکی از آموزها کار کردم

ولی بعد اینکه اجرا میکنم برنامه اجرا میشه ولی

برای این خط ارور میده

animation1.RepeatCount = sRepeatCount

 

 

لطفا کمکم کنید

 

[a_r_n 7]

 

Sub PlayAnimation(Anim As View,sAction As String, sSpeed As Int,sRepeatCount As Int)
Dim animation1 As Animation

Select Case sAction
Case "rotate"
animation1.InitializeRotateCenter("",0,360,Anim)'

Case "Scale"
animation1.InitializeScaleCenter("",0,0,1,1,Anim)

Case "translate"
animation1.InitializeTranslate("",-Anim.Width,0,0,0)
End Select

animation1.RepeatCount = sRepeatCount
animation1.Duration = sSpeed
animation1.Start(Anim)
End Sub

 

برای اجرای این کد باید چ دستوری ب عکس داد ؟ کمک کنید یادم رفته 

[sganji 678]

 

RepeatCount انیمیشن رو چی گذاشتی؟باید عدد حسابی بزاری.

اگه میتونی سورست یا یه بخش مربوط به انیمیشن رو بزار.

[مهمان]

باید انیمیشن را initialize کنید

[engm 76]

 

 

RepeatCount انیمیشن رو چی گذاشتی؟باید عدد حسابی بزاری.

اگه میتونی سورست یا یه بخش مربوط به انیمیشن رو بزار.

 

منظور اگه نوع متغییر باشه intگذاشتم

[engm 76]

باید انیمیشن را initialize کنید

 

ببخشید چطور باید این کار رو انجام بدم؟

[engm 76]

 

 

RepeatCount انیمیشن رو چی گذاشتی؟باید عدد حسابی بزاری.

اگه میتونی سورست یا یه بخش مربوط به انیمیشن رو بزار.

 

Sub PlayAnimation(Anim As View,sAction As String, sSpeed As Int,sRepeatCount As Int)
Dim animation1 As Animation

Select Case sAction
Case "rotate"
animation1.InitializeRotateCenter("",0,360,Anim)'

Case "Scale"
animation1.InitializeScaleCenter("",0,0,1,1,Anim)

Case "translate"
animation1.InitializeTranslate("",-Anim.Width,0,0,0)
End Select

animation1.RepeatCount = sRepeatCount
animation1.Duration = sSpeed
animation1.Start(Anim)
End Sub