اسکرول کردن بین آیتم های اسلایدینگ منو
سلام من در اسلایدینگ منو یک تصویر در بالا قرار داده ام.
و همینطور هشت آیتم الان به خاطر عکسی که در بالا قرار دادم تمام آیتم ها نشون داده نمیشن و همینطور امکان اسکرول کردن بین تمام آیتم ها رو ندارم.
چه طور میتونم این مشکل رو حل کنم؟
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

پاسخ ها ( 2 )
سلام
از ScrollView استفاده کنید، برای این کار به لینک زیر مراجعه کنید.
موفق باشید.
سلام لینکی که فرستادین مشکل برنامم رو حل نکرد.