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

[محمد امین مهمان]

با سلام

دوباره مزاحم وقت حضرات شدم

سوال ویژه:

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

خط یا خطوطی از اون را رنگی یا بولد و... کرد؟؟؟

تو انجمن سرچ نمودم چیزنایافتم

مثل:

[محمد امین مهمان]

درود و دو صد بدرود

این کدی که شما نوشتید علی الظاهر برای رنگ کردن نوشته ای است که توی بیسیک نوشته میشه

حالا اگر بخواهیم متن تکست خود را مثلا خط اولش رنگی کنیم

غیر از دیتا بیس راه دیگه ای نیست؟؟؟؟؟

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

[مهدی ایزدی 9,203]

حالا اگر بخواهیم متن تکست خود را مثلا خط اولش رنگی کنیم غیر از دیتا بیس راه دیگه ای نیست؟؟؟؟؟

 

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

بعد اون String رو به همین تیکه کدی که بالا دادم بدید(در قسمت رنگی)

مابقی رو هم به صورت String جدا کنید و در قسمت معمولی بدید

[mr.saymon 0]

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

حالا اگر بخوایم متن رو از دیتابیس بگیریم چی

به طور مثال متن ما از دیتابیس خونده میشه و داخل یه لیبل قرار میگیره فرضا با دستور زیر:

("Lb.text = cur.GetString("text

 

حالا اگر متن من طولانی باشه و بخوایم سه تا کمله از این متن رو رنگی کنیم باید چه کار کنیم؟

[M-CAP7AIN 537]

در ۱ ساعت قبل، mr.saymon گفته است :

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

حالا اگر بخوایم متن رو از دیتابیس بگیریم چی

به طور مثال متن ما از دیتابیس خونده میشه و داخل یه لیبل قرار میگیره فرضا با دستور زیر:

("Lb.text = cur.GetString("text 

 

حالا اگر متن من طولانی باشه و بخوایم سه تا کمله از این متن رو رنگی کنیم باید چه کار کنیم؟

 

احتمالا به این صورت بشه :

	Dim str1 As String
	str1 = cur.GetString("text")
	str1 = str1.replace("سلام" , "{R}سلام{R}")

	Dim rs As RichString
	rs.Initialize(str1)
	rs.Color2(Colors.Red, "{R}")
	
	Lb.text = rs

 

[qasem 249]

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

لطفا اگه بصورت کامل و همراه کد توضیح دهید ممنون میشم

[discoversh 54]

درود دستان.ممنون از سورستون من کد رو اینجوری اضاف کردم ولی متن رو اصن نشون نمیده؟؟؟

  lblsBody.Text=lblsBody.Text & menu.cur.GetString("Name")&" : " & CRLF & menu.cur.GetString("Value") & CRLF
  	rich.Initialize("")
	rich.Color2(Colors.Red, menu.cur.GetString("Name"))
	lblsBody.Text = rich
	lblsBody.TextSize = 15 

[discoversh 54]

درود و سلام دوستان.من ی دیتابیس دارم ک دوتا column داره.آیا میشه به هرکدوم از column ها رنگ جداگونه داد.دوتا column هم توی یک لیبل فراخونی شده؟

[softir 459]

در در 1394/05/21, 05:43:56، مهدی ایزدی گفته است :

درود

کاری که میگم رو انجام بدید

کتابخانه RichString رو Add و فعال کنید

و بعدش :

Sub Globals
	Private Label1 As Label
	Dim rs As RichString
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("Layout1")
	rs.Initialize("www.{R}Basic{R}4{R}Android{R}.org")
	rs.Color2(Colors.Red, "{R}")
	Label1.Text = rs
End Sub

نتیجه میشه این :

 

اگه اطلاعات بیشتری میخوای منبعش اینجاست :

http://www.b4x.com/android/forum/threads/richstring-library.10680/

 

البته اون چیزی که شما دادید 99.999999% با دیتابیس هست که Title ها یک Field و Label جداگونه ای رو برای خودشون دارن

بله خیلی راحته با کتابخانه که دوسته گلمون گزاشتن میشه فقت باید کدش رو دست کاری کنی یچیزی تو این مایه ها

rs.Initialize("www.{R}" & aa.GetString("نام کولومون")  &     "{R}4{R}"  & aa.GetString("نام کولومون") &   "{R}.org")

 

[vahid1363 2]

  lblsBody.Text=lblsBody.Text & menu.cur.GetString("Name")&" : " & CRLF & menu.cur.GetString("Value") & CRLF
  	rich.Initialize("lblsBody.Text")
	rich.Color2(Colors.Red, menu.cur.GetString("Name"))
	lblsBody.Text = rich
	lblsBody.TextSize = 15 

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

[discoversh 54]

  lblsBody.Text=lblsBody.Text & menu.cur.GetString("Name")&" : " & CRLF & menu.cur.GetString("Value") & CRLF
  	rich.Initialize("lblsBody.Text")
	rich.Color2(Colors.Red, menu.cur.GetString("Name"))
	lblsBody.Text = rich
	lblsBody.TextSize = 15 

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

 

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

[Milad-Mohammadi 401]

با HTML هم میشه...حتما دنبالش برید  

[discoversh 54]

در در 1395/08/16, 13:52:38، softir گفته است :

بله خیلی راحته با کتابخانه که دوسته گلمون گزاشتن میشه فقت باید کدش رو دست کاری کنی یچیزی تو این مایه ها

rs.Initialize("www.{R}" & aa.GetString("نام کولومون")  &     "{R}4{R}"  & aa.GetString("نام کولومون") &   "{R}.org")

 

سپاس دوست من.تمام مراحل رو رفتم اما تنها آخرین سطر کولون رنگی شده اینم از تکه کدش و اینکه یه سورس کوچولو گذاشتم میشه ببینینش.؟

    Dim rich As RichString
	 rich.Initialize(Label1.text & "{GR}" &Main.cur1.GetString("small") & "{GR}" &CRLF& Main.cur1.GetString("large")& CRLF)
	 rich.Color2(Colors.Green, "{GR}")
	 Label1.Text = rich

text color

[مهدی ایزدی 9,203]

در 27 دقیقه قبل، discoversh گفته است :

سپاس دوست من.تمام مراحل رو رفتم اما تنها آخرین سطر کولون رنگی شده اینم از تکه کدش و اینکه یه سورس کوچولو گذاشتم میشه ببینینش.؟

    Dim rich As RichString
	 rich.Initialize(Label1.text & "{GR}" &Main.cur1.GetString("small") & "{GR}" &CRLF& Main.cur1.GetString("large")& CRLF)
	 rich.Color2(Colors.Green, "{GR}")
	 Label1.Text = rich

text color

درود

تمام کدتون رو قرار بدید... کل کدی که توی همین اکتیویتی ازش استفاده کردید.

شما باید از حلقه استفاده کنید...

[softir 459]

در هم اکنون، discoversh گفته است :

سپاس دوست من.تمام مراحل رو رفتم اما تنها آخرین سطر کولون رنگی شده اینم از تکه کدش و اینکه یه سورس کوچولو گذاشتم میشه ببینینش.؟

    Dim rich As RichString
	 rich.Initialize(Label1.text & "{GR}" &Main.cur1.GetString("small") & "{GR}" &CRLF& Main.cur1.GetString("large")& CRLF)
	 rich.Color2(Colors.Green, "{GR}")
	 Label1.Text = rich

text color

دانلود کردم دیدم منظورتون از این که تمام حروف هر دسته رو نشون نمیده رو نفهمیدم . این که تو هر قسمت از حروف می ری  تمام حروفش رو نشون می ده . مثلا می ری D تمام larg هایی که با D شروع شدن رو نشون داد

[discoversh 54]

در 3 ساعت قبل، مهدی ایزدی گفته است :

درود

تمام کدتون رو قرار بدید... کل کدی که توی همین اکتیویتی ازش استفاده کردید.

شما باید از حلقه استفاده کنید...

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

در 3 ساعت قبل، softir گفته است :

دانلود کردم دیدم منظورتون از این که تمام حروف هر دسته رو نشون نمیده رو نفهمیدم . این که تو هر قسمت از حروف می ری  تمام حروفش رو نشون می ده . مثلا می ری D تمام larg هایی که با D شروع شدن رو نشون داد

مشکلم با نمایش هر دسته از حروف و کلماتش حل شد،مشکل اینجاست ک وقتی هر دسته رو باز میکنی تنها آخرین حرف کولون large ب رنگ سبز در اومده.من میخام تمام حروف کولون large سبز رنگ بشه،مثلن تمام حروف A دسته A و اسامی ک نوشته شده سفید رنگ بمونن. 

[کامکار 20]

آقای ایزدی میشه این نوشته بالای خودتون بصورت سورس دربیارین؟

[مهدی ایزدی 9,203]

درود

کاری که میگم رو انجام بدید

کتابخانه RichString رو Add و فعال کنید

و بعدش :

Sub Globals
	Private Label1 As Label
	Dim rs As RichString
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("Layout1")
	rs.Initialize("www.{R}Basic{R}4{R}Android{R}.org")
	rs.Color2(Colors.Red, "{R}")
	Label1.Text = rs
End Sub

نتیجه میشه این :

 

اگه اطلاعات بیشتری میخوای منبعش اینجاست :

http://www.b4x.com/android/forum/threads/richstring-library.10680/

 

البته اون چیزی که شما دادید 99.999999% با دیتابیس هست که Title ها یک Field و Label جداگونه ای رو برای خودشون دارن

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

آقای ایزدی میشه این نوشته بالای خودتون بصورت سورس دربیارین؟

بفرمایید.

دانلود