مشکل با لود عکس در مولتی پنل

[iraj_astara 97]

با سلام

در لود عکس از طریق دیتابیس و نشون دادنش در مولتی پنل به مشکل برخوردم ، میخوام از ستون img عکس رو داخل هر image view مولتی پنل نشون بده (عکس ها منفاوت هستند) ، نه اروری میده و نه اخطاری که مولتی پنل متوقف بشه ،متن ها لود میشن ، فقط عکسا لود نمیشه

ممنون میشم راهنمایی کنید ، این هم تکه کدی که استفده میکنم

Cur1=sql1.ExecQuery("SELECT * From tb")
For i=0 To Cur1.RowCount-1
Cur1.Position=i

 Dim InputStream1 As InputStream
 Dim Buffer() As Byte
 Dim Bitmap1 As Bitmap
img.Initialize("")

	Buffer = Cur1.GetBlob("img")
	InputStream1.InitializeFromBytesArray(Buffer, 0, Buffer.Length)
	Bitmap1.Initialize2(InputStream1)
	InputStream1.Close
	img.SetBackgroundImage(Bitmap1)

[iraj_astara 97]

ممنون حل شد. از جناب sejil هم ممنون

چون تعداد ستون عکسهای دیتابیس چند تا بود ، نام imageview ها با اسم ستون رو یکی کردم تا بدونم چی به چیه ، اسم imageview رو که عوض کردم درست شد.

واقعا نمیدونم چه ربطی داشت.

[iraj_astara 97]

راهنمایی نبود؟

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

[مهدی ایزدی 9,203]

درود

این آموزش رو دیدید ؟

http://answercenter.ir/topic/5792-%D8%A2%D9%85%D9%88%D8%B2%D8%B4-%D9%88%DB%8C%D8%AF%DB%8C%D9%88%DB%8C%DB%8C-%D9%82%D8%B1%D8%A7%D8%B1-%D8%AF%D8%A7%D8%AF%D9%86-%D8%B9%DA%A9%D8%B3-%D8%AF%D8%B1-%D8%AF%DB%8C%D8%AA%D8%A7%D8%A8%DB%8C%D8%B3-%D8%A8%D8%B3%DB%8C%D8%A7%D8%B1-%D9%85%D9%87%D9%85/

[iraj_astara 97]

آموزش رو ندیدم ولی مشکلی در لود عکس از دیتابیس ندارم ، فقط در حلقه مولتی پنل که میزارم لود نمیشه

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

[مهدی ایزدی 9,203]

کدتون مشکلی نداره

اگه براتون امکان داره قسمت های اضافی رو حذف کنید و یک نمونه سورس تا جایی که براتون مشکلی نداره پیوست کنید

تا بررسی کنیم مشکل رو

[sejil 180]

این کد ماله یکی از پروژه هام بود حوصله ادیت نداشتم شرمنده

	For i = 0 To cur1.RowCount-1
	cur1.Position = i
	Dim p As Panel
	p.Initialize("p")
	sc.Panel.AddView(p,0,stop,100%x,100%y)
	stop = stop + 20%y
	p.LoadLayout("dboff")
	If cur1.GetInt("fav") = 1 Then
		fav_img.Bitmap = LoadBitmap(File.DirAssets,"fav.png")
	Else
		fav_img.Bitmap = LoadBitmap(File.DirAssets,"fav1.png")
	End If
	kala.Text = cur1.GetString("name")
	price.Text = cur1.GetString("price")
	id.Text = cur1.GetString("id")
	shop.Text = cur1.GetString("shop")
	kala.Typeface=Typeface.LoadFromAssets("AChamran.ttf")
	shop.Typeface=Typeface.LoadFromAssets("AChamran.ttf")
	price.Typeface=Typeface.LoadFromAssets("F_YEKANB.TTF")
	id.Typeface=Typeface.LoadFromAssets("F_YEKANB.ttf")
	price_s.Typeface=Typeface.LoadFromAssets("AChamran.ttf")
	shop_s.Typeface=Typeface.LoadFromAssets("AChamran.ttf")
	sc.Panel.Height = stop
	
	pnl.tag=cur1.GetInt("id")
	
	Dim input As InputStream
	Dim Buffer() As Byte
	Buffer=cur1.GetBlob("pic")
	input.InitializeFromBytesArray(Buffer,0,Buffer.Length)
	Dim bitmap1 As Bitmap
	bitmap1.Initialize2(input)
	input.Close
	img.Bitmap=bitmap1
	Next

این حلقه کامله که پایین حلقه عکسو لود میکنه