اسکرول کردن بین آیتم های اسلایدینگ منو

سوال

سلام من در اسلایدینگ منو یک تصویر در بالا قرار داده ام.

و همینطور هشت آیتم الان به خاطر عکسی که در بالا قرار دادم  تمام آیتم ها نشون داده نمیشن و همینطور امکان اسکرول کردن بین تمام آیتم ها رو ندارم.

چه طور میتونم این مشکل رو حل کنم؟

 

Sub Creatmenu
	
	sm.Initialize("sm")
	sm.Mode = sm.RIGHT
	sm.Menu.Color = Colors.RGB(255 , 255 ,255)
	Dim offset As Int = 20%X
	sm.BehindOffset = offset
	
	Dim imgMenu As Panel
	imgMenu.Initialize("")
	imgMenu.LoadLayout("Lmenu")
	sm.Menu.AddView(imgMenu,0%X,0%Y,100%X,31%Y)
	''....................................
	
	Dim lv1 As ListView
	lv1.Initialize("lv1")
	lv1.TwoLinesAndBitmap.SecondLabel.Visible=False
	lv1.TwoLinesAndBitmap.Label.Gravity = Gravity.CENTER
	lv1.TwoLinesAndBitmap.Label.Width = 70%X
	lv1.TwoLinesAndBitmap.Label.Height = 6%Y
	lv1.TwoLinesAndBitmap.Label.Top = 2%Y
	lv1.TwoLinesAndBitmap.Label.Left = 8%X
	lv1.TwoLinesAndBitmap.Label.TextSize = 13
	lv1.TwoLinesAndBitmap.Label.TextColor = Colors.Black
	lv1.TwoLinesAndBitmap.Label.Typeface = Typeface.LoadFromAssets("byekan.ttf")
	lv1.TwoLinesAndBitmap.Label.Typeface = Typeface.DEFAULT_BOLD
	
	lv1.TwoLinesAndBitmap.ItemHeight = 10%Y
	lv1.TwoLinesAndBitmap.ImageView.Width=8%x
	lv1.TwoLinesAndBitmap.ImageView.Height=6%Y
	lv1.TwoLinesAndBitmap.ImageView.Top=2%y
	lv1.TwoLinesAndBitmap.ImageView.Left=66%x
	
	''..........................................
	lv1.AddTwoLinesAndBitmap2("خانه" , "" ,LoadBitmap(File.DirAssets , "home.png") , "HOME")
	lv1.AddTwoLinesAndBitmap2("دیکشنری" , "" ,LoadBitmap(File.DirAssets , "book.png") , "DIC")
	lv1.AddTwoLinesAndBitmap2("مترجم متن" , "" ,LoadBitmap(File.DirAssets , "translate.png") , "TRANSLATE")
	lv1.AddTwoLinesAndBitmap2("تلفظ" , "" ,LoadBitmap(File.DirAssets , "bullhorn.png") , "PRONUNC")
	lv1.AddTwoLinesAndBitmap2("انتخاب تم" , "" ,LoadBitmap(File.DirAssets , "paint-board-and-brush.png") , "TEM")
	lv1.AddTwoLinesAndBitmap2("راهنمای صفحات" , "" ,LoadBitmap(File.DirAssets , "info.png") , "HELP")
	lv1.AddTwoLinesAndBitmap2("ارتباط با توسعه دهنده" , "" ,LoadBitmap(File.DirAssets , "opened-email-envelope.png") , "EMAIL")
	lv1.AddTwoLinesAndBitmap2("خروج" , "" ,LoadBitmap(File.DirAssets , "logout.png") , "EXIT")
	
	''............................................
	
	sm.Menu.AddView(lv1 , 0 , 32%y , 100%X ,100%y)
	
	End Sub

 

در حال بررسی 0
۱۳۹۷/۲/۳ ۱۱:۵۱:۳۳ 2 پاسخ کاربر تازه 0

پاسخ ها ( 2 )

    0
    ۱۳۹۷/۲/۳ ۱۹:۰۱:۰۶

    سلام

    از ScrollView استفاده کنید، برای این کار به لینک زیر مراجعه کنید.

    موفق باشید.

    0
    ۱۳۹۷/۲/۴ ۱۴:۲۶:۴۹

    سلام لینکی که فرستادین مشکل برنامم رو حل نکرد.

ارسال یک پاسخ