تغییر رنگ یک تکه ای از متن و فاصله دادن مثل اینتر در لیبل

[amir54 138]

سلام من یه مشکل داشتم لطفا کمک کنید

   Sub Globals
     Dim colo As ColorDrawable
     Dim co String
End Sub

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("main")
End Sub

Sub color
    rs.Initialize("{R}Code{R}{B}:>{B}" & co)
    rs.Color2(Colors.Red, "{R}")
    rs.Color2(Colors.RGB(0,128,128),"{D}")
    rs.Color2(Colors.Blue, "{B}")
End Sub

Sub b_Click
    co = "{D}" & t.Text & "{D}"
           If t.Text = "cl" Or t.Text = "c" Then
                l.Text = ""
                co ="{D}" & "خط فرمان با موفقیت پاک گردید" & "{D}"
           End If
 color
 l.Text =l.text & rs & CRLF
End Sub

 

این کد رو که می نویسم اینتر می خوره ولی رنگش تغییر نمی کنه همون سیاه می مونه

[حاج حسین 2,098]

این دیدید 

سورس رنگی کردن قسمتی از متن در یک Label

 

[amir54 138]

کسی نیست لطفا کمک کنید

[amir mahdizadeh 109]

سلام

دوست من لطفا کد هاتون رو توی قسمت <code>  قرار بدید تا بهم ریخته نباشه و در مورد مشکلتون هم بیشتر توضیح بدید تا دوستان بتونن بهتر کمک کنند

[amir54 138]

Sub Globals
     Dim colo As ColorDrawable
     Dim co String
End Sub

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("main")
End Sub

Sub color
    rs.Initialize("{R}Code{R}{B}:>{B}" & co)
    rs.Color2(Colors.Red, "{R}")
    rs.Color2(Colors.RGB(0,128,128),"{D}")
    rs.Color2(Colors.Blue, "{B}")
End Sub

Sub b_Click
    co = "{D}" & t.Text & "{D}"
           If t.Text = "cl" Or t.Text = "c" Then
                l.Text = ""
                co ="{D}" & "خط فرمان با موفقیت پاک گردید" & "{D}"
           End If
 color
 l.Text =l.text & rs & CRLF
End Sub

من این کد رو نوشتم می خواستم یک فاصله مثل اینتر(Enter) داشته باشه و هم رنگ اون در لیبل تغییر کنه ولی وقتی فاصله میگیره رنگش سیاه می مونه وتغییری نمی کنه

[amirsafari 116]

سلام دوستان کسی نمیدونه واسه رفتن به خط بعد باید چیکار کرد ؟؟؟
توی c++ و c#  واسه این کار \n داشتیم . اینجا چیه؟؟؟
 

label1.text="میخوام توی اینجا برم به خط بعدی"