در مورد Sliding Panels

[esmaeil57 64]

سلام دوستان

در مورد سورس Sliding Panels که در قسمت سورس ها در سایت گذاشته شده اگه بخواهیم در پنل دلخواه اشیاء خاصی رو مثلا باتن و یا ادیت تکست و یا .... قرار بدیم چه جوری باید اقدام کنیم. آخه Layote نداره ! و همش توی برنامه Initialize شده .

ممنونم.

اینم لینک برنامه

[ارمین رمضانی دلیجانی 381]

شما هم باید به همون صورت Initialize کنید و قرار بدید

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

حدودا میشه گفت شما هر چیزی رو که از Desinger اضافه نکرده باشید و بخواهید در کد نویسی اون رو به کار بگیرید نیاز به Initialize داره

[esmaeil57 64]

سلام

آقا آرمین و آقای ایزدی عزیز ، اون که صد در صد میدونم باید Initialize بشه ! یه موردی که هست اینه که توی برنامه اومده قسمت FirstTime یه حلقه For ایجاد کرده و توی اون Initialize کرده . به خاطر این همه لیبیل ها توی همه پنل ها شبیه هم هستش.

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

هدف من اینه که توی هر پانل قراره اشیاء مختلفی قرار بگیرن. و یا حدالامکان روش Initialize کردن اشیاء مختلف رو مثل باتن و ادیت تکست و ... رو فرمولش بگین.

ممنونم از راهنماییتون

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

ببینید دقیقا متوجه منظورتون نشدم ولی کاری که میگم رو انجام بدید شاید چیزی که میخواهید باشه:

شما توی همون Activity Create اومدید این کارو کردید:

! یه موردی که هست اینه که توی برنامه اومده قسمت FirstTime یه حلقه For ایجاد کرده و توی اون Initialize کرده . به خاطر این همه لیبیل ها توی همه پنل ها شبیه هم هستش.

شما بیایید یک Sub تعریف کنید مثلا:

Sub Make
داخلش همون کدهای حلقه For و ... رو قرار بدید
End Sub

بعدش همون کدها رو از توی Activity Create حذف کنید و به جاش بنویسید: Make

که رویداد Make اجرا بشه.

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

ببینید چیزی که منظورتون هست در میاد یا نه؟ اگه نه نمونه سورس کد بزارید

[esmaeil57 64]

آقای ایزدی عزیز،

مشکل رو تا حدودی حلش کردم . توی همون قسمت First Time شبیه همون لیبیلی که نوشته بود نوشتم ولی خارج از حلقه For و به این شکل:

	Dim Lab As Label
Lab.Initialize("")
Lab.Text = "Esmaeil"
Lab.TextSize = 20
Lab.TextColor = Colors.White
panels(2).AddView(Lab, 40%x, 60%y, 80%x, 30dip)

یعنی توی پنل شماره 2 یه لیبیل به اسم Esmaeil گذاشتم و درست از آب دراومد. فقط اگه ممکنه روش Initialize کردن اشیاء دیگه رو با خصوصیاتشون برام بگین بینهایت سپاسگذارم. مثلا باتن و ادیت تکست . ...

نمونه سورس هم در پست اول لینک دادم.