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

[iavaduu 38]

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

متغیرشوتعریف کردم به این صورت: Dim Pnls(3) As Panel

بعد وقتی داخل هرکدوم ازاین پنل هالیوت لود میکنم ارور میده ینی اینطوری:

("")Pnls(1).Loadlayoutو

("")Pnls(2).Loadlayoutو

("")Pnls(3).Loadlayout

اما درعملکردش ارور جاوامیده لطفا بگید باید چگونه به هرکدوم ازاین پنل ها یه لایوت وارد کنم.

لطفاپاسخ بدید

باتشکر

[iavaduu 38]

سلامی مجدد

بنده باید چه شرطی روبنویسم که مثلا بگم اگه روی پنل.سومی کلیک شد که درواقع ارایه ش۲هست واگر پنل دومی که ارایش۱هست بازبود بیادو پنل دومی رو ببنده.

لطفاراهنمایی کنید

[ghost94 151]

سلام دوست خوبم 

 

خطای شما در مورد استفاده از آرایه هاس ! 

عدد آرایه از صفر شروع میشه !!!  به این شکل عمل کنید :

("")Pnls(0).Loadlayout
("")Pnls(1).Loadlayout
("")Pnls(2).Loadlayout

[iavaduu 38]

سلام دوست خوبم

خطای شما در مورد استفاده از آرایه هاس !

عدد آرایه از صفر شروع میشه !!! به این شکل عمل کنید :

("")Pnls(0).Loadlayout
("")Pnls(1).Loadlayout
("")Pnls(2).Loadlayout

باسلام ممنون ازراهنماییتون اما بازهم میگه ابتدا باید پنل اینیشیالایز بشه که من این کارو توی همون اکتویتی کریت کردم اما اگه به صورت کلی هرسه تا پنل رو که به یک لایوت متصل میکنم ارور نمیده ودرست کارمیکنه:

("")Pnls(i).Loadlayout

والامنکه خیلی تعجب کردم!

[ghost94 151]

لطفا حلقه و کد هایی که مربوط به این پنل ها  هست بزارید تا بررسی کنم !

[iavaduu 38]

خدمت شما

#Region  Project Attributes 
	#ApplicationLabel: Expandable Samples Demo
	#VersionCode: 1
	#VersionName: 
	'SupportedOrientations possible values: unspecified, landscape or portrait.
	#SupportedOrientations: unspecified
	#CanInstallToExternalStorage: False
#End Region

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: False
#End Region

Sub Process_Globals
	'These global variables will be declared once when the application starts.
	'These variables can be accessed from all modules.

End Sub

Sub Globals
	'These global variables will be redeclared each time the activity is created.
	'These variables can only be accessed from this module.
	Dim expPnls(3) As expandablePanel
	Dim pnls(3) As Panel
	Dim sv As ScrollView 
	
	Private bck As ImageView
End Sub

Sub Activity_Create(FirstTime As Boolean)
	'Do not forget to load the layout file created with the visual designer. For example:
	Activity.LoadLayout("formsoalatmotadavel")
	Activity.Color = Colors.RGB(232,232,232)
	sv.Initialize(100%y)
	Activity.AddView(sv,0,0,100%x,100%y)
	sv.Color = Colors.Transparent 
	 
	Dim Top As Int = 0 
	For i = 0 To 2 
		' Initialize with the event name (not sure how to combine the events in to one)
		expPnls(i).Initialize("expPnls" , "Main" )
		' Get a reference to the panel
		pnls(i) = expPnls(i).AsPanel
		sv.Panel.AddView(pnls(i),10dip,5%Y,100%x-20dip,300dip)
		Top = Top + 300dip + 10dip
'		pnls(i).Color = Colors.RGB(Rnd(0,255),	Rnd(0,255), Rnd(0,255))
        pnls(i).Color = Colors.Black
		' Set up parameters for the expandable panels
		expPnls(i).setSpeed(5,15)
		expPnls(i).maxHeight = 600dip   '300dip
		expPnls(i).minHeight = 80dip
		' Collapse the panel
		expPnls(i).Collapse
		pnls(i).Initialize("")
		pnls(0).LoadLayout("lbl_sm1")
		pnls(1).LoadLayout("lbl_sm2")
		pnls(2).LoadLayout("lbl_sm3")
	Next
	
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub expPnls_Click(MyExpPnl As expandablePanel)
	MyExpPnl.ToggleHeight 
End Sub



'This is the more important part of the sample
'It will move the surrounding views when it is expanded and collapses
'It is imperative to use the same sub name : "eventname & Resize"
Sub expPnls_Resize(MyExpPnl As expandablePanel)
	For i = 0 To pnls.Length-1 -1
		pnls(i+1).Top = pnls(i).Top+pnls(i).Height + 10dip
	Next
	sv.Panel.Height = pnls(pnls.Length-1).Top + pnls(pnls.Length-1).Height 
End Sub


Sub bck_Click
	ExitApplication
End Sub

[ghost94 151]

این کد ها رو نباید داخل حلقه بزارید 

		pnls(0).LoadLayout("lbl_sm1")
		pnls(1).LoadLayout("lbl_sm2")
		pnls(2).LoadLayout("lbl_sm3") 

چیزی که داخل حلقه قرار میگیره مقدار دهیش توسط حلقه انجام میشه شما دستی انجام دادید فکر میکنم مشکل همین جا باشه , این سه خط رو از حلقه خارج کنید در واقع زیر next بنویسید !