ویرایش پنل ها در Designer

[milimod 0]

سلام

در سورس پایین وقتی روی هر تب کلیک میکنید وارد پنل جدیدی میشود ، چطور میتونم این پنل ها رو در قسمت Designer ویرایش کنم ؟ لطفا راهنمایی کنید چه تغییر در کدها باید انجام داد.

میخوام توی قسمت designer باهاشون کار کنم چون برام ساده تره ، لطفا راهنماییم کنید.

<{ سورس }>

 

 

 

[MrMedia 98]

سورس هاتونو ندیدم ولی اگه از برنامه دیگه برداشتید کافیه اونارو در پروژه ای که ایجاد کردید در پوشه Files کپی کنید و یا از تب File Manager داخل محیط b4a اونهارو اضافه کنید، همین

[behnam_tr 172]

خدمت شما

 

For i = 0 To 2
		
		Select i
			
			Case 0
				Dim p As Panel
				p.Initialize("")
				p.LoadLayout("1")
		p.Color = Colors.RGB(Rnd(0,256), Rnd(0,256), Rnd(0,256))
		PC.AddPage(p, "")
				

				Case 1
                Dim p2 As Panel
				p2.Initialize("")
				p2.LoadLayout("2")
				p2.Color = Colors.RGB(Rnd(0,256), Rnd(0,256), Rnd(0,256))
				PC.AddPage(p2, "")
					
				Case 2
				Dim p3 As Panel
				p3.Initialize("")
				p3.LoadLayout("3")
				p3.Color = Colors.RGB(Rnd(0,256), Rnd(0,256), Rnd(0,256))
				PC.AddPage(p3, "")
						
		End Select

 

[milimod 0]

دستت درد نکنه واقعا ممنونم

در در 1397/02/14, 13:10:19، behnam_tr گفته است :

خدمت شما

 

For i = 0 To 2
		
		Select i
			
			Case 0
				Dim p As Panel
				p.Initialize("")
				p.LoadLayout("1")
		p.Color = Colors.RGB(Rnd(0,256), Rnd(0,256), Rnd(0,256))
		PC.AddPage(p, "")
				

				Case 1
                Dim p2 As Panel
				p2.Initialize("")
				p2.LoadLayout("2")
				p2.Color = Colors.RGB(Rnd(0,256), Rnd(0,256), Rnd(0,256))
				PC.AddPage(p2, "")
					
				Case 2
				Dim p3 As Panel
				p3.Initialize("")
				p3.LoadLayout("3")
				p3.Color = Colors.RGB(Rnd(0,256), Rnd(0,256), Rnd(0,256))
				PC.AddPage(p3, "")
						
		End Select

 

 

[milimod 0]

در در 1397/02/14, 13:10:19، behnam_tr گفته است :

خدمت شما

 

For i = 0 To 2
		
		Select i
			
			Case 0
				Dim p As Panel
				p.Initialize("")
				p.LoadLayout("1")
		p.Color = Colors.RGB(Rnd(0,256), Rnd(0,256), Rnd(0,256))
		PC.AddPage(p, "")
				

				Case 1
                Dim p2 As Panel
				p2.Initialize("")
				p2.LoadLayout("2")
				p2.Color = Colors.RGB(Rnd(0,256), Rnd(0,256), Rnd(0,256))
				PC.AddPage(p2, "")
					
				Case 2
				Dim p3 As Panel
				p3.Initialize("")
				p3.LoadLayout("3")
				p3.Color = Colors.RGB(Rnd(0,256), Rnd(0,256), Rnd(0,256))
				PC.AddPage(p3, "")
						
		End Select

 

ببخشید من میخوام داخل layout اول ی But بزارم برای رفتن به layout بعدی ، ممکن توضیح بدین بهم . ممنونم

[behnam_tr 172]

برای افزودن هر چیزی یا از طریق دیزاینر اضافه کنید یا از طریق کد نویسی

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

طبق کد بالا هر تب لایوت مربوط به خودشو داره پس محتویات هر تبی رو که میخاید تغییر بدید تو دیزاینر همونو ویرایش کنید

[milimod 0]

در 9 دقیقه قبل، behnam_tr گفته است :

برای افزودن هر چیزی یا از طریق دیزاینر اضافه کنید یا از طریق کد نویسی

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

طبق کد بالا هر تب لایوت مربوط به خودشو داره پس محتویات هر تبی رو که میخاید تغییر بدید تو دیزاینر همونو ویرایش کنید

بله متوجه ام ، ولی من میخوام ی دکمه درون لایوت یک وجود داشته باشه که با کلیک بر روی اون وارد لایوت 2 بشم ، طریق ساخت دکمه بلدم ولی وقتی مقدار Activity.LoadLayout("2")'    s  ب به دکمه میدم ، لایوت بدی روی لایوتی که هستم بارگزاری میشه . میخوام بصورت گرافیکی به لایوت بعدی بره

[behnam_tr 172]

باید تب رو عوض کنید

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

برای تعویض تب

Sub Button1_Click
    VP.GotoPage(2,False)
End Sub