فراخوانی از دیتابیس مشکلش نمی دونم چیه

[ali777795 11]

دوستان من من اطلاعات از  دیتا بیس فراخونی می کنم هیچ اروری هم نمی ده حتی دیروز هم امتحانش کردم دقیقا همین قطعه کد جواب داد ولی دیروز فقط برای اینکه ببینم درس کار می کنه این کارو کردم ولی اینم بگم که فریم اون عکسا خیلی بزرگتر از عکسای برنامه اصلیم من فک کنم مشکلش این باشه که تو برنامه امروزم عکسا اندازه متوسط دارن اگه ممکنه راهنماییم کنید که اگه من درس می گم و مشکل از ابعاد عکس راهی هس که بشه اونو درس کرد یا اگه هم که من اشتباه می گم می شه شما مشکلش بگین اینم قطعه کد ها

[mehrabmmp 528]

متن تاپیکو مناسب بنویسین 

خب به جای اینکه خودتونو اذیت کنین از این ساب استفاده کنین و تو دیتابیس فقط اسم عکسارو بنویسین و عکسا رو به پوشه file اضافه کنین

Sub show
	Dim h As Int = 2%y
	For i = 0 To Main.cur.RowCount - 1
		Main.cur.Position = i
		If Main.cur.GetInt("Type") = 0 Then
			Dim lbl As Label
			lbl.Initialize("")
			lbl.Textcolor = Colors.White
			lbl.Textsize = 17
			lbl.Text = Main.cur.GetString("Value")
			lbl.Typeface = Typeface.LoadFromAssets("irsans.ttf")
			ScrollView1.Panel.AddView(lbl,3%X,h,ScrollView1.Width - 5%x,0)
			Dim su As StringUtils
			lbl.Height = su.MeasureMultilineTextHeight(lbl,lbl.Text)
			h = h + lbl.Height + 2%y
			ScrollView1.panel.height = h
		else if Main.cur.GetInt("Type") = 1 Then
			Dim image1 As ImageView
			image1.Initialize("")
			image1.Bitmap = LoadBitmapSample(File.DirAssets,Main.cur.GetString("Value"),ScrollView1.Width,50%y)
			image1.Gravity = Gravity.FILL
			ScrollView1.panel.addview(image1,0,h,ScrollView1.Width,50%y)
			h = h + 50%y + 2%y
			ScrollView1.Panel.Height = h
		End If
	Next
End Sub