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