How can I create a selection menu !!!
Thank
Thank
sub btn_click
dim b as button = Sender
if b.tag = "button1" then 'first button in Menu was clicked
.... 'here what you want to do when button1 was clicked
else if b.tag = "button2" then 'second button in Menu was clicked
... 'here what you want to do when button2 was clicked
end if
end sub
dim tx2 as TextField
tx2.Initialize("tx2")
tx2.Text = "Categoria"
tx2.Tag = tx2.Text
tx2.ShowClearButton = True
pane.AddView(tx2,l,t,w,h)
tx2.Initialize("tx2")
tx2.Text = ""
tx2.HintText = "Categoria"
tx2.Tag = tx2.HintText
pane.AddView(tx2,l,t,w,h)
Dim btx1 As Button
btx1.Initialize("btx1",btx1.STYLE_CONTACT_ADD)
btx1.Text = ""
pane.AddView(btx1,(w-22),t,50,h)