مشکل با منو ساده

[mostafa.kasiri 115]

با سلام

 من یک منو درست کردم این کد هاش 

Sub Activity_Create(FirstTime As Boolean)
slide.Initialize(slide)
li.Initialize (li)
Dim m As Int = 70%x
slide.BehindOffset = m
slide.Mode = slide.left


slide.Menu.AddView (li,0,0,100%x-m,92%y)

li.AddSingleLine2("صفحه اصلی","1")


li.AddSingleLine2("بروزرسانی","2")


li.AddSingleLine2("پشتیبانی","3")


li.AddSingleLine2("خروج","4")


Dim l As Label
l = li.SingleLineLayout.Label
l.textcolor =Colors.Black
l.TextSize= 15
l . Gravity =Gravity.CENTER 


Dim grad(2) As Int
grad (0) = Colors.RGB(189, 195, 199)
grad (1) = Colors.RGB(111, 122, 130)
Dim gradiant As GradientDrawable 
gradiant.Initialize ("TOP_BOTTOM",grad)
slide.Menu .Background =gradiant 
STR.SetColorScheme2(Array As Int (Colors.Red, Colors.Blue, Colors.Green, Colors.Cyan, Colors.Magenta, Colors.Yellow))
Activity.AddMenuItem3("Refresh", "Menu", Null, True)


End Sub

بعد وقتی ساب کلیک رو میزارم کار نمی کنه

Sub li_ItemClick (Position As Int, Value As Object)
Select Value
Case 1
slide.ShowMenu
Case 2
webview1.LoadUrl("http://؟؟؟؟؟؟؟؟؟؟؟؟؟")
Case 3


Case 4
Dim i As Int
i = Msgbox2 ("میخواهید از برنامه خارج شوید "," خارج شدن","بله ","خیر","",Null)
If i = DialogResponse.POSITIVE Then
ExitApplication
Else If i = DialogResponse.CANCEL Then
Return True
Else If i = DialogResponse.NEGATIVE Then
End If 


End Select
End Sub

چی کار کنم؟؟؟

[Mr Mansour 329]

شما موقع Initialize کردن Event مورد نظر تون رو تو (") نزاشتین

slide.Initialize("slide")
li.Initialize("li")
Dim m As Int = 70%x
slide.BehindOffset = m
slide.Mode = slide.left


slide.Menu.AddView (li,0,0,100%x-m,92%y)

li.AddSingleLine2("صفحه اصلی","1")


li.AddSingleLine2("بروزرسانی","2")


li.AddSingleLine2("پشتیبانی","3")


li.AddSingleLine2("خروج","4")


Dim l As Label
l = li.SingleLineLayout.Label
l.textcolor =Colors.Black
l.TextSize= 15
l . Gravity =Gravity.CENTER
End Sub

[محمدرضا شاهپیری 5,631]

اشتباه نوشتی عزیز به این صورت باید بنویسی

li.AddSingleLine2("صفحه اصلی",1)

 

بقیه رو هم به همین شکل بنویس

[mostafa.kasiri 115]

سلام 

اینجوری هم نوشتم اما نشد

li.AddSingleLine2("صفحه اصلی",1)
li.AddSingleLine2("بروزرسانی",2)
li.AddSingleLine2("پشتیبانی",3)
li.AddSingleLine2("خروج",4)

[Mr Mansour 329]

SlideMenu باز نمیشه یا اون ایتم های لیستت اجرا نمیشه ؟؟

[Mr Mansour 329]

ببینید دوست عزیز Case 3 شما خالی گذاشتین فک کنم برای اینه که اجرا نمیشه پاکش کن !!!!

یا هم براش یه دستوری بنویس خالی نزار

[mostafa.kasiri 115]

الان به همش دستور دادم اما بازم نشد

Sub li_ItemClick (Position As Int, Value As Object)
Select Value
Case 1
slide.ShowMenu
Case 2
webview1.LoadUrl("http://google.com")
Case 3
Dim i As Int
i = Msgbox2 ("میخواهید از برنامه خارج شوید "," خارج شدن","بله ","خیر","",Null)
If i = DialogResponse.POSITIVE Then
ExitApplication
Else If i = DialogResponse.CANCEL Then
Return True
Else If i = DialogResponse.NEGATIVE Then
End If 


Case 4
Dim i As Int
i = Msgbox2 ("میخواهید از برنامه خارج شوید "," خارج شدن","بله ","خیر","",Null)
If i = DialogResponse.POSITIVE Then
ExitApplication
Else If i = DialogResponse.CANCEL Then
Return True
Else If i = DialogResponse.NEGATIVE Then
End If 


End Select
End Sub

[mostafa.kasiri 115]

 

شما موقع Initialize کردن Event مورد نظر تون رو تو (") نزاشتین

slide.Initialize("slide")
li.Initialize("li")
Dim m As Int = 70%x
slide.BehindOffset = m
slide.Mode = slide.left


slide.Menu.AddView (li,0,0,100%x-m,92%y)

li.AddSingleLine2("صفحه اصلی","1")


li.AddSingleLine2("بروزرسانی","2")


li.AddSingleLine2("پشتیبانی","3")


li.AddSingleLine2("خروج","4")


Dim l As Label
l = li.SingleLineLayout.Label
l.textcolor =Colors.Black
l.TextSize= 15
l . Gravity =Gravity.CENTER
End Sub

میشه بگید کجا؟