Sub Globals
Dim pnlJose As Panel
Dim lblJose As Label
Dim bmpJose As Bitmap
Dim imgJose As ImageView
Dim Gradient1 As GradientDrawable
End Sub
Sub Activity_Create(FirstTime As Boolean)
'Initialize
pnlJose.Initialize("")
imgJose.Initialize("")
lblJose.Initialize("")
'Gradient
Dim Clrs(3) As Int
Clrs(0) = Colors.RGB(255,0,0)
Clrs(1) = Colors.RGB(128,255,128)
Clrs(2) = Colors.RGB(255,176,255)
Gradient1.Initialize("LEFT_RIGHT", Clrs)
pnlJose.Background=Gradient1
'Label
lblJose.Text="JTMartins"
lblJose.TextColor=Colors.Black
lblJose.Typeface=Typeface.DEFAULT_BOLD
lblJose.TextSize=22
'Add views to panel
pnlJose.AddView(imgJose,0,25%y,50%x,150dip)
pnlJose.AddView(lblJose,50%x,25%y,150dip,50dip)
'Add panel to activity
Activity.AddView(pnlJose,0,0,100%x,50%y)
imgJose.Bitmap=LoadBitmap(File.DirAssets,"yourpngfile.png")
End Sub