تغییر رنگ لیبل با یک بار کلیک روی لیبل مورد نظر

[siroos12 14]

سلام علیکم.

دوستان تو دو تا تایپیک قبل خودم گذاشتم اما به نتیجه نرسیدم.

منظورم ی بار کلیک روی لیبل رنگ لیبلی که کلیک کردم تغیر کنه مثل این

کد هام هم اینن.

Sub Globals

Private ScrollView1 As ScrollView

Dim m As MediaPlayer

Private Label1 As Label
	
Private Panel1 As Panel
	
Dim c As Cursor
	
Dim s As SQL

Dim x As Int=1%y
Private Button1 As Button

End Sub


Sub SetlineSacing(Lbl As Label,add As Float,mult As Float)

Dim jo As JavaObject=Label1

jo.RunMethod("setLineSpacing",Array As Object(add,mult))

End Sub



Sub Activity_Create(FirstTime As Boolean)	
m.Initialize()

m.Load(File.DirAssets,"ashora.wma")

	Activity.LoadLayout("b")

If File.Exists(File.DirInternal,"2.db")=False Then

File.Copy(File.DirAssets,"2.db",File.DirInternal,"2.db")
End If

s.Initialize(File.DirInternal,"2.db",False)
c=s.ExecQuery("SELECT * FRom aa")
For i=0 To c.RowCount-1
c.Position=i
Dim p As Panel
p.Initialize("p")
ScrollView1.Panel.AddView(p,0,x,100%x,100%y)
x=x+42%y


p.LoadLayout("a")

Label1.Text=c.GetString("a")
Label1.Typeface=Typeface.LoadFromAssets("Mj_Shafigh.TTF")
Label1.Gravity=Gravity.CENTER
Label1.TextColor=Colors.Black
Label1.TextSize=25
SetlineSacing(Label1,1.5,1.5)
Label1.Top=0dip
ScrollView1.Panel.Height=x
Next
End Sub


Sub Button1_Click

If (m.IsPlaying)Then

m.Pause

Button1.Text="play"

Else

m.Play

Button1.Text="puse"

End If

End Sub

[siroos12 14]

بازم نشد نمیدونم چیکار کنم.

کسی از دوستان راهنمایی نمیکنه؟