اسلاید منو

[berayan 90]

سلام خدمت تمامی اعضای انجمن

آموزشی رو که خدمتون ارائه میدم مربوط به اسلاید منو یا (همون باز و بسته کردن پنل با انمیشن هست )

امید وارم به کارتو بیاد .

سورس رو می توانید از انتهای صفحه دانلود کنید .

(حرکت رفت و برگشت از راست به چپ و کاملا با انمیشن و بدون پرش می باشد)

--------------------------------------------------------------------------------------------------

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

1. کتابخانه انمیشن را فعال کنید.

2 . یک Layout می سازید و یک دکمه به نام(btnshow) و یک پنل به نام (PmenoSlid)به ان اضافه میکند.

تنظیمات Layout را به این صورت قرار میدهید .

PmenoSlid.top = 12.5%y
PmenoSlid.Height = 87.5%y
PmenoSlid.Width = 55%x
' ----------------------------
btnshow.top = 3%y
btnshow.Height = 6%y
btnshow.Left = 87%x
btnshow.Width = 6%y
'--------------------------------

3.بعد در اکتیویتی این دستورات را مینویسید .

لازم به ذکر که فقط پنل طراحی شده شما می توانید هر ایتمی که خواستید در لایوت در داخل پنل قرار دهید مثلا یک دکمه و فقط عملیات کلیک را در اکتیویتی براش تعریف کنید و نیازی نیست برای دکمه هم اسلاید ساخته شود .

تمام عملیات مربوط به اسلاید و انمیشن با پنل انجام میشود و نیازی نیست برای ایتم های دیگر هم اسلاید تعریف شود .

[color=#0000ff]Sub Process_Globals[/color]
[size=3]برای چک کردن حرکت  رفت و برگشتی اسلاید[/size]    Dim chekB As Boolean'---------slid


[color=#0000ff]End Sub[/color]


[color=#0000ff]Sub Globals[/color]
   Private PmenoSlid As Panel
   Private btnshow As Button
[color=#0000ff]End Sub[/color]


[color=#0000ff]Sub Activity_Create(FirstTime As Boolean)[/color]



   Activity.LoadLayout("1")

[size=4]برای غیر فعال کردن اسلاید[/size]    PmenoSlid.Left=100%x

[size=4]  دستور اولیه برای حرکت اسلاید [/size]    chekB = True



[color=#0000ff]End Sub[/color]


[color=#0000ff]Sub Activity_Resume[/color]


[color=#0000ff]End Sub[/color]


[color=#0000ff]Sub Activity_Pause (UserClosed As Boolean)[/color]


[color=#0000ff]End Sub[/color]
[color=#0000ff]Sub btnshow_Click[/color]'------------------------ slid




[size=4][color=#0000ff]حرکت به سمت بیرون[/color][/size][color=#800080]   If [/color]chekB = True [color=#800080]Then[/color]


[size=4] تعریف انمیشن[/size] Private InA As Animation
 [size=4]تنظیمات جهت حرکت انمیشن[/size] InA.InitializeTranslate("", 55%x, 0, 0, 0)
 [size=4] زمان انمیشن [/size] InA.Duration = 300


InA.Start(PmenoSlid)
PmenoSlid.Left=45%x
chekB=False




[size=4][color=#0000ff]حرکت به سمت داخل [/color][/size][color=#800080] Else If[/color] chekB = False [color=#800080]Then[/color]


Private OutA As Animation
OutA.InitializeTranslate("out", -55%x, 0, 0, 0)
OutA.Duration = 400


OutA.Start(PmenoSlid)
PmenoSlid.Left=100%x


chekB=True




[color=#800080]End If[/color]
[color=#0000ff]End Sub[/color]'-------------------------------------

موفق باشید

SlideMenu.mr.rar