سورس طراحی صفحه زیبا (ببینید زیباس!)

[mahdig502 27]

مرسی که وقت گذاشتید 

من کارهایی ک گفتید را انجام دادم ولی بازم یک تصویر (تصویر s15) را در کل اسکرول ویو نشون میده 

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

http://s6.picofile.com/file/8246029534/multi_kam1.rar.html

و یا این سورس کل پروژه خودتون

Sub Activity_Create(FirstTime As Boolean)
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''' مولتی پنل
Dim left1 , top1 As Int
left1 =4.3%x
top1 = 3%x


Dim tasvir As BitmapDrawable
For i = 1 To 15


tasvir.Initialize(LoadBitmap(File.DirAssets,"m"&i&".png")) '''''''''''''''''''' این تصویر پنل ها در حالت عادیه ک ایکن های مختلفه
mbi.Initialize(LoadBitmap(File.DirAssets,"card.png")) ''' این تصویر پنل هاست برا موقعی ک رو یکی از آیتم های منو هوریزونتال کلیک شده




''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
sbi.Initialize(LoadBitmap(File.DirAssets,"s"&i&".png"))
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''




p(i).Initialize("p")
p(i).Background=tasvir '''''''''''''''''''''' این جا هم گفتیم تصویر پنل ها در حالت عادی  متغیر "تصویر" باشه
scr.Panel.AddView(p(i),left1,top1,30%x,20%y)
scr.SendToBack
left1 = left1 + 31%x
p(i).Tag = i


If i Mod 3 = 0 Then
top1 = top1 + 24%y
scr.Panel.Height = top1 + 31%y
scr.Height=top1-22%y
left1 = 4.3%x
End If
Next

Sub b_Click
Dim myb As Button = Sender
Dim temp As Int = myb.Tag
ToastMessageShow(myb.Tag,False)




If myb.Tag=1 Then   ''''''''''''''''''  این جا گفتیم اگه تگ ایتم کلیک شده از منو هوریزونتال 1 بود (ک تو برنامه میشه اون تصویره ک عکس چند ضلعیه) بیا و عکس پنل ها رو تغییر بده ب متغیر ام بی آی
For i=1 To 15
p(i).Background=mbi ''''''''''' این جا هم ک عکسو تغییر دادیم در واقع اون عکسی ک قبلن تو مولتی پنل اینیشیالایز شده بود
Next
End If


