گرد ماندن دکمه ها بعد از کلیک روی دکمه

[mojcom 22]

سلام دوستان - من یک دکمه رو گوشه هاش رو در دیزاینر گرد قرار دادم اما و قتی داخل برنامه این کد رو روی رویداد کلیکش نوشتم بعد از کلیک شدن دوباره دکمه به حالت معمولی و گوشه تیز قرار میگیره.

 

btn1.color=colors.rgb(255,0,0) 

 

یعنی من وقتی با کلیک روی دکمه  که کد تغییر رنگش رو نوشتم کلیک میکنم گوشه های دکمه تیز میشه من میخوام همونطور دکمه گرد بمونه باید چه کدی نوشت که مانع از تغییر ظاهری دکمه بشه و فقط رنگش تغییر کنه؟"

[ghost94 151]

سلام

دکمه ای که اضافه کردید بهش عکس دادید توی دیزاینر ؟

اگه نه چجوری گرد کردید ؟

[پژمان نیکروان 6,055]

خب وقتی اول یه drawable میدین به Bacground باتن و بعد از کلیک هم دوباره یه رنگ میدین مشخصه اون drawable قبلیشو از دست میده.

 

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

Dim st As StateListDrawable
Dim drw1 As ColorDrawable
drw1.Initialize(Colors.blue,50) 'پیشفرض

Dim drw2 As ColorDrawable
drw2.Initialize(Colors.red,50) 'وقتی کلیک شد

st.Initialize
st.AddState(st.State_Pressed,drw2)
st.AddCatchAllState(drw1)

button1.Background=st

اینو همینطوری نوشتم تست نکردم. امتحانش کنید.