تغییر رنگ دکمه هنگام کلیک

[mohsen.gh 48]

سلام

میخاستم کاربر وقتی روی button کلیک می کنه رنگ اون عوض شه مثل pressed drawable  در دیزاینر اما من button رو تو دیزاینر ادد نکردم و میخام با کدنویسی اینجوری بشه

ممنون میشم راهنمایی کنید

[مهران محمودی 778]

درود،

	Dim sld1 As StateListDrawable
	sld1.Initialize
	Dim btn1 As Button
	btn1.Initialize("btn1")
	Activity.AddView(btn1,10dip,10dip,50%x,50%y)
	btn1.Text="test"
	btn1.TextSize=20
	btn1.TextColor=Colors.White
	Dim cd(2) As ColorDrawable
	cd(0).Initialize(Colors.Red,0) ' dar halate addi
	cd(1).Initialize(Colors.Blue,0) ' dar halate feshorde shode
    Dim stts(2) As Int
    stts(0) = sld1.State_Enabled
    stts(1) = -sld1.State_Pressed
    sld1.AddState2(stts, cd(0))
    Dim stts(1) As Int
    stts(0) = sld1.State_Enabled
    sld1.AddState2(stts, cd(1))
    btn1.Background = sld1