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

Multi panel


hosseinji

سوال

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

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

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

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

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

 

اول باید تگ بذاری 

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

اسم اون پنل  یا هر چی خودت میخوای=buttun.tag

 

بعد تو رویداد کلیک اون باتن باید بنویسی

Sub Buttondel_Click
		Dim mm As Button
mm=Sender

حالا اینجا باید یه مولتی پنل دیگه دقیقا مثل همینی که الان ساختی بسازی
بعد برای این که بفهمی با کدوم پنل یا باتن کار داری باید از mm.tag استفاده  کنی.





end sub

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

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

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

 

اول باید تگ بذاری 

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

اسم اون پنل  یا هر چی خودت میخوای=buttun.tag

 

بعد تو رویداد کلیک اون باتن باید بنویسی

Sub Buttondel_Click
		Dim mm As Button
mm=Sender

حالا اینجا باید یه مولتی پنل دیگه دقیقا مثل همینی که الان ساختی بسازی
بعد برای این که بفهمی با کدوم پنل یا باتن کار داری باید از mm.tag استفاده  کنی.





end sub

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

دادا ممنون میشه یکم واضح تر بگی؟؟ :)  :)

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

درود

تشکر بابت لطفتون

این آموزش رو هم دیدید که مربوط به Multi Panel هست ؟

http://answercenter.ir/topic/2807-%D8%A7%D8%B3%D8%AA%D9%81%D8%A7%D8%AF%D9%87-%D8%A7%D8%B2-tag-%D9%88-sender-%D8%AF%D8%B1-multi-panel/

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

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

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

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

کدهاتون رو قرار بدید...

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

کدهاتون رو قرار بدید...

Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("scroll")
ScrollView1.Initialize(100%y)
Activity.AddView(ScrollView1,0,0,100%x,100%y)
For i = 0 To 5
	Dim p As Panel
	p.Initialize("p")
	ScrollView1.Panel.AddView(p,0,int1,100%x,100%y)
	int1 = int1 + 30%y
	p.LoadLayout("main")
	ScrollView1.Panel.Height = int1
	 Select Case i
	 	Case 0
			Label1.Text = "yek"
	 	Case 1
			Label1.Text = "do"
	 	Case 2
			Label1.Text = "se"
	 	Case 3
			Label1.Text = "chahar"
	 	Case 4
			Label1.Text = "panj"
	 	Case 5
			Label1.Text = "shish"
	 	Case 6
			Label1.Text = "haft"
	 	Case 7
			Label1.Text = "hasht"
	 	Case 8
			Label1.Text = "noh"
	 	Case 9
			Label1.Text = "dah"
	End Select
Next
End Sub
Sub Button1_Click
	Dim b As Button 
	b = Sender
	If b.Tag = 0 Then
		Msgbox("hi","hi")
 	Else If b.Tag = 1 Then
		Msgbox("hi","hi")
 	Else If b.Tag = 2 Then
		Msgbox("hi","hi")
 	Else If b.Tag = 3 Then
		Msgbox("hi","hi")
 	Else If b.Tag = 4 Then
		Msgbox("hi","hi")
 	Else If b.Tag = 5 Then
		Msgbox("hi","hi")
 	Else If b.Tag = 6 Then
		Msgbox("hi","hi")
 	Else If b.Tag = 7 Then
		Msgbox("hi","hi")
 	Else If b.Tag = 8 Then
		Msgbox("hi","hi")
 	Else If b.Tag = 9 Then
		Msgbox("hi","hi")
	End If
End Sub
لینک ارسال
به اشتراک گذاری در سایت های دیگر

زیر این کدتون:

p.LoadLayout("main")

اینو اضافه کنید:

Button1.tag=i
لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

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

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

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