''''' حالا مثلن فک کنین میخایم بگیم اگه رو اون عکس معده کلیک شد بیا و فلان سری عکسو نشون بده، خب طبق اون چیزی ک گفتم عکسارو وارد پروژه کنید تو مولتی پنل اینیشیالایز کنید بعدم این جا این طوری شرط میزایرم
''''''''''''''''''''''''''''''''
If myb.Tag=4 Then   
For i=1 To 15
p(i).Background=sbi 
Next
End If


''''''''''''''''''''''''''''''''




For i= 1 To cunt
If i = temp Then
back.Initialize(LoadBitmap(File.DirAssets,"p"&myb.Tag&".png"))
myb.Background = back
Else
back.Initialize(LoadBitmap(File.DirAssets,i&".png"))
b(i).Background = back
End If
Next








End Sub

[pedro 642]

 

مرسی که وقت گذاشتید 

من کارهایی ک گفتید را انجام دادم ولی بازم یک تصویر (تصویر s15) را در کل اسکرول ویو نشون میده 

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

http://s6.picofile.com/file/8246029534/multi_kam1.rar.html

و یا این سورس کل پروژه خودتون

 

 

حق با شماس ی قسمتو حواسم نبود اشتباه کردم، اون تصاویر سری s باید تو حلقه پایینیه (اون حلقه ای  ک تو رویداد کلیک هست و شرط داره باید اونجا اینیشیالایز بشه)

multi kam1.zip

[mahdig502 27]

خیلی گلی اقا پدرام حل شد  

 

خخخ دیگ روم نمش سوال بپرسم 

شاید سوال اخرم باشه و اون اینه که چطور حالا به هر پنل بفهمونم چیکار بکنه

 

این سورس کد خب واسه همه پنل ها اعمال میشه:

Sub p_Click
Dim p1 As Panel
p1 = Sender 


If p1.Tag=1 Then
Msgbox("1","111111111111")
End If
If p1.Tag=2 Then
Msgbox("2","111111111111")
End If
If p1.Tag=3 Then
Msgbox("3","111111111111")
End If
If p1.Tag=4 Then
Msgbox("4","111111111111")
End If
If p1.Tag=5 Then
Msgbox("5","111111111111")
End If
End Sub 

[pedro 642]

 

خیلی گلی اقا پدرام حل شد  

 

خخخ دیگ روم نمش سوال بپرسم 

شاید سوال اخرم باشه و اون اینه که چطور حالا به هر پنل بفهمونم چیکار بکنه

 

این سورس کد خب واسه همه پنل ها اعمال میشه:

Sub p_Click
Dim p1 As Panel
p1 = Sender 


If p1.Tag=1 Then
Msgbox("1","111111111111")
End If
If p1.Tag=2 Then
Msgbox("2","111111111111")

 

 

خوب خودتون درست نوشتین ک همین طوریه ک شما نوشتین مثلن فک کنید میخواین اگه رو پنل اول کلیک شد ی مسیج باکس نمایش بده اگه رو دومی کلیک شد ی توست مسیج نشون بده خب طبق شرط تو رویداد شرط بنویسین دیگه مشکلش چیه  یا مثلن رو پنل 3 کلیک شد ی اکتیویتی ران بشه

[mahdig502 27]

ن دیگه الان تو تب اولی 15 تا پنل با تصویر مختلف هست و تو تب دومی هم 15 تا ,حالا این کدا ک من نوشتم برای هر دو تب یکسان یعنی من هر چقدرم تب اضافه کنم با این کدها نهایتا 15 دستور میتونم بدم در حالی که میخوام مستقل باشند مثلا 30 تا کد برای 30 پنل

[pedro 642]

ن دیگه الان تو تب اولی 15 تا پنل با تصویر مختلف هست و تو تب دومی هم 15 تا ,حالا این کدا ک من نوشتم برای هر دو تب یکسان یعنی من هر چقدرم تب اضافه کنم با این کدها نهایتا 15 دستور میتونم بدم در حالی که میخوام مستقل باشند مثلا 30 تا کد برای 30 پنل

خب برا این ک مثلن ی آیتم ک کلیک شد 30 تا بیاد یکی 10 تا بیاد یکی 15 تا و کلن با هم فرق کنه شما باید کل مولتی پنل رو کدشو کپی کنین و تو اون شرط ک تو رویداد کلیک باتن هست بزارین بعد اونجا چون شرط گزاشتین مثلن اگه رو تگ یک کلیک شد مولتی پنل خاص خودشو لود کن ک این مولتی پنل for i=1 to 30 هست، درکل بهتره از دیتابیس استفاده بشه این طوری خیلی بهینه میشه کد، عکسا هم سردرگم نیسن تو دیتابیسن و راحت میشه لودشون کرد من خودم ک این کدو نوشتم نیاز داشتم برا هر باتن مولتی پنل با تعداد پنل های مختلف لود شه ولی دیگه کارو همینجا ول کردمو ادامه ندادم چون برناممو الان نیازی ندارم ک الان بسازم، اون چیزی ک عاغا حامد گفتن هم امشب اجرا کردم ینی ایکن خونه و منو رو طبق اموزش ایشون با فونت تعویض کردم ک زیباتره منتها امشب آپ نمیکنمش چون فردا بهش ی چی دیگه میخام اضاف کنم ک قشگ سورسش تکمیل شه (اسلاید منو) صب کنین فردا سورس تمیز و کاملشو میزارم

[pedro 642]

دوستان پست ویرایش شد، سایدبار هم اضافه شد + تغییر آیکن

http://answercenter.ir/topic/12435-سورس-طراحی-صفحه-زیبا-ببینید-زیباس/

[Kazem Forghani 2,927]

من کتابخانه RippleEffect رو دارم و تیک زده هم هست ولی در این قسمت دو خط آخر قرمز شده!!

'''''''''''''''''''''''''''' اگه کتابخونشو ندارین این قسمتو کامنت کنین
	     Dim rip1,rip2 As RippleView
		rip1.Initialize(home,Colors.darkGray,100,False)
		rip2.Initialize(menu,Colors.darkGray,100,False)
		rip1.Ripple(True,Colors.DarkGray,200,True,-10)
		rip2.Ripple(True,Colors.DarkGray,100,True,-10)

چرا؟

[pedro 642]

اینی ک استفاده کردم ورژن  جدیدشه شما دقت کن تو اونی ک داری فقد ی متد داره ک اینیشیالایزه ولی تو این جدیده امکانات دیگه ای هم اضاف شده

http://s7.picofile.com/file/8246408350/Desktop.zip.html

 

من کتابخانه RippleEffect رو دارم و تیک زده هم هست ولی در این قسمت دو خط آخر قرمز شده!!

