رنگی کردن تایتل

[ارمین رمضانی دلیجانی 381]

به نام خدا

با این آموزش متن تیتل رو رنگی کنید!

1: دو تا تایمر تعریف میکنیم

Sub Process_Globals
  Dim timer1 As Timer
  Dim timer2 As Timer
End Sub

2: و بعد تو قسمت

Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Layout1")
' Add Kardane Ye range be delkha
Activity.TitleColor = Colors.Black
'
timer1.Initialize("timer1","200")'inam ke malome
timer2.Initialize("timer2","2000")' //
timer1.Enabled = True 'starte timer 1
End Sub

3: در قسمت

Sub timer1_tick
Activity.TitleColor = Colors.White' range sefid ro entekhab mikonim
timer2.Enabled = True ' timer 2 ro vasl mikonim
timer1.Enabled = False' timer 1 ro ghat mikonim
End Sub

4: و در نحایت

Sub timer2_tick
Activity.TitleColor = Colors.Black' range meshki ro entekhab mikonim
timer1.Enabled = True' timer 1 vasl she
timer2.Enabled = False' timer 2 ghat she
End Sub

باتشکر