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

مشکل با سورس انتخاب رنگ


Radius

سوال

سلام 

یکی از دوستان یک سورسی رو قرار داده بود مه برای انتخاب رنگ هست

http://s3.picofile.com/file/8209978668/CircularPalette_basic4android_org_.zip.html

 

من میخوام وقتی رنگ انتخاب شد روی متن Label ام بیوفته اگه میشه کمک کنید

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

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

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

سلام 

یکی از دوستان یک سورسی رو قرار داده بود مه برای انتخاب رنگ هست

http://s3.picofile.com/file/8209978668/CircularPalette_basic4android_org_.zip.html

 

من میخوام وقتی رنگ انتخاب شد روی متن Label ام بیوفته اگه میشه کمک کنید

 

دروووووووود

 

من سورس رو دانلود کردم و تغییر دادم اما سورس اماده ب شما نمیدم :D

 

خودتون بنویسید بهتره 

 

کلاس CircularPalette رو ک ب پروژه اظافه کنید و کداشو قرار میدید

 

ما اینجا اسم لیبلیو ک میخواید رنگش عوض بشه رو Label1 میگیریم

 

ی Button1 هم داشتید داخل پروژه

 

در Sub Global :

Dim Label1 As Label
Dim button1 As Button
Dim N(4), vl(4) As Label
Dim cp As CircularPalette

در Activity_Create : 

Sub Activity_Create(FirstTime As Boolean)
Label1.Initialize("")
Label1.Text = "basic4android.org"
Activity.AddView(Label1,0,0,100%x,100%y)
Dim cf As Float = Sqrt((100%y * 100%y + 100%x * 100%x)/(Power(430 * Density,2) + Power(800 * Density,2))) 
Dim k As Int = Max(5%x,5%y)
button1.Initialize("button1")
Activity.AddView(button1,10%x,10%y,20%x,20%x)
button1.TextSize = 20*cf
button1.Text = "Get color"
button1.TextColor = Colors.white
Dim dr1 As ColorDrawable
dr1.Initialize2(Colors.RGB(50,50,255),1%x,0.5%x,Colors.white)
button1.Background = dr1
For i = 0 To 3
	n(i).Initialize("")
	n(i).TextColor = Colors.White
	n(i).TextSize = 18*cf
	Activity.AddView(n(i),k,6.5*k + i*k,k,k)
	vl(i).Initialize("")
	vl(i).TextColor = Colors.White
	vl(i).TextSize = 18*cf
	Activity.AddView(vl(i),2*k,6.5*k + i*k,2*k,k)
Next
n(0).text = "A:"
n(1).text = "R:"
n(2).text = "G:"
n(3).text = "B:"
cp.Initialize(Activity,"main","cp",Colors.gray)
End Sub

در 3 خط اول کد بالا اومدیم لیبل 1 رو Initialize کردیم و مختصات و متنشو دادیم

شما به نسبت نیازتون حالا مختصاتشو عوض کنید من تمام صفحه گذاشتم

 

در ساب دکمه1 : 

Sub Button1_Click
cp.GetColor
End Sub

و در Public Sub cp_Result( col As Int, res() As Int) :

Public Sub cp_Result( col As Int, res() As Int)
vl(0).text = res(0)
vl(1).text = res(1)
vl(2).text = res(2)
vl(3).text = res(3)
Dim dr As ColorDrawable
If (res(1)+res(2)+res(3)) > 240 Then 
	button1.TextColor = Colors.Black
Else
	button1.TextColor = Colors.white
End If
dr.Initialize2(col,1%x,0.5%x,Colors.white)
button1.Background = dr
Label1.Background = dr
End Sub

ب همین سادگی میتونید رنگ لیبل رو هم عوض کنید :ok:

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

بایگانی شده

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

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

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