دریافتپنل زیرشاخه دار

[حاج حسین 2,098]

مشاهده فایل

پنل زیرشاخه دار

---

سلام 

یه نمونه سورس ساده از پنل زیرشاخه دار 

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

کاربردش میوتنه برای ادامه خبر ,پیامک های طولانی, ترجمه کلمه و.. باشه 

---

• ارسال کننده
  dftbayat
• ارسال
  ۱۶/۱۱/۰۵
• دسته
  سورس

 

[hussein1 48]

در در 1395/08/15, 16:45:54، dftbayat گفته است :

مشاهده فایل

پنل زیرشاخه دار

---

سلام 

یه نمونه سورس ساده از پنل زیرشاخه دار 

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

کاربردش میوتنه برای ادامه خبر ,پیامک های طولانی, ترجمه کلمه و.. باشه 

---

• ارسال کننده
  dftbayat
• ارسال
  ۱۶/۱۱/۰۵
• دسته
  سورس

 

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

این کتابخانه در حین سادگی بسیار زیباست ، قصد دارم توی یه اکتیوتی یکسری از واژه های کلیدی رو بنویسم و در موردشون توضیحاتی مختصر چند خطی وقتی پنل باز میشه بده وقتی هم بسته است فقط خود واژه رو نمایش بده، این پنل این امکان رو داره؟ و همچنین بر روی پنل ها نمیدونم اسمش چیه نمایه یا ایکون میگن قرار داده بشه طبق تصویر ؟

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

 

[حاج حسین 2,098]

روی مطلب سختی دست گذاشتید 

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

تا جای من فهمیدم میشه توی هر پنل یه لایه رو لود کرد 

اینم منبع این کلاس در سایت مرجع

لینک

اینم کدهام 

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 l(3) As Label
	Dim sv As ScrollView 
	
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("Layout1")
	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,Top,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.Blue
		' Set up parameters for the expandable panels
		expPnls(i).setSpeed(300)
		expPnls(i).maxHeight = 300dip
		expPnls(i).minHeight = 80dip
		l(i).Initialize("")
		pnls(i).AddView(l(i),2%x,0,90%x,80dip+Top)
	
	
	l(i).TextColor=Colors.Black
	l(i).TextSize=25
	l(i).Gravity=Gravity.RIGHT
		' Collapse the panel
		expPnls(i).Collapse
	Next
	l(0).Text="FindViewByTag FindViewByTag FindViewByTag FindViewByTag FindViewByTag FindViewByTag FindViewByTag FindViewByTag"
	l(1).Text="متن دومی"
	l(2).Text="متن سومی"
	


End Sub

 

 

[hussein1 48]

در 4 ساعت قبل، dftbayat گفته است :

روی مطلب سختی دست گذاشتید 

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

تا جای من فهمیدم میشه توی هر پنل یه لایه رو لود کرد 

اینم منبع این کلاس در سایت مرجع

لینک

اینم کدهام 

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 l(3) As Label
	Dim sv As ScrollView 
	
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("Layout1")
	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,Top,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.Blue
		' Set up parameters for the expandable panels
		expPnls(i).setSpeed(300)
		expPnls(i).maxHeight = 300dip
		expPnls(i).minHeight = 80dip
		l(i).Initialize("")
		pnls(i).AddView(l(i),2%x,0,90%x,80dip+Top)
	
	
	l(i).TextColor=Colors.Black
	l(i).TextSize=25
	l(i).Gravity=Gravity.RIGHT
		' Collapse the panel
		expPnls(i).Collapse
	Next
	l(0).Text="FindViewByTag FindViewByTag FindViewByTag FindViewByTag FindViewByTag FindViewByTag FindViewByTag FindViewByTag"
	l(1).Text="متن دومی"
	l(2).Text="متن سومی"
	


End Sub

 

 

ممنون دوست عزیز

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

در ضمن پروزه بنده نزدیک به 70 اکتیوتی داره و چند ماژول دیگه ، از اپ بی فور ای 6.3 و اپکامپت 3.3

دلیل این مشکل چیه؟ لطفا راهنمایی کنید بسیار نیاز است

 

[حاج حسین 2,098]

در 10 دقیقه قبل، hussein1 گفته است :

ممنون دوست عزیز

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

در ضمن پروزه بنده نزدیک به 70 اکتیوتی داره و چند ماژول دیگه ، از اپ بی فور ای 6.3 و اپکامپت 3.3

دلیل این مشکل چیه؟ لطفا راهنمایی کنید بسیار نیاز است

 

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

70تا اکتیوتی ؟؟!!  

چه برنامه شاخی که این همه اکتیوتی لازم داره 

اینکه چرا تو پروژه کار نمیکنه دقیق نمیدونم؛  تنها حدسی که میتونم بزنم اینکه به غیر از اون ماژول کدهای مین نمونه سورس رو کنار کدهای دیگه گذاشتید و باعث تداخل شده 

تو پست دوم هم گفتم کار با این نمونه سورس راحت نیست بخصوص خودتون گفتید که مبتدی هستید 

بهر حال تا همین جا میوتنم کمکتون کنم مابقیش به سعی تلاش خودتون ربط داره 

یا علی