'''''''''''''''''''''''''''' اگه کتابخونشو ندارین این قسمتو کامنت کنین
	     Dim rip1,rip2 As RippleView
		rip1.Initialize(home,Colors.darkGray,100,False)
		rip2.Initialize(menu,Colors.darkGray,100,False)
		rip1.Ripple(True,Colors.DarkGray,200,True,-10)
		rip2.Ripple(True,Colors.DarkGray,100,True,-10)

چرا؟

[msms 2]

دوستان چن شب پیش چن تا کیت رابط کاربری داشتم میدیدم از یکیش الهام گرفتم 1 روزه اینو ساختم ک خیلی خوب از اب در نیومد، اگه خواستین ایده بگیرین ازش استفاده کنین، فقد خواهشا کدهارو تحلیل کنین( برا تازه واردا) کپی پیست نکنید شمارو ب خداوندگار ایشالا وقت بشه آموزش فتوشاپشو بزارم، درضمن اون منوی هوریزونتالو عاغا حامد کمک کردن ک بسازم، دمشون گرم واقعن، درضمن هیچ کتابخونه ای نمیخاد، ی رفلکشن هست ک خوده بیسیک پیشفرض داره

 

 

پست ویرایش شد سایدبار + تغییر آیکن اضاف شد

پست ویرایش شد سایدبار + تغییر آیکن اضاف شد

 

لینک دانلود

http://s7.picofile.com/file/8246373026/Page_design.zip.html

 

کتابخونه

http://s7.picofile.com/file/8246373818/Lib.zip.html

 

 

 

 

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

 

http://answercenter.ir/topic/12829-%D8%A2%D9%85%D9%88%D8%B2%D8%B4-%D8%A7%D8%B3%D8%AA%D9%81%D8%A7%D8%AF%D9%87-%D8%A7%D8%B2-%D9%85%D8%AC%D9%85%D9%88%D9%85%D9%87-%D8%A2%DB%8C%DA%A9%D9%88%D9%86-%D9%87%D8%A7%DB%8C-%D8%A8%D8%A7-%DA%A9%DB%8C%D9%81%DB%8C%D8%AA-font-awesome-%D9%88-ionic/

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

ممنون بابت سورس زیباتون

چرا برای من این ارور رو داد؟

B4A version: 5.02

Parsing code.    (0.00s)

Compiling code.    Error

Error compiling program.

Error description: Unknown member: ripple

Occurred on line: 106

rip1.Ripple(True,Colors.DarkGray,200,True,-10)

Word: ripple

[pedro 642]

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

ممنون بابت سورس زیباتون

چرا برای من این ارور رو داد؟

B4A version: 5.02

Parsing code.    (0.00s)

Compiling code.    Error

Error compiling program.

Error description: Unknown member: ripple

Occurred on line: 106

rip1.Ripple(True,Colors.DarkGray,200,True,-10)

Word: ripple

 

توی سورس اوایلش سر ی 4 خط کد بالاش کامنت زدم اگه کتابخونشو ندارین کامنت کنین، اون 4-5 خطو کامنت کنین

[msms 2]

توی سورس اوایلش سر ی 4 خط کد بالاش کامنت زدم اگه کتابخونشو ندارین کامنت کنین، اون 4-5 خطو کامنت کنین

مررررررررررررررررسی مهندس

[mahdig502 27]

سلام اقا پدرام 

الان من چطوری با دیتابیس بهشون بفهمونم هر سری پنل (مثلا 15 تا اولی که تو تب شش ضلعی هستند یا 15 تا دومی که توی اون دایره هستن ...)هر کدام یک کاری کنن؟

من اول اومدم تو رویداد کلیک نوشتم

Sub b_Click
    
Dim myb As Button = Sender
Dim temp As Int = myb.Tag
If myb.Tag =1 Then
p1.tag = "1 To 15"


End If
If myb.Tag=2 Then
p1.Tag = "16 To 30"
End If
End sub

البته p.tag  توی مولتی پنل را تغییر میدادم 

 

خلاصه 4-5 تا راه به سرم زد همشا رفتم ولی محض رضای خدا یکیشم جواب نداد

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

[alivoll 17]

اگه یه امکانی هم بهش اضافه کنی خوب میشه

استاتوس بار بهش اضافه کن

[pedro 642]

اگه یه امکانی هم بهش اضافه کنی خوب میشه

استاتوس بار بهش اضافه کن

این سورس بیشتر برا یادگیری بخش برنامه نویسیشه و کمتر جنبه گرافیکیشو خودم در نظر گرفتم، برا همین همه چی رو خودم نباید انجام بدم دوستان میتونن بست بدن خودشون حالا شما اگه دوس داشتی ی نمونه تصویر بپ خ کن برام از همین نوار وضیعت(استاتوس بار) تا  خودم طرحشو بزنم

[alivoll 17]

فرقی نمیکنه چیزی باشه که به برنامه بیاد

[alireza_066 46]

حق با شماس ی قسمتو حواسم نبود اشتباه کردم، اون تصاویر سری s باید تو حلقه پایینیه (اون حلقه ای  ک تو رویداد کلیک هست و شرط داره باید اونجا اینیشیالایز بشه)

سلام اقا پدرام من مشکلم هنوز تو همین یه قسمت هست وقتی مثلا ایکون اول رو انتخاب میکنم 15 تا پنل بعد لود میشه دیگه هرچی روی ایکون ها کلیک میکنم ایکون ها عوض نمیش