اسکرول 10 عکس

[arastooms 1,046]

سلام به همه عزیزان 
با توجه به اینکه بار ها و بار ها در انجمن در این باره بحث شده 
و من هم مطالعه کردم ولی به نتیجه ای نرسیدم 
لطفا من رو راهنمایی بفرمایید که چه طور میتونم 10 عکس ( در ابعاد اسکرین شات ) رو در یک اسکرول ویو نمایش بدم که در همه گوشی ها  همه سایز ها  خوب دیده بشه
من  عکسها رو در یک لایوت قرار دادم و اون رو در اسکرول فراخانی کردم 
ولی سایز عکسها رو نمی تونم تنظیم کنم
و یا در آخر در هر دستگاهی اسکرول تنظیم نیست و کم و یا زیاد فضا داره

ممنن میشم اگر عزیزی می تونه یه سورس نمونه کوتاه قرار بده 
با تشکر 
این هم کد های من 
 

ScrollView_1.Panel.LoadLayout("aaaaa")

ودر لیوت aaaaa این کد ها در دیزاینر هست 
که ارتفاع رو 15 %y تعریف میکنم در شبیه ساز خوبه ولی در گوشی نه!!!

'ImageView2.SetLeftAndRight(0,100%x)
'ImageView2.SetTopAndBottom(15%y,30%y)
'
'ImageView3.SetLeftAndRight(0,100%x)
'ImageView3.SetTopAndBottom(30%y,45%y)
''
'ImageView4.SetLeftAndRight(0,100%x)
'ImageView4.SetTopAndBottom(45%y,60%y)
''
'ImageView5.SetLeftAndRight(0,100%x)
'ImageView5.SetTopAndBottom(60%y,75%y)
''
'ImageView6.SetLeftAndRight(0,100%x)
'ImageView6.SetTopAndBottom(75%y,90%y)
'
'ImageView7.SetLeftAndRight(0,100%x)
'ImageView7.SetTopAndBottom(90%y,105%y)

اگر عزیزی میتونه یه سورس نمونه راهنمایی کنه ممنون میشم

[shahab.es 5,429]

سلام ارسطو

چون شمایی من برات 13 تا عکس گذاشتم

خدمت شما

کتابخونه bitmapextended

http://s3.picofile.com/file/8194140884/BitmapExtended.rar.html

 

سورس

arastoo_test.rar

 

اکتیویتی main

Sub Globals
Dim mybitmapextended As Int
Dim height As Int = 0
Dim bt As BitmapExtended
Private ScrollView1 As ScrollView
End Sub
Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("scroll")
	ScrollView1.Panel.Color = Colors.Gray
	For i = 1 To 13
		Dim img As ImageView
		img.Initialize("img")
		img.Bitmap = LoadBitmap(File.DirAssets,i&".jpg")
		mybitmapextended = bt.getHeight(img.Bitmap)
		ScrollView1.Panel.AddView(img,0,height,100%x,mybitmapextended)
		height = height + mybitmapextended + 10
		ScrollView1.Panel.Height = height
	Next
End Sub

[arastooms 1,046]

 

سلام ارسطو

چون شمایی من برات 13 تا عکس گذاشتم

خدمت شما

 

شهاب جان خدا خیرت بده برادر 

امید وارم همیشه سالم و سلامت باشی که گره از کار ما باز شد...

من این کتابخونه رو نداشتم و رفتم تحقیق کردم و مطلب رو یاد گرفتم 

پست رو هم پاسخ داده شده اعلام میکنم تا دوستان اگر لازم داشتند استفاده کنند.