تعیین رنگ با label

[reza644 435]

سلام

 

اگه text as label باشه

 

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

text.text="Colors.Red"

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

label3.TextColor=text.text

[shahab.es 5,429]

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

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 

[porya 959]

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

label3.TextColor=colors.red

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

text.text="Colors.Red"

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

text.textcolor=Colors.Red

[reza644 435]

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

 

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

 

label3.TextColor=text.text

 

ولی ارور میده

[پژمان نیکروان 6,055]

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

 

من میخوام رنگ لیبل سه با متن 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 از کاربر بگیرید.

[reza644 435]

خب نمیتونید بگید 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