با سلام من یک اسلاید منو با کتابخانه AHNavigationDrawer ساختم
میام در بخش اسکریپت سایز می دم هیچی نشون نمیده
ولی وقتی سایز نمیدم همه چی نشون می ده
لطفا کمکم کنید
Sub Globals
Dim navi As AHNavigationDrawer
Dim pCantent As Panel
End Sub
Sub Activity_Create(FirstTime As Boolean)
'دیگه نیازی به لود لایوت داخل اکتیویتی نیست!!!
slide
End Sub
Sub Activity_Resume
End Sub
Sub Activity_Pause (UserClosed As Boolean)
End Sub
'پژمان نیکروان
'basuc4android.org
Sub Button1_Click
navi.OpenDrawer2(navi.GRAVITY_RIGHT) 'باز کردن از سمت راست
' navi.OpenDrawer2(navi.GRAVITY_RIGHT) ' باز کردن از سمت چپ
End Sub
Sub slide
' navi.Initialize2("navi",Activity,75%x,navi.GRAVITY_LEFT)'برای چپ چین بودن
navi.Initialize2("navi",Activity,75%x,navi.GRAVITY_RIGHT)' جهت راس چین بودن ساید بار
navi.NavigationPanel.Color = Colors.ARGB(150,236,239,241) ' برای تغییر میزان مرئی بودن ساید بار 150 را تغییر دهید
navi.NavigationPanel.LoadLayout("menu")
pCantent.Initialize("")
navi.ContentPanel.AddView(pCantent,0,0,100%x,100%y)
pCantent.SendToBack
pCantent.LoadLayout("main")
pCantent.Color = Colors.RGB(234,234,234)
End Sub
Sub Panelmenu_Touch (Action As Int, X As Float, Y As Float) 'اینو ایجاد میکنیم تا روی پنل منو کلیک شد ، ویو های زیرش عکس العمل نشون ندن
End Sub
سوال
rezanaseri 6
با سلام من یک اسلاید منو با کتابخانه AHNavigationDrawer ساختم
میام در بخش اسکریپت سایز می دم هیچی نشون نمیده
ولی وقتی سایز نمیدم همه چی نشون می ده
لطفا کمکم کنید
Sub Globals Dim navi As AHNavigationDrawer Dim pCantent As Panel End Sub Sub Activity_Create(FirstTime As Boolean) 'دیگه نیازی به لود لایوت داخل اکتیویتی نیست!!! slide End Sub Sub Activity_Resume End Sub Sub Activity_Pause (UserClosed As Boolean) End Sub 'پژمان نیکروان 'basuc4android.org Sub Button1_Click navi.OpenDrawer2(navi.GRAVITY_RIGHT) 'باز کردن از سمت راست ' navi.OpenDrawer2(navi.GRAVITY_RIGHT) ' باز کردن از سمت چپ End Sub Sub slide ' navi.Initialize2("navi",Activity,75%x,navi.GRAVITY_LEFT)'برای چپ چین بودن navi.Initialize2("navi",Activity,75%x,navi.GRAVITY_RIGHT)' جهت راس چین بودن ساید بار navi.NavigationPanel.Color = Colors.ARGB(150,236,239,241) ' برای تغییر میزان مرئی بودن ساید بار 150 را تغییر دهید navi.NavigationPanel.LoadLayout("menu") pCantent.Initialize("") navi.ContentPanel.AddView(pCantent,0,0,100%x,100%y) pCantent.SendToBack pCantent.LoadLayout("main") pCantent.Color = Colors.RGB(234,234,234) End Sub Sub Panelmenu_Touch (Action As Int, X As Float, Y As Float) 'اینو ایجاد میکنیم تا روی پنل منو کلیک شد ، ویو های زیرش عکس العمل نشون ندن End Sub
لینک ارسال
به اشتراک گذاری در سایت های دیگر
7 پاسخ به این سوال تاکنون داده شده است
ارسالهای توصیه شده
بایگانی شده
این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.