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

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


iavaduu

سوال

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

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

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

("")Pnls(1).Loadlayoutو

("")Pnls(2).Loadlayoutو

("")Pnls(3).Loadlayout

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

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

باتشکر

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

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

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

سلامی مجدد

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

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

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

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

 

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

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

("")Pnls(0).Loadlayout
("")Pnls(1).Loadlayout
("")Pnls(2).Loadlayout
لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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

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

("")Pnls(0).Loadlayout
("")Pnls(1).Loadlayout
("")Pnls(2).Loadlayout
باسلام ممنون ازراهنماییتون اما بازهم میگه ابتدا باید پنل اینیشیالایز بشه که من این کارو توی همون اکتویتی کریت کردم اما اگه به صورت کلی هرسه تا پنل رو که به یک لایوت متصل میکنم ارور نمیده ودرست کارمیکنه:

("")Pnls(i).Loadlayout

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

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

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

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

خدمت شما

#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
لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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

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

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

بایگانی شده

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

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

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