Sub CreateCD() As ColorDrawable
Dim cd As ColorDrawable
cd.Initialize2(Colors.RGB(240, 240 ,255), 3dip, 1dip, Colors.Black)
Return cd
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.Color = Colors.RGB(245,245,245)
editBox.Initialize("editBox")
editBox.TextSize = 20
editBox.TextColor = Colors.Black
editBox.Gravity = Gravity.TOP
editBox.Visible = False
editBox.Background = CreateCD
editBox.InputType = Bit.Or(editBox.InputType, 524288) 'to remove autosuggest
Activity.addView(editBox, 10%x, 33%y, 80%x, 25%y)
inputBox.Initialize("inputBox")
inputBox.TextSize = 20
inputBox.TextColor = Colors.Black
inputBox.Visible = False
inputBox.Background = CreateCD
inputBox.InputType = Bit.Or(inputBox.InputType, 524288) 'to remove autosuggest
Activity.addView(inputBox, 50%x, 10%y, 20%x, 5%y)
Dim alphnum As String = "abcdefghijklmnopqrstuvwxyz"
alphnum = alphnum & alphnum.toUppercase & "0123456789,_"
kbInput.Initialize("kbInput")
kbInput.SetCustomFilter(inputBox, inputBox.INPUT_TYPE_TEXT, alphnum)
kbInput.AddHandleActionEvent(inputBox)
kbEdit.Initialize("kbEdit")
kbEdit.SetCustomFilter(editBox, editBox.INPUT_TYPE_TEXT, alphnum)
kbEdit.AddHandleActionEvent(editBox)
CallSubDelayed(Me, "showProblem") 'callSubDelayed to let the kb handlers get ready
End Sub