Multi panel

[hosseinji 17]

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

[alinoori 123]

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

 

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

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

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

 

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

Sub Buttondel_Click
		Dim mm As Button
mm=Sender

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





end sub

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

[hosseinji 17]

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

 

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

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

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

 

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

Sub Buttondel_Click
		Dim mm As Button
mm=Sender

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





end sub

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

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

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

درود

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

این آموزش رو هم دیدید که مربوط به 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/

[hosseinji 17]

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

[پژمان نیکروان 6,055]

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

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

[hosseinji 17]

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

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

[پژمان نیکروان 6,055]

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

p.LoadLayout("main")

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

Button1.tag=i

[hosseinji 17]

دمت گرم داداش