اصلاح اندازه لیست ویو
سوال
سلام خداقوت
من یه لیست ویو نوشتم برای صفحه ارتباط با ما
منتها انتهای لیست ویو رو نمیتونم تنظیم کنم که وقتی گزینه ها تموم میشه اون هم تموم بشه و یک فضای خالی زیادی رو به اپ تحمیل کرده
ممنون میشم ایراد کدهام رو بفرمایید
|
۱ ۲ ۳ ۴ ۵ ۶ ۷ ۸ ۹ ۱۰ ۱۱ ۱۲ ۱۳ ۱۴ ۱۵ ۱۶ ۱۷ ۱۸ ۱۹ ۲۰ ۲۱ ۲۲ ۲۳ ۲۴ ۲۵ ۲۶ ۲۷ ۲۸ ۲۹ ۳۰ ۳۱ ۳۲ ۳۳ ۳۴ ۳۵ ۳۶ ۳۷ ۳۸ ۳۹ ۴۰ ۴۱ ۴۲ ۴۳ ۴۴ ۴۵ ۴۶ ۴۷ ۴۸ ۴۹ ۵۰ ۵۱ ۵۲ ۵۳ ۵۴ ۵۵ ۵۶ ۵۷ ۵۸ ۵۹ ۶۰ ۶۱ ۶۲ ۶۳ ۶۴ ۶۵ ۶۶ ۶۷ ۶۸ ۶۹ ۷۰ ۷۱ ۷۲ ۷۳ ۷۴ ۷۵ ۷۶ ۷۷ ۷۸ ۷۹ ۸۰ ۸۱ ۸۲ ۸۳ ۸۴ ۸۵ ۸۶ ۸۷ ۸۸ ۸۹ ۹۰ ۹۱ ۹۲ ۹۳ ۹۴ ۹۵ ۹۶ ۹۷ ۹۸ ۹۹ ۱۰۰ ۱۰۱ ۱۰۲ ۱۰۳ ۱۰۴ ۱۰۵ ۱۰۶ ۱۰۷ ۱۰۸ ۱۰۹ ۱۱۰ ۱۱۱ ۱۱۲ ۱۱۳ ۱۱۴ ۱۱۵ ۱۱۶ ۱۱۷ ۱۱۸ ۱۱۹ ۱۲۰ ۱۲۱ ۱۲۲ ۱۲۳ ۱۲۴ ۱۲۵ ۱۲۶ ۱۲۷ ۱۲۸ ۱۲۹ ۱۳۰ ۱۳۱ ۱۳۲ ۱۳۳ ۱۳۴ ۱۳۵ |
Sub Activity_Create(FirstTime As Boolean) Activity.LoadLayout("ltamas") slv1.Initialize(۱۰۰۰dip) Activity.AddView(slv1,۰%x,۱۰%y,۱۰۰%x,۹۰%y) slv1.Panel.Height=۱۵۴۰dip slv1.SendToBack slv2 End Sub Sub slv2 Dim slv1pnl1 As Panel slv1pnl1.Initialize("slv1pnl1") ' slv1pnl1.Color=Colors.Red slv1.Panel.AddView(slv1pnl1,0,5,slv1.Width,300) slv1pnl1.SetBackgroundImage(LoadBitmap(File.DirAssets,"13.jpg")) Dim imgboss As ImageView imgboss.Initialize("imgboss") imgboss.Bitmap=LoadBitmap(File.DirAssets,"profilepic.png") slv1pnl1.AddView(imgboss,5,5,295,290) imgboss.Gravity=Gravity.FILL Dim imgtelboss As ImageView imgtelboss.Initialize("imgtelboss") imgtelboss.Bitmap=LoadBitmap(File.DirAssets,"phone1.png") slv1pnl1.AddView(imgtelboss,imgboss.Width+60,190,100,130) imgtelboss.Gravity=Gravity.FILL Dim imgpmboss As ImageView imgpmboss.Initialize("imgpmboss") imgpmboss.Bitmap=LoadBitmap(File.DirAssets,"sms1.png") slv1pnl1.AddView(imgpmboss,imgtelboss.Width+60+imgboss.Width+60,205,100,100) imgpmboss.Gravity=Gravity.FILL Dim slv1pnl2 As Panel slv1pnl2.Initialize("slv1pnl2") slv1pnl2.SetBackgroundImage(LoadBitmap(File.DirAssets,"13.jpg")) ' slv1pnl2.Color=Colors.Red slv1.Panel.AddView(slv1pnl2,۰,۳۱۰,slv1.Width,۳۰۰) Dim imgmod As ImageView imgmod.Initialize("imgmod") imgmod.Bitmap=LoadBitmap(File.DirAssets,"profilepic.png") slv1pnl2.AddView(imgmod,۵,۵,۲۹۵,۲۹۰) imgmod.Gravity=Gravity.FILL Dim imgtelmod As ImageView imgtelmod.Initialize("imgtelmod") imgtelmod.Bitmap=LoadBitmap(File.DirAssets,"phone2.png") slv1pnl2.AddView(imgtelmod,imgmod.Width+۶۰,۱۹۰,۱۰۰,۱۳۰) imgtelmod.Gravity=Gravity.FILL Dim imgpmmod As ImageView imgpmmod.Initialize("imgpmmod") imgpmmod.Bitmap=LoadBitmap(File.DirAssets,"sms1.png") slv1pnl2.AddView(imgpmmod,imgtelmod.Width+۶۰+imgmod.Width+۶۰,۲۰۵,۱۰۰,۱۰۰) imgpmmod.Gravity=Gravity.FILL Dim slv1pnl3 As Panel slv1pnl3.Initialize("slv1pnl3") slv1pnl3.SetBackgroundImage(LoadBitmap(File.DirAssets,"۱۳.jpg")) ' slv1pnl3.Color=Colors.Red slv1.Panel.AddView(slv1pnl3,0,615,slv1.Width,300) Dim imgbaz As ImageView imgbaz.Initialize("imgbaz") imgbaz.Bitmap=LoadBitmap(File.DirAssets,"profilepic.png") slv1pnl3.AddView(imgbaz,5,5,295,290) imgbaz.Gravity=Gravity.FILL Dim imgtelbaz As ImageView imgtelbaz.Initialize("imgtelbaz") imgtelbaz.Bitmap=LoadBitmap(File.DirAssets,"phone1.png") slv1pnl3.AddView(imgtelbaz,imgbaz.Width+60,190,100,130) imgtelbaz.Gravity=Gravity.FILL Dim imgpmbaz As ImageView imgpmbaz.Initialize("imgpmbaz") imgpmbaz.Bitmap=LoadBitmap(File.DirAssets,"sms1.png") slv1pnl3.AddView(imgpmbaz,imgtelbaz.Width+60+imgbaz.Width+60,205,100,100) imgpmbaz.Gravity=Gravity.FILL Dim slv1pnl4 As Panel slv1pnl4.Initialize("slv1pnl4") slv1pnl4.SetBackgroundImage(LoadBitmap(File.DirAssets,"13.jpg")) ' slv1pnl4.Color=Colors.Red slv1.Panel.AddView(slv1pnl4,۰,۹۲۰,slv1.Width,۳۰۰) Dim imghes As ImageView imghes.Initialize("imghes") imghes.Bitmap=LoadBitmap(File.DirAssets,"profilepic.png") slv1pnl4.AddView(imghes,۵,۵,۲۹۵,۲۹۰) imghes.Gravity=Gravity.FILL Dim imgtelhes As ImageView imgtelhes.Initialize("imgtelhes") imgtelhes.Bitmap=LoadBitmap(File.DirAssets,"phone2.png") slv1pnl4.AddView(imgtelhes,imghes.Width+۶۰,۱۹۰,۱۰۰,۱۳۰) imgtelhes.Gravity=Gravity.FILL Dim imgpmhes As ImageView imgpmhes.Initialize("imgpmhes") imgpmhes.Bitmap=LoadBitmap(File.DirAssets,"sms1.png") slv1pnl4.AddView(imgpmhes,imgtelhes.Width+۶۰+imghes.Width+۶۰,۲۰۵,۱۰۰,۱۰۰) imgpmhes.Gravity=Gravity.FILL Dim slv1pnl5 As Panel slv1pnl5.Initialize("slv1pnl5") slv1pnl5.SetBackgroundImage(LoadBitmap(File.DirAssets,"۱۳.jpg")) ' slv1pnl5.Color=Colors.Red slv1.Panel.AddView(slv1pnl5,0,1225,slv1.Width,300) Dim imgdab As ImageView imgdab.Initialize("imgdab") imgdab.Bitmap=LoadBitmap(File.DirAssets,"profilepic.png") slv1pnl5.AddView(imgdab,5,5,295,290) imgdab.Gravity=Gravity.FILL Dim imgteldab As ImageView imgteldab.Initialize("imgteldab") imgteldab.Bitmap=LoadBitmap(File.DirAssets,"phone1.png") slv1pnl5.AddView(imgteldab,imgdab.Width+60,190,100,130) imgteldab.Gravity=Gravity.FILL Dim imgpmdab As ImageView imgpmdab.Initialize("imgpmdab") imgpmdab.Bitmap=LoadBitmap(File.DirAssets,"sms1.png") slv1pnl5.AddView(imgpmdab,imgteldab.Width+60+imgdab.Width+60,205,100,100) imgpmdab.Gravity=Gravity.FILL ' slv1.Panel.Height=۱۵۴۰dip End Sub |
در حال بررسی
0
برنامه نویسی اندروید 6 سال
۱۳۹۷/۱۱/۲۴ ۱۱:۴۳:۰۷
۱۳۹۷/۱۱/۲۴ ۱۱:۴۳:۰۷ 4 پاسخ
کاربر 0
پاسخ ها ( 4 )
داداش این چیه گذاشتی؟!
کسی به این سوال بلند بالا جواب نمیده
یه عکسی چیزی بذار که بهش نگاه کنیم، لب مطلب دستمون بیاد.
منظورو دقیقتر برسون و بگو میخوای چی کار کنی.
سلام
ارتفاع پنل رو هم دستکاری کردید؟
من اومدم مجموع ارتفاع ویوها و فواصل بینشونو به عنوان ارتفاع کل لیست دادم
اما اندازه لیست دو برابر شده و فضای خالی زیادی ته کار اومده
ببین، من هنوزم متوجه نشدم مشکل شما چیه!!
یه اسکرین شاتی چیزی از اجرای برنامه بذار ببینم دقیقا منظورت چیه و میخوای چی کار کنی.