حرکت دادن button با کتابخانه انیمیشن

[koke_sa 43]

سلام توی صفحه دو تا دیکمه هست که محل قرار گیری (مختصات) مشخی نداره و هر بار یک جای صفحه هستند میخوام وقتی روی مثلا رویداد buton1 کلیک شد همین دکمه button1 حرکت کنه بره به سمت button2 به صورت انمیشن

 

Dim an As Animation
    an.InitializeTranslate("btn1",Button1.Left,Button1.Top,Button2.Left,Button2.Top)
    an2.Duration=1000
    an2.Start(Button1)

 

از این کد استفاده میکنم اما مطمئنم مختصات رو غلط میدم

چی کار باید بکنم تا دقیقا بره جای دکمه دوم

بازم میگم با فرض اینکه خودمان مختصات دکمه دوم رو نداریم ها

[امین شاهدی 5,773]

اصلا هیچ کتابخونه ای لازم نیست ... اینجوری بنویسین :

Sub Button1_Click
	Button1.SetLayoutAnimated(1000,Button2.Left,Button2.Top,Button2.Width,Button2.Height)
End Sub

[shaki 76]

این کتاب خانه برای حرکت اشیا به کار می ره یه کم باهاش کار کنید می تونید کاری که می خوایند رو انجام بدید

pass:basic4android.org

PinchZoomAndMove.rar

PinchZoomAndMove_1.45-basic4android.org.rar

[koke_sa 43]

ممنون مشکلم حل شد ورژن 4.30 رو نصب کردم و با کد شما مشکل حل شد . از همه تشکر میکنم .

[Nemesis 1,846]

کد شما مشکل داره

اولا an2 اشتباست باید همون an باشه اینو بررسی کنید تا من مقدار دهی رو بررسی کنم

[koke_sa 43]

بله حق باشماست برای حل این مشکل از کتابخانه AnimationPlus هم  استفاده کردم که اسمش رو an2 گذاشته بودم و اینجا به اشتباه قرار دادم . مشکل من فقط دادن مختصات هست . بازم ممنون از وقتی که میزارید

[afraz11 246]

تو انجمن یه سورس بود که کامل توضیح داده بود جستجو کنید

[Nemesis 1,846]

فکر کنم این مشکلت رو حل کنه بررسی کن

an.InitializeTranslate("btn1",Button1.Left,Button1.Top-Button1.Height,Button2.Left,Button2.Top-Button2.Height)

[koke_sa 43]

متسفانه مشکل حل نشد

[Nemesis 1,846]

چطور؟

برای بنده حل شده مشکلش کجاست؟

[koke_sa 43]

ببنید button2 رو بزارید بالای اکتیویتی و button 1 رو بزارید پایین بعد آزمایش کنید

[Nemesis 1,846]

درسته این رو بررسی کنید

 an.InitializeTranslate("btn1",Button1.Left-Button1.Width/2,Button1.Top,Button2.Left-Button2.Width/2,Button2.Top)

[koke_sa 43]

واقعا ممنون اما اینم نشد یک تصویر از صفحه قرار میدم

[koke_sa 43]

بازم مرسی سعی میکنم حلش کنم اگر حل شد حتمامیزارم  تا همه گی  استفاده کنن

[Nemesis 1,846]

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

[vahidh16 160]

از کتابخونه های :

ICOSFadeAnimation

ICOSSLideAnimation

ICOSScaleAnimation

ICOSRotateAnimation

استفاده کنید...کار باهاش راحت و آسونه...هر کتابخونه واسه یه انیمیشن هست...

دانلود

[koke_sa 43]

ممنون اما این کتابخانه ها برای حرکت دادن نیستند یا اگر هستند میشه بگید کدوم ؟

[vahidh16 160]

بله ببخشید من دقت نکرده بودم...واسه جابه جایی نیست درواقع ولی شاید بدردتون بخوره

اون Scale

موفق باشید

یا هم از کتابخانه Animation استفاده کن

[DH 1999 12]

سلام.میخوام وقتی رو یک باتن کلیک میشه اون باتن بچرخه.چجوری باید کدشو بنویسم؟؟؟

[koke_sa 43]

از دوستان کسی نتونستن این مشکل رو حل کنن ؟

[مجید آرتا 5,874]

سلام

شما با انیمیشن حرکت ندید با تایمر حرکت بدید.

و واسه انیمیشن دادن هم باز میخوایید تکرار بشه میتونید توی رویداد End  دوباره انیمیشن بدید.

یکی از دوستان خیلی وقت پیش یک سوالی در مورد اینکه ما مثلا یک مانع داریم و میخواییم زمانی که ما به مانع برخورد کردیم یک پیغامی یا یک عملی رو انجام بده.

خب بنده یک تیکه کد کوچولو نوشته بودم به این شکل :

Sub Globals

    Dim timer1 As Timer
    Private Porpuse As Button
    Private Steel As Button
End Sub




Sub Activity_Create(FirstTime As Boolean)
 Activity.LoadLayout("a")
timer1.Initialize("timer1",120)
End Sub



Sub timer1_Tick
Porpuse.Top=Porpuse.Top-1
DoEvents
Dim i As Int : i=Steel.Top
If Porpuse.Top=i+1 Then
Msgbox("Barkhurd Ba Ma'ane","Barkhurd")
End If
End Sub


Sub Activity_Click
    timer1.Enabled=True
End Sub

ببینید شاید این کد بکارتون نیاد ولی میتونید از روی همین راه و روشی پیدا کنید.

الان بخاطر اینکه بنده عجله دارم نمیتونم کمک درست و درمونی بکنم انشاءالله اومدم و دیدم به نتبجه ای نرسیدید قطعا روی این موضوع بحث می کنیم.

موفق باشید