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

[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]

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

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

عاقا اعصابم خورد شد یعنی کاریش نمیشه کرد؟

[مجید آرتا 5,875]

سلام

شما دقیقا بگو مشکلت چیه و هدفت چیه ؟

نمی تونید رنگ متن لیبل رو تغییر بدید ؟

توی کدی که دوستمون دادن بجای TextColor  از Color  استفاده کردن.شما بجای Color  پراپرتی TextColor  رو وارد کن و کد رو تست کن.

موفق باشید.

[siroos12 14]

سلام

شما دقیقا بگو مشکلت چیه و هدفت چیه ؟

نمی تونید رنگ متن لیبل رو تغییر بدید ؟

توی کدی که دوستمون دادن بجای TextColor از Color استفاده کردن.شما بجای Color پراپرتی TextColor رو وارد کن و کد رو تست کن.

موفق باشید.

عاقا من امتحان کردم ی بار هم شرط بودن فایلم که در حافظه داخلی. کپی میشه رو برداشتم اما تغییر نکرد،کد های برنامه ام بالا هستن میدونید مشکل کجاست؟

[siroos12 14]

مشکل تغییر نکردن رنگ لیبل هست و هدفمم تغییر رنگ لیبل

عاقا من امتحان کردم ی بار هم شرط بودن فایلم که در حافظه داخلی. کپی میشه رو برداشتم اما تغییر نکرد،کد های برنامه ام بالا هستن میدونید مشکل کجاست؟

[shahriar 408]

سلام

ببین این کار میکنه :

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
Label1.Tag = c.GetInt("ID") 'Add
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

Sub Label1_Click
	Dim lb1 As Label
	lb1 = Sender
	lb1.TextColor = Colors.Red
End Sub

[shahriar 408]

فقط اون خطی که نوشتم Add باید به جای "ID" اسم همون فیلدی که شماره عنوان ها توش قرار داره بدی

[siroos12 14]

فقط اون خطی که نوشتم Add باید به جای "ID" اسم همون فیلدی که شماره عنوان ها توش قرار داره بدی

دستت درنکنه فقط ی مششکلی داره، اونم اینکه مثلا من اگه لیبل 1رو کلیک کردم تغیر رنگ میکنه اما مثلا لیبل 2رو میزنم رنگ لیبل1به حالت اول بر نمیگرده.

[shahriar 408]

دستت درنکنه فقط ی مششکلی داره، اونم اینکه مثلا من اگه لیبل 1رو کلیک کردم تغیر رنگ میکنه اما مثلا لیبل 2رو میزنم رنگ لیبل1به حالت اول بر نمیگرده.

 

خواهش میکنم

دستورات لیبل رو با این عوض کن ببین درست میشه :

Dim lb1 As Label
	lb1 = Sender
	Label1.TextColor = Colors.Black
	lb1.TextColor = Colors.Red

[siroos12 14]

انجامش دادم اما تغیر نکرد.

[مجید آرتا 5,875]

خب برادر توی رویداد کلیک لیبل 2 رنگ متن لیبل 1 رو تغییر بدید.

فکر نکنم کار خاصی بخواد.

[shahriar 408]

خب برادر توی رویداد کلیک لیبل 2 رنگ متن لیبل 1 رو تغییر بدید.

فکر نکنم کار خاصی بخواد.

 

آقا مجید یکی دوتا نیست دکمه هاش که باحلقه ادد میکنه

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

[siroos12 14]

خب برادر توی رویداد کلیک لیبل 2 رنگ متن لیبل 1 رو تغییر بدید.

فکر نکنم کار خاصی بخواد.

نه شما منظورم رو متوجه نشدید در ضمن من لیبلم رو داخل حلقه فور انداختم.

[yasin011 285]

گلوبال بنویس

dim x as boleaan = true

 

کلیک لیبل بنویس

if x =true then

lbl.textcolor = colors.red

x = false

end if

[siroos12 14]

گلوبال بنویس

dim x as boleaan = true

کلیک لیبل بنویس

if x =true then

lbl.textcolor = colors.red

x = false

end if

والا من همین کارو کردم اما هیچ تغییری تو برنامه ام نشد.

ی نکته بگم من لیبل رو با توجه به دیتابیس انداختم تو حلقه for.

[yasin011 285]

شرمنده داداش متوجه حلقه نبودم.

اول برو طرز استفاده از تگ و سندر رو یاد بگیر . اسونه !!

 

http://answercenter.ir/topic/2807-استفاده-از-tag-و-sender-در-multi-panel/

 

بعد میتونی با همین کد من کار کنی

[siroos12 14]

مگه همین نیست ؟!

اسم ملغیرو تغییر دادی دگ ؟! x نذار یچی دگ بذار

آقا آنقدر مبتدی دیگه نیستم اره تغییر دادم

[yasin011 285]

آقا آنقدر مبتدی دیگه نیستم اره تغییر دادم

پست ویرایش شد  

[siroos12 14]

شرمنده داداش متوجه حلقه نبودم.

اول برو طرز استفاده از تگ و سندر رو یاد بگیر . اسونه !!

http://answercenter.ir/topic/2807-استفاده-از-tag-و-sender-در-multi-panel/

بعد میتونی با همین کد من کار کنی

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

حالا تکلیف چیست؟

[yasin011 285]

Sub Globals

''''''''''''''''''
dim colorlbl as bolean = true
'''''''''''''''''

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
''''''''''''''''''''''
label1.tag = i + 1
''''''''''''''''''''''
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

'''''''''''''''
sub label1_click 
dim y as label
y = sender
if colorlbl = true then
y.color = colors.red
colorlbl = false
end if

end sub

''''''''''''''''


End Sub

شاید خطای تایپی داشته باشم 

[siroos12 14]

Sub Globals

''''''''''''''''''
dim colorlbl as bolean = true
'''''''''''''''''

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
''''''''''''''''''''''
label1.tag = i + 1
''''''''''''''''''''''
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

'''''''''''''''
sub label1_click 
dim y as label
y = sender
if colorlbl = true then
y.color = colors.red
colorlbl = false
end if

end sub

''''''''''''''''


End Sub

شاید خطای تایپی داشته باشم

امتحانش نکردم اما ممنون.