تغییر رنگ ویوو

[m007moh 181]

با سلام

 

میخواستم بدونم تو کد نویسی هم مثل دیزاین میشه از حالت GradientDrawable (دورنگ) واسه ویووهامون استفاده کرد؟؟

 

با تشکر

[yaser_b4a 131]

Dim pnlTest As Panel 

Dim gd1 As GradientDrawable

 Dim cols1(2) As Int 

End Sub 

Sub Activity_Create(FirstTime As Boolean) 

pnlTest.Initialize("") 

Activity.AddView(pnlTest,5dip,5dip,100%x-10dip,100%y-10dip) 

cols1(0) = Colors.Cyan 

cols1(1) = Colors.Red 

gd1.Initialize("TOP_BOTTOM",cols1) 

gd1.CornerRadius=0

 pnlTest.Background=gd1 

' Activity.Background=gd1