رفتن به مطلب
  • 0

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


ali777795

سوال

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

post-5202-0-88241600-1466062649_thumb.jpg

post-5202-0-17020900-1466062659_thumb.jpg

لینک ارسال
به اشتراک گذاری در سایت های دیگر

1 پاسخ به این سوال تاکنون داده شده است

ارسال‌های توصیه شده

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

خب به جای اینکه خودتونو اذیت کنین از این ساب استفاده کنین و تو دیتابیس فقط اسم عکسارو بنویسین و عکسا رو به پوشه 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
لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

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

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...