Sub spCountry_ItemClick (Position As Int, Value As Object)
edtSearch.Text="" 'limpia el texto
edtSearch.RequestFocus 'recibe el foco
If spCountry1.SelectedItem = "Nombre" Then
'ACA DEBE SER TECLADO TIPO TEXTO
IME.SetCustomFilter(edtSearch, edtSearch.INPUT_TYPE_PHONE , "")
Else If spCountry1.SelectedItem = "Teléfono" Then
'ACA DEBE SER TECLADO NUMERICO
IME.SetCustomFilter(edtSearch, edtSearch.INPUT_TYPE_NUMBERS, "")
Else If spCountry1.SelectedItem = "Calle" Then
'ACA DEBE SER TEXTO
IME.SetCustomFilter(edtSearch, edtSearch.INPUT_TYPE_PHONE , "")
Else
'nada
End If
CallSubDelayed(Me, "SetKeyboard")
End Sub
Sub SetKeyboard
IME.ShowKeyboard(edtSearch)
End Sub