مشکل در اسلاید منو

[محمدی 95]

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



[size=4]Version=2.71
IconFile=
NumberOfModules=0
Package=b4a.example
DoNotOverwriteManifest=False
ManifestCode='This code will be applied to the manifest file during  compilation.~\n~'You do not need to modify it in most cases.~\n~'See  this link for for more information:  http://www.basic4ppc.com/forum/showthread.php?p=78136~\n~AddManifestText(~\n~<uses-sdk  android:minSdkVersion="4"  android:targetSdkVersion="14"/>~\n~<supports-screens  android:largeScreens="true" ~\n~    android:normalScreens="true" ~\n~     android:smallScreens="true" ~\n~     android:anyDensity="true"/>)~\n~SetApplicationAttribute(android:icon,  "@drawable/icon")~\n~SetApplicationAttribute(android:label,  "$LABEL$")~\n~'End of default text.~\n~
UserTypesHint=
NumberOfFiles=1
File1=main.bal
NumberOfLibraries=2
Library1=core
Library2=sidemenubar
@EndOfDesignText@
#Region  Project Attributes 
   #ApplicationLabel: B4A Example
   #VersionCode: 1
   #VersionName: 
   'SupportedOrientations possible values: unspecified, landscape or portrait.
   #SupportedOrientations: unspecified
   #CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes 
   #FullScreen: False
   #IncludeTitle: True
#End Region

Sub Process_Globals
   'These global variables will be declared once when the application starts.
   'These variables can be accessed from all modules.

End Sub

Sub Globals
   'These global variables will be redeclared each time the activity is created.
   'These variables can only be accessed from this module.
   Dim menu As SideMenuBar
   Dim a As Typeface
   Dim b As Bitmap
   Dim i As Int = 0
End Sub

Sub Activity_Create(FirstTime As Boolean)
   'Do not forget to load the layout file created with the visual designer. For example:
   Activity.LoadLayout("main")
   b.Initialize(File.DirAssets,"logo.png")
   a = Typeface.LoadFromAssets("dastnevis.otf")
   menu.Initialize("gh",Me,50%x,True,a,Colors.RGB(184,163,0),b,1,Colors.Black)

   menu.add_item("صفحه اصلی","",LoadBitmap(File.DirAssets,"Home.png"),1)
   menu.add_item("درباره ما","",LoadBitmap(File.DirAssets,"person-icon.png"),2)
   menu.add_item("ارتباط با ما","",LoadBitmap(File.DirAssets,"telephone-icon.png"),3)
   menu.add_item("خروج","",LoadBitmap(File.DirAssets,"exit.png"),4)

   menu.make(Activity)
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub b_show_Click
   If i = 0 Then
       menu.show

   Else
       menu.hide

   End If
End Sub

Sub gh_Opened()
   i = 1
End Sub

Sub gh_Closed()
   i = 0
End Sub

Sub gh_Click(Item As Object)
   ToastMessageShow("Item clicked: " & Item, False)
End Sub
[/size]

بعدش یه سوال دیگه آیا میشه بک گراند خود من و اسلاید هم عوض کرد?

[afraz11 246]

کسی کتابخونه SlideMenu یا slidemenuclass داره واقعا گیرشم

[nahid esmaelpour 18]

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

فک نکنم بشه واسه پس زمینه عکس گذاشت ولی اگه شد حتما کدشو میزارم*hoho*

http://s6.picofile.com/file/8182024900/SlidingPanels.zip.html

[محمدی 95]

لطفا یکی جواب من و بده خیلی مهمه

[nahid esmaelpour 18]

Sub Globals
   'These global variables will be redeclared each time the activity is created.
   'These variables can only be accessed from this module.
   Dim slidingmenu1 As SlidingMenu
   Dim listview1 As ListView
   Dim font As Typeface
   Private Button1 As Button
End Sub

Sub Activity_Create(FirstTime As Boolean)
   'Do not forget to load the layout file created with the visual designer. For example:
   Activity.LoadLayout("splash")
   font=Typeface.LoadFromAssets("byekan.ttf")
   slidingmenu1.Initialize("menu")
   listview1.Initialize("list")
   slidingmenu1.BehindOffset=35%x
   slidingmenu1.Mode=slidingmenu1.LEFT
   slidingmenu1.Menu.AddView(listview1,5,5dip,82%x,100%y)
   listview1.AddTwoLinesAndBitmap2("فهرست","",LoadBitmap(File.DirAssets,"fehrest.png"),1)
   listview1.AddTwoLinesAndBitmap2("تنظیمات","",LoadBitmap(File.DirAssets,"setting.png"),2)
   listview1.AddTwoLinesAndBitmap2("تماس با ما","",LoadBitmap(File.DirAssets,"about.png"),3)
   listview1.AddTwoLinesAndBitmap2("خروج","",LoadBitmap(File.DirAssets,"exit.png"),4)
   Dim lbl As Label
   lbl=listview1.TwoLinesAndBitmap.Label
   lbl.Color=Colors.RGB(245,159,188)
   lbl.Gravity=Gravity.RIGHT
   lbl.Left=lbl.Left-120dip
   lbl.TextSize=20
   lbl.Height=100
   lbl.Typeface=font
   lbl.Top=5
   lbl.TextColor=Colors.RGB(225,0,82)
   Button1.SetBackgroundImage(LoadBitmap(File.DirAssets,"slide.png"))

   Dim gra(2) As Int
   gra(0)=Colors.RGB(225,0,82)
   gra(1)=Colors.RGB(255,255,255)
   Dim grad1 As GradientDrawable
   grad1.Initialize("TOP_BOTTOM",gra)
   slidingmenu1.Menu.Background=grad1

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub


Sub list_ItemClick(Position As Int,Value As Object)
If Position=0 Then
   StartActivity(fehrest)
   slidingmenu1.HideMenus
Else If Position=1 Then 
   StartActivity(setting)
   slidingmenu1.HideMenus
Else If Position=2 Then
   StartActivity(about)
   slidingmenu1.HideMenus
Else If Position=3 Then
   ExitApplication
   slidingmenu1.HideMenus
End If 
End Sub
Sub Button1_Click
   If slidingmenu1.Visible=False Then
   slidingmenu1.ShowMenu
   Else If slidingmenu1.Visible=True Then
   slidingmenu1.HideMenus
   End If
End Sub

شما عین همین کدو بنویس مطمئن باش مشکلت حل میشه،درضمن هر جا سوالی بود همین جا بپرس توضیح میدم

[محمدی 95]

ببخشید تو این کد تنها به این خطر گیر میده

Dim slidingmenu1 As SlidingMenu

فکر کنم کتابخونشو ندارم اگه امکان داره کتابخانشو قرار بدید اگر هم سورسش هست بذارید که به دنیا ممنون میشم

[nahid esmaelpour 18]

ببخشید یادم رفت کتابخونه شو بزارم

اینم لینک دانلود کتابخونه . . .

در ضمن باید همزمان کتابخونه های SlidingMenuWrapper ، SlidingPanels رو روشن کنید.

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

http://s4.picofile.com/file/8181834442/SideMenuBar.zip.html

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

بعدش یه سوال دیگه آیا میشه بک گراند خود من و اسلاید هم عوض کرد?

تشکر از کاربر nahid esmaelpour

بله دوست من میشه.شما به کد :

menu.Initialize("gh",Me,50%x,True,a,Colors.RGB(184,163,0),b,1,Colors.Black)

توجه کنید که یک متغییر بیتمپ داریم و از RGB استفاده شده که بر میگرده به رنگ ساید منو و بکگراندش.

[محمدی 95]

مرسی آقا مجید ولی منظورم از بک گراند عکس بود

عکس میشه قرار بدیم?

مرسی ناهید خیلی ممنون اگه کتابخانه بذارید که عالی میشه ممنون

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

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