با سلام و سپاس 

 

شب همگی کاربران گل وب سایت یاهو ۹۸ YAHOO بخیر و خوشی باشد ان شا ء لله

 

امشب با  آموزشی دیگر در زمینه تغییر رنگ متون در نوشته های خودمون در بیسیک فور اندروید در خدمت شما هستیم .

 

 

Dim st As String = "وب سایت یاهو ۹۸ مرجعی برای یاد گیری برنامه نویسی به زبان بیسیک فور اندروید. !"

 

اول ما میایم یک متنی رو داخل یک استرینگ برای تست برنامه مینویسیم به صورت زیر :

 

Dim st As String = “وب سایت یاهو ۹۸ مرجعی برای یاد گیری برنامه نویسی به زبان بیسیک فور اندروید. !”

 

و بعد میام با دستور Replace متونی که میخوایم رنگ اون رو تغییر بدیم دستور زیر رو اعمال میکنیم :

 

	
	st = st.Replace("بیسیک","{G}بیسیک{G}")
	st = st.Replace("اندروید","{R}اندروید{R}")
	st = st.Replace("یاهو","{R}یاهو{R}")
	st = st.Replace("98","{R1}98{R1}")

 

و حالا میایم با کتابخانه قدرتمتند RichString کار رو به صورت زیر ادامه میدهیم :

 

Dim r As RichString
	r.Initialize(st)
	r.Color2(Colors.Green,"{G}")
	r.Color2(Colors.Red,"{R}")
	r.Color2(Colors.Blue,"{R1}")

 

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

 

Label1.Text = r
Label2.Text = r
Label3.Text = r

 

موفق و سربلند باشید.

 

 

#Region  Project Attributes 
	#ApplicationLabel: B4A Example
	#VersionCode: 1
	#VersionName: 
	'SupportedOrientations possible values: unspecified, landscape or portrait.
	#SupportedOrientations: unspecified
	#CanInstallToExternalStorage: False
#End Region

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

Sub Process_Globals
End Sub
#Extends: android.support.v7.app.AppCompatActivity

Sub Globals
	Private Label1 As Label
	Private Toolbar As ACToolBarDark
	Private Label3 As Label
	Private Label2 As Label
End Sub

Sub Activity_Create(FirstTime As Boolean)
	Activity.LoadLayout("1")
	Toolbar.Initialize("")
	Activity.AddView(Toolbar,0,0,100%x,56dip)
	Toolbar.SetAsActionBar
	
	Dim Label9 As Label : Label9.Initialize("Label9")
	
	Toolbar.AddView(Label9,Toolbar.Width,Toolbar.Height,Gravity.RIGHT)
	Toolbar.Elevation = 4dip

	Label9.TextSize=18
	Label9.TextColor=Colors.White
	Label9.Gravity = Gravity.CENTER_VERTICAL
	Label9.Text="  تغییر رنگ متون YAHOO 98   "
	Dim st As String = "وب سایت یاهو ۹۸ مرجعی برای یاد گیری برنامه نویسی به زبان بیسیک فور اندروید. !"
	
	st = st.Replace("بیسیک","{G}بیسیک{G}")
	st = st.Replace("اندروید","{R}اندروید{R}")
	st = st.Replace("یاهو","{R}یاهو{R}")
	st = st.Replace("98","{R1}98{R1}")
	Dim r As RichString
	r.Initialize(st)
	r.Color2(Colors.Green,"{G}")
	r.Color2(Colors.Red,"{R}")
	r.Color2(Colors.Blue,"{R1}")
	Label1.Text = r
	Label2.Text = r
	Label3.Text = r
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

 

شایان به ذکر می باشد که : در سورس کد بالا بنده کتابخانه Appcompat3.52 رو تیک زده و کد منیفست رو اضافه کرده که بدون این کتابخانه هم میتونید از سورس استفاده کنید.

گرداورنده سید اسماعیل مهین نژاد.