مشک در آدرس دهی به side menu bar

[bahadorks 13]

سلام

دوستان من از این ساید با را استفاده کردم اما نمیدونم چطوری بهش آدرس بدم توی آیتم کلیک؟

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

چطوری برای هر آیتم جداگانه وظیفه تعریف کنم؟

[/size]Sub Activity_Create(FirstTime As Boolean)
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 If
End Sub[size=4]

[bahadorks 13]

دوستان!! آشنایان!!

[bahadorks 13]

​آقایون داداشام خداوکیلی هیچکی بلد نیست؟

[مهدی ایزدی 9,203]

سلام

من بیشتر از همه یک چیز دیگه ذهنمو مشغول کرد که دوست دارم اول جواب اونو بدونم

End If توی کد زیر چیکار میکنه؟ :-d

Sub gh_Click(Item As Object)
    ToastMessageShow("Item clicked: " & Item, False) ")
    End If
End Sub

[محمدی 95]

بخدا منم یه لحظه دیدم تعجب کردم

[bahadorks 13]

*rofl*

دستکاری های خودمه

:-dهی زیاد و کم کردم آخرش اینا اضافاتشه

[bahadorks 13]

این سورس ساید بارشه

http://s6.picofile.com/file/8187879218/Sidemenubar.zip.html

[محمدی 95]

شما از این کد که ناهید خانم قبلا گذاشته اند میتونید الگو بگیرید و تغییرات به پروژه تون اضافه کنید

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

[farzad 41]

دوست عزیز این طوری آدرس بده

Sub gh_Click(Item As Object)

If Item = 1 Then  
Activity.Finish

End Sub

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

[b]Select Case Item[/b][b] 

Case 1[/b]
[b]  'Code Haye Item Aval[/b]

[b] Case 2[/b]

[b]  'Code Haye Item Dovom[/b]
[b] Case3[/b]

[b]  'Code Haye Item Sevom[/b]

[b] Case 4[/b]

[b]  'Code Haye Item Chaharom[/b]

[b]End Select[/b]

[sinaparsian 29]

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

Sidemenubar

اینجا آپلود کنید؟؟

[mina 0]

سلام

دوستان من از این ساید با را استفاده کردم اما نمیدونم چطوری بهش آدرس بدم توی آیتم کلیک؟

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

چطوری برای هر آیتم جداگانه وظیفه تعریف کنم؟

[/SIZE]Sub Activity_Create(FirstTime As Boolean)
	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 If
End Sub[SIZE=4]

ببخشید یه سوال؟

من این فایل رو وقتی باز میکنم قسمت menu ها و Dim menu As SideMenuBar  قرمز رنگه 

گفتم شاید نیاز به library خاصی داره هر چی دنبال library,slidemenu bar گشتم چیزی پیدا نکردم به نظر شما مشکلش چیه؟

[sinaparsian 29]

اگه کسی کتابخونه

 

sidemenubar

 

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

 

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

رمز فایل : basic4android.org

 

SideMenuBar.rar