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

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


milimod

سوال

سلام

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

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

<{ سورس }>

 

 

 

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

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

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

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

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

خدمت شما

 

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

 

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

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

در در 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

 

 

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

در در 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 بعدی ، ممکن توضیح بدین بهم . ممنونم

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

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

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

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

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

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

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

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

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

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

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

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

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

برای تعویض تب

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

 

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

بایگانی شده

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

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

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