با سلام

 

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

 

امروز براتون کدهای تشکیل دهنده یک باتن با خصوصیات کاملش رو در محیط کدنویسی بدون احتیاج به دیزاینر آماده کردیم که به صورت زیر می باشد :

 

Dim DisabledDrawable As ColorDrawable
	DisabledDrawable.Initialize(0xFFECB7B7 , 5dip)
	Dim PressedDrawable As ColorDrawable
	PressedDrawable.Initialize(0xFFB6B6B6 , 5dip)
	Dim DefaultDrawable As ColorDrawable
	DefaultDrawable.Initialize(0xFFEA7676 , 5dip)
	Dim sld As StateListDrawable
	sld.Initialize
	sld.AddState (sld.State_Disabled, DisabledDrawable)
	sld.AddState (sld.State_Pressed, PressedDrawable)
	sld.AddCatchAllState (DefaultDrawable)
	Btn.Background = yahoo98

 

موفق باشید.