سلاید منو

[alixan 24]

سلام دوستان من یه سلاید منو ساده درست کردم با کتابخانهsliding menu wrapper 

مشکلی که الان برام به وجود اومده اینه که وقتی روی گزینه های لیست ویو داخل سلاید منو کلیک میکنم وظایفی که براشون تعریف کردم انجام نمیشه .یعنی کلا هیچ اتفاقی نمیافته 

میخواستم راهنماییم کنید تا بدونم چیکار باید بکنم 

ممنون

slide.Initialize(slide)
	list1.Initialize (list1)
	Dim m As Int = 70%x
	slide.BehindOffset = m
	slide.Mode = slide.left
	
	slide.Menu.AddView (list1,0,0,100%x-m,92%y)
	
	list1.AddSingleLine2("تنظیمات","1")
	
	list1.AddSingleLine2("منابع","2")
	
	list1.AddSingleLine2("تماس با ما","3")

	list1.AddSingleLine2("سایر برنامه ها","4")
	
	Dim l As Label
	l = list1.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 
End Sub

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

درود

به جای شرط ، با Select Position  کار کنید

Select Position
Case 0
kari ke mikhayd anjam beshe
Case 1
Kari ke mikhay anjam beshe
Case 2
Kari ke Mikhayd anjam beshe
.
.
.
End Select

[abbas2142 557]

این کد رو بزن

If Value=1 Then
دستور واسه انجام کار
	End If

[alixan 24]

متسفانه جواب نداد اقای ایزدی

[alixan 24]

عباس جان این روش هم جواب نداد 

[alixan 24]

در در 1394/03/28, 17:54:14، Mehdi izadi گفته است :

 

درود

به جای شرط ، با Select Position  کار کنید

Select Position
Case 0
kari ke mikhayd anjam beshe
Case 1
Kari ke mikhay anjam beshe
Case 2
Kari ke Mikhayd anjam beshe
.
.
.
End Select

من تو بعضی از لیست های اماده دیدم که یه ماژول دیگه ایهست منم باید همچین قسمتی رو میساختم؟ 

یعنی منظورم اینه که تو کلیات که اشتباه ندارم ؟

[Nemesis 1,846]

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

 

کد رویداد  ItemClick خودتو بذار احتمالا مشکل از اونجا باید باشه

[abbas2142 557]

Sub lvMenu_ItemClick (Position As Int, Value As Object)

If Value=1 Then
	دستور اجرایی
	End If

End Sub

اینم بزن شاید شد

[alixan 24]

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

 

کد رویداد  ItemClick خودتو بذار احتمالا مشکل از اونجا باید باشه

فایل پیوست گذاشتم داداش میتونی تو همون پست اول ببینی

[alixan 24]

Sub lvMenu_ItemClick (Position As Int, Value As Object)

If Value=1 Then
	دستور اجرایی
	End If

End Sub

اینم بزن شاید شد

 

نشد  

[Nemesis 1,846]

مشکل من ایه که پیوست باز نمیشه

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

کد فراخوانی رویداد شما احتمالا عمل نمیکه

درست اینیشیالایز کرید؟

Event name درست هست ؟؟

[abbas2142 557]

پیوستت رو عوض کن ببینیم چه خبره

[alixan 24]

سلام دوستان من یه سلاید منو ساده درست کردم با کتابخانهsliding menu wrapper 

مشکلی که الان برام به وجود اومده اینه که وقتی روی گزینه های لیست ویو داخل سلاید منو کلیک میکنم وظایفی که براشون تعریف کردم انجام نمیشه .یعنی کلا هیچ اتفاقی نمیافته 

میخواستم راهنماییم کنید تا بدونم چیکار باید بکنم 

ممنون

slide.Initialize(slide)
	list1.Initialize (list1)
	Dim m As Int = 70%x
	slide.BehindOffset = m
	slide.Mode = slide.left
	
	slide.Menu.AddView (list1,0,0,100%x-m,92%y)
	
	list1.AddSingleLine2("تنظیمات","1")
	
	list1.AddSingleLine2("منابع","2")
	
	list1.AddSingleLine2("تماس با ما","3")

	list1.AddSingleLine2("سایر برنامه ها","4")
	
	Dim l As Label
	l = list1.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 
End Sub

اینم قسمت انتخاب ایتم ها

 

Capture1.JPG

این هم کد لیست ویو 

[alixan 24]

Sub ListView1_ItemClick (Position As Int, Value As Object)

Select Position

Case 0

  StartActivity (Setting)

Case 1

Msgbox("www.beytoote.com","منابع")

Case 2

Msgbox("[email protected]"," ارتباط با ما")

Case 3 

  Dim market As Intent, uri As String

        market.Initialize(market.ACTION_VIEW,uri)

      StartActivity(market)   

 

End Select

End Sub

 

 

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