Spanish Evitar que se muestre el teclado

[JMMF]

Buenos días.

Perdón, pero estoy bastante oxidado con la programación.

Hace tiempo que crea una aplicación y utiliza para mostrar el teclado la biblioteca (BetterDialogsInput)

Todo correcto. De cine. Bien...

Pero ahora me aparece también el teclado de Androi

Una verdadera lata.

Es posible evitar que Androi muestre el teclado

Es decir que solo responde el teclado de BetterDialogsInput.

Muchas gracias.

 

[josejad]

Hola:

No sé qué biblioteca es BetterDialogsInput.

Podrías probar la biblioteca Phone, que tiene un método (HideKeyboard) para ocultar el teclado.

Si no, sube un pequeño ejemplo de lo que te ocurre con el que podamos "trastear" y será más fácil ayudarte.

saludos,

 

[JMMF]

Hola.

El control para introducir datos lo he puesto en un modulo de clase estándar.

Sub Class_Globals
'__________BetterDialogsInput
Private BetterDialogs1 As BetterDialogs 'Trabajos con Dialogos (Libreria BetterDialogs )
Private IP As BD_InputBoxParams 'Trabajos con Dialogos (Libreria BetterDialogs )
Dim MyCursorPantallas As Cursor
Dim DR As Int
Dim IP1 As String
Dim TecladoSoft As IME
'__________BetterDialogsRadioButton
Private SVCheckBox As ScrollView2D 'Trabajos con ScrollView
Dim GD As GradientDrawable
Dim RadioBotonRespuestaTexto, RadioBotonRespuestaPosicion As String
Dim EsUnico As Boolean
Dim CheckBoxSeries(0) As CheckBox
Dim CheckedCambios As Boolean = False
Dim L1 As List
End Sub

Public Sub Initialize(MySQL As String)
MyCursorPantallas=Main.MySQLMain.ExecQuery(MySQL)
End Sub

'++++++++++++++++++++ BetterDialogsInput ++++++++++++++++++++++++++++++++++++++++ BetterDialogsInput ++++++++++++++++++++
Public Sub Input(Posicion As Int,Texto As String,Texto1 As String)
MyCursorPantallas.Position = Posicion
IP.Initialize
IP.Default = Texto 'Texto
IP.HintColor = Colors.Red 'Color de la Insinuación
IP.InputTextSize = Modulo1.IntToDIP(30) 'Tamaño de letra del Input
IP.Gravity = Gravity.CENTER_VERTICAL + Gravity.CENTER_HORIZONTAL 'Horientacion
IP.Multiline = False 'Multiples lineas
IP.QuestionTextSize = Modulo1.IntToDIP(30) 'Tamaño de letra de la Pregunta
IP.SpaceBetween = 4dip 'Espacio entre la Pregunta y el Input.
IP.ValidationCallback = "Input_Validation" 'Validar datos
IP.WithSuggestions =True 'Teclado con Sugerencias
IP.Format = MyCursorPantallas.GetString ("Format") 'Formato
IP.Hint = MyCursorPantallas.GetString ("Hint") 'Insinuación
IP.Question = MyCursorPantallas.GetString ("Question") 'Pregunta
Select MyCursorPantallas.GetString ("Teclado") 'Tipo de teclado
Case 1 'Numeros con decimales
IP.InputType = IP.INPUT_TYPE_DECIMAL_NUMBERS
Case 2 'Numeros
IP.InputType = IP.INPUT_TYPE_NUMBERS
Case 3 'Numeros con signos
IP.InputType = IP.INPUT_TYPE_NUMBERS_WITH_SIGN
Case 4 'Telefono
IP.InputType = IP.INPUT_TYPE_PHONE
Case 5 'Texto
IP.InputType = IP.INPUT_TYPE_TEXT
Case 6 'Texto con 1º letra mayuscula
IP.InputType = IP.INPUT_TYPE_TEXT_WITH_CAPS
End Select
TecladoSoft.HideKeyboard

If Texto1 <> "" Then Texto = Texto1
If MyCursorPantallas.GetString ("Necesario") = "True" And IP.Default = "" Then
DR = BetterDialogs1.InputBox(MyCursorPantallas.GetString ("Nombre") & " " & Main.TituloAdicionalImput, IP, "Ok", "", "", "")
Else
DR = BetterDialogs1.InputBox(MyCursorPantallas.GetString ("Nombre") & " " & Main.TituloAdicionalImput, IP, "Ok", "Cancelar", "", "")
End If
If DR = DialogResponse.POSITIVE Then
IP1 = IP.CompactAnswer.Replace("'","´")
Else
IP1 = Texto
End If
End Sub
'__________Valida el BetterDialogs
Sub Input_Validation(Answer As String, CompactAnswer As String) As String

TecladoSoft.HideKeyboard​

If CompactAnswer.Length>MyCursorPantallas.GetString ("Caracteres") Then
Modulo1.Sonido_Error
Return CompactAnswer.Length & " Carácteres." & CRLF & "Maximo " & MyCursorPantallas.GetString ("Caracteres") & " carácteres"
Else If CompactAnswer = "" And MyCursorPantallas.GetString ("Necesario")= "True" Then
Modulo1.Sonido_Error
Return "No puede estar vacio"
Else
Return ""
End If
End

Y le envió los datos así.

inputClase1.Input(FilaColumna(1),"",Lbl2.text)

Como ves con la librería IME no funciona
Pero muchas gracias por el consejo

 

[josejad]

Si subes un ejemplo siempre es más fácil que alguien pueda ayudarte

 

[JMMF]

Ya te digo que es una app vieja
y hace bastante tiempo que estoy desconectado de este mundo.
cuando la hice funcionaba perfecta.
No se si es posible corregir lo del teclado sin modificar mucho el código.
¿Posiblemente con código Java...?

 

[josejad]

Crea una básica solo con la librería y teclado

 

[JMMF]

No entiendo lo que me quieres decir

 

[josejad]

Me refiero a que crees una app con un (BetterDialogsInput), un edittext y nos digas lo que quieres conseguir