09-20-2014، 02:48 PM
(09-20-2014، 11:24 AM)Thewolf نوشته: شما میتونید از کتابخانه Animation استفاده کنید. با استفاده از Animation.InitializeTranslate میتونید تصویر رو جابه جا کنید.
با کد بالا تصویر به مختصات 100 چپ و 100 بالا جابه جا میشه!!! به صورت فریم به فریم در طول 1000 میلی ثانیه!!!کد:dim ani as animation
ani.InitializeTranslate("ani",0,0,100,100)
ani.Duration = 1000
ani.RepeatCount = 0
ani.RepeatMode = ani.REPEAT_REVERSE
ImageView1.Tag = ani
ani.Start(imageview1)
اگه کتابخانه هم نداشتید میتونید تو بخش کتابخانه سایت بگردید هست یا اگه نتونستید بگید خودم میذارم همین جا!!!
موفق باشید ...
سلام مجدد، من قبلا از translate و کتابخانه animation استفاده کردم ولی مشکل اینجاست که بعد از اتمام حرکت در صورت کلیک مجدد به مکان اول برنمیگرده و همینطور با هر بار کلیک دستور اول رو اجرا میکنه تا اینکه آیتم آبجکت از صفحه خارج میشه. توی کدهای شما reverse داشت ولی برنمیگردوند به مکان اول.
درضمن من برای توقف در مکان نهایی پس از حرکت از کد زیر استفاده کردم که جواب میده:
Sub a1_animationEnd
ImageView2.top=ImageView2.Top-100
End Sub
بازهم ممنون میشم اگر مثل قبل راهنمایی بفرمایید.