Sub Process_Globals
Public App As Application
Public NavControl As NavigationController
Private Page1 As Page
Dim tf As TextField
End Sub
Private Sub Application_Start (Nav As NavigationController)
NavControl = Nav
Page1.Initialize("Page1")
Page1.Title = "Page 1"
Page1.RootPanel.Color = Colors.White
NavControl.ShowPage(Page1)
tf.Initialize("tf")
Page1.RootPanel.AddView(tf, 0, 0, 200, 100)
Dim b As Button
b.Initialize("b", b.STYLE_SYSTEM)
b.Text = "Hide keyboard"
b.Width = 100
b.Height = 50
AddViewToKeyboard(tf, b)
End Sub
Sub b_Click
Page1.ResignFocus
End Sub
Sub AddViewToKeyboard(TextField1 As TextField, View1 As View)
Dim no As NativeObject = TextField1
no.SetField("inputAccessoryView", View1)
End Sub