دستور اجرای انیمیشن

[a_r_n 7]

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

 

 Sub playAnimation(Anim As View , sAction As String , sSpeed, 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)

 

 

 End Select

 

 animation1.RepeatCount = sRepeatCount

 

 animation1.duration = sSpeed

 

 animation1.start(Anim)

 

 End Sub

[Kazem Forghani 2,928]

برای اجرای ساب نام ساب رو بنویسید playAnimation

[a_r_n 7]

برای اجرای ساب نام ساب رو بنویسید playAnimation

ینی اینجوری 

imageview1.playanimation("sclae")

[Kazem Forghani 2,928]

ینی اینجوری 

imageview1.playanimation("sclae")

نخیر این راه غلطه

[a_r_n 7]

نخیر این راه غلطه

خب لطف میکنید درستشو بگید گیرم