بک گراند بر روی مولتی پنل

[محمدی 95]

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

بنده کار با مولتی پنل حدودا خوب بلدم

حالا میخوام توی تک تک پنل هام بک گراند بذارم

باید چیکار کنم؟

آیا باید حلقه رو بگیرم به این شکل و قرار بدم؟ یا راه دیگه ای هم هست؟

Select i

Case 1

Panel1.SetBackGround = Bmd1

Bmd هم که یه متغیر از bitmap هستش و فراخوانی کردم

اگه میشه بگید راه دیگه ای عست این کارو کنم؟ چون از این روش که انجام میدم از برنامه پرت میکنه بیرون

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

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

درود

من الان متوجه اون دستور Select Case شما نشدم اصلا :|

شما باید کد BackGround رو توی همون حلقه قرار بدید

 

توس Assets عکس هاتون رو با این نام ها قرار بدید: 0 و 1 و 2 و3 و ... با پسوند png !

ولی پیشنهاد میکنم به جای عکس از Random Color استفاده کنید خیلی بهتره !!!

چیزی که میخواهید کدش اینه : ( شرمنده تصاویر الکی زدم دیگه ... )

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("Scroll")
	If File.Exists(File.DirInternal,"panel.db") = False Then
	File.Copy(File.DirAssets,"panel.db",File.DirInternal,"panel.db")
	End If
	sql1.Initialize(File.DirInternal,"panel.db",False)
	cur1 = sql1.ExecQuery("SELECT * FROM tbl")
	
	For i = 0 To cur1.RowCount-1   
	cur1.Position=i
	Dim p As Panel
	p.Initialize("p")
	ScrollView1.Panel.AddView(p,0,stop,100%x,100%y)
	p.LoadLayout("Layout1")
	Dim b As Bitmap
	b.Initialize(File.DirAssets,i&".png")
	Panel1.SetBackgroundImage(b)
	Label1.Text = cur1.GetString("txt")
	stop = stop + 35%y
	Button1.Tag = cur1.GetString("ez")
	ScrollView1.Panel.Height = stop
	Next
End Sub

[محمدی 95]

ممنون آقای ایزدی مشکلم حل شد فقط یه چیزی حالا اگه بخوایم این پنل ها دوتا دوتا باشه بتید چیکار کنیم؟

یعنی پنل هامونو نصف کنیم و توی هر سطر 2 تا پنل قرار بگیره

[امیرنیوکی 147]

باید اندازه شو زیاد کنی مثلا از 2%y تا 98%y بشه ارتفاع

[محمدی 95]

متوجه نشدم مهندس نیوکی

میشه توی کدی که مهندس ایزدی قرار داد تغییرشو اعمال کنید و قرار بدید؟ خیلی ممنون میشم

[امیرنیوکی 147]

ScrollView1.Panel.AddView(p,0,stop,100%x,100%y)

stop = stop + 95%y

هربار ک پنل ساخته میشه محل قرارگیری پنل 95%y اضافه میشه

[Nemesis 1,846]

بجای SetBackGround  از Background خالی استفاده کن

[محمدی 95]

بجای SetBackGround  از Background خالی استفاده کن

به این صورت استفاده کردم بازم از برنامه پرت میکنه بیرون

Case 1

Panel1.BackGround = Bmp1