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

تعیین رنگ با label


reza644

سوال

سلام

 

اگه text as label باشه

 

و text.text برابر با Colors.Red باشه

text.text="Colors.Red"

پس من چرا نمیتونم متن text رو برابر با رنگم قرار بدم؟؟؟؟؟؟؟؟؟

label3.TextColor=text.text
لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

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

اینطوری کن هموطن

dim str as string
str = file.readString(File.DirRootExternal,"textcolor"&".txt")
if str = "Colors.Black" then
lbl.textColor = Colros.Black
else if str = "Colors.Red" then
lbl.textColor = Colros.Red
else if 
.
.
.
.
.
end if

جای سه نقطه ها هم بقه شرط هاتو بذار

این توی قسمت

این شرطت هم اگه کار نکرد اینطوری بنویسش

If(File.Exists(File.DirRootExternal,"textcolor.txt")) Then 
If File.Exists(File.DirRootExternal,"textcolor.txt") = true Then 
لینک ارسال
به اشتراک گذاری در سایت های دیگر

سلام باید به این صورت بنویسید...

label3.TextColor=colors.red

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

text.text="Colors.Red"

باید به این صورت بنویسید

text.textcolor=Colors.Red
لینک ارسال
به اشتراک گذاری در سایت های دیگر

داداش منظورمو اشتباه فهمیدی

 

من میخوام رنگ لیبل سه با متن text.text تعیین شه

 

label3.TextColor=text.text

 

ولی ارور میده

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

داداش منظورمو اشتباه فهمیدی

 

من میخوام رنگ لیبل سه با متن text.text تعیین شه

 

label3.TextColor=text.text

 

ولی ارور میده

خب نمیتونید بگید label3.textColor=text.text ، چون وقتی کاربر داخل ادیت تکست مثلا وارد میکنه colors.red ، مشخصه ی text ادیت تکست این مقدار رو از نوع استرنگ برمیگردونه اما textColor مقدار int میگیره.

 

میتونید چند تا رنگ رو از قبل تعیین بکنید و شرط گذاری کنید که اگه کاربر وارد کرد colors.red  ، رنگ قرمز اعمال بشه و...

If text.Text.ToLowerCase="colors.red" Then
	laebl1.TextColor=Colors.Red
Else If text.Text.ToLowerCase="colors.green" Then
	laebl1.TextColor=Colors.Green
End If

و یا اینکه میتونید کد رنگ رو بصورت RGB از کاربر بگیرید.

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

خب نمیتونید بگید label3.textColor=text.text ، چون وقتی کاربر داخل ادیت تکست مثلا وارد میکنه colors.red ، مشخصه ی text ادیت تکست این مقدار رو از نوع استرنگ برمیگردونه اما textColor مقدار int میگیره.

 

میتونید چند تا رنگ رو از قبل تعیین بکنید و شرط گذاری کنید که اگه کاربر وارد کرد colors.red  ، رنگ قرمز اعمال بشه و...

If text.Text.ToLowerCase="colors.red" Then
	laebl1.TextColor=Colors.Red
Else If text.Text.ToLowerCase="colors.green" Then
	laebl1.TextColor=Colors.Green
End If

و یا اینکه میتونید کد رنگ رو بصورت RGB از کاربر بگیرید.

 

 

ممنون ولی بعید میدونم به دردم بخوره

 

این کد های منه

 

قسمت تنظیمات

#Region  Activity Attributes 
	#FullScreen: False
	#IncludeTitle: false
#End Region

Sub Process_Globals


End Sub

Sub Globals

	Private Label2 As Label
	Private Button1 As Button
	Private label3 As Label
	Private Spinner1 As Spinner
		Private Spinner1 As Spinner
	Private rang As Label
	
End Sub

Sub Activity_Create(FirstTime As Boolean)

	Activity.LoadLayout("sit")'ejray layout

label3.Text="متن نمونه"

rang.Text=""
Spinner1.Add("مشکی")
Spinner1.Add("قرمز")
Spinner1.Add("آبی")


End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub



Sub Button1_Click
	File.WriteString(File.DirRootExternal,"textcolor"&".txt",rang.Text)

End Sub


Sub Spinner1_ItemClick (Position As Int, Value As Object)
If Position=0 Then
	rang.Text="Colors.Black"
	label3.TextColor=Colors.Black
	End If
If Position=1 Then
		rang.Text="Colors.Red"
	label3.TextColor=Colors.Red
	
	End If
	
	If Position=2 Then
		rang.Text="Colors.blue"
	label3.TextColor=Colors.Blue
	
	End If
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("scroll")
lbl.Initialize("")
	If(File.Exists(File.DirRootExternal,"textsize.txt")) Then 
		lbl.Textsize=File.GetText(File.DirRootExternal,"textsize"&".txt")
Else
lbl.Textsize=14
	End If
	
	If(File.Exists(File.DirRootExternal,"textcolor.txt")) Then 
		lbl.TextColor=File.GetText(File.DirRootExternal,"textcolor"&".txt")
Else
lbl.TextColor=Colors.Black
	End If
	

End Sub

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

بایگانی شده

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

  • کاربران آنلاین در این صفحه   0 کاربر

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