ارور اسکروول

[SG1393 61]

سلام روزتون بخیر و شادی

دوستان ممنون می شم راجب ارور خط 41 راهنمایی ام کنید

[reza sabouri 444]

درود

این لاین 41 دقیقا کدوم خط میشه ؟

 

[SG1393 61]

در 39 دقیقه قبل، رضا صبوری گفته است :

درود

این لاین 41 دقیقا کدوم خط میشه ؟

 

 

Dim b As Bitmap:b.Initialize(File.Dirassets,cur.GetString("pic"))

[reza sabouri 444]

خود تصاویر رو در دیتابیستون قرار دادین یا اسمشون رو ؟

[SG1393 61]

در 12 دقیقه قبل، رضا صبوری گفته است :

خود تصاویر رو در دیتابیستون قرار دادین یا اسمشون رو ؟

فقط اسمشون رو قرار دادم

[reza sabouri 444]

کد زیر رو تست کنید ببینید جواب میده

If cur1.GetString("matn").EndsWith(".png") Then
			Dim img1 As ImageView
			img1.Initialize("")
			img1.Gravity=Gravity.FILL
			sv.Panel.AddView(img1,10,h,60%x,10%y)
			img1.SetBackgroundImage(LoadBitmap(File.DirAssets,cur1.GetString("matn")))
			h=h+12%y
			sv.Panel.Height=h
end if

دقت کنید که به جای "matn" اسم فیلد دیتابیستون رو بذارید همون "pic"

sv  همون scrollview

فرمت تصاویر بنده هم png  بود که ببینید فرمت تصاویر شما چی هست

picture.rar

سورس پیوست شد

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