Spanish [Solucionado] Teclado: Como cambiar el nombre de la tecla "Enter"

edgar_ortiz

Active Member
Licensed User
Longtime User
Alguien sabe como hacer para cambiar el nombre de la tecla "enter"?

Es decir, que aparezca : "Buscar" o "Procesar"

Saludos,

Edgar
 

josejad

Expert
Licensed User
Longtime User
Pon tu código y el elemento sobre el que pulsarías para escribir la búsqueda
 

edgar_ortiz

Active Member
Licensed User
Longtime User
B4X:
#Region  Activity Attributes
    #FullScreen: False
    #IncludeTitle: True
#End Region

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.

End Sub

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.

    Private be_b4x_Categorias As B4XComboBox
    Private beetNombre As B4XView
    Private beetDireccion As B4XView
    Private bebutAfiliar As B4XView
    Private bebutHelp As B4XView
    Private bebutExit As B4XView

End Sub

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    Activity.LoadLayout("BuscarEmpresas")

End Sub

Sub Activity_Resume
    Log("Activity_Resume")
    CargarSpinnerCategorias
    '
    
End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub beetNombre_EnterPressed
    
End Sub

Sub beetDireccion_EnterPressed
    
End Sub

Sub bebutHelp_Click
    
End Sub

Sub bebutExit_Click
    Activity.Finish
End Sub

Sub bebutAfiliar_Click
    
End Sub

Sub be_b4x_Categorias_SelectedIndexChanged (Index As Int)
    
End Sub

Sub CargarSpinnerCategorias
    Dim lcList As List
    '
    lcList.Initialize
    lcList.Clear
    '
    Log("CargarSpinnerCategorias")
    Log(Starter.CursorCategorias.RowCount)
    '
    For i = 0 To Starter.CursorCategorias.RowCount-1
        Starter.CursorCategorias.Position    = i
        lcList.add(Starter.CursorCategorias.GetString("categoria").Trim)
    Next
    '
    be_b4x_Categorias.SetItems(lcList)
    be_b4x_Categorias.cmbBox.TextColor    = Colors.Black
    be_b4x_Categorias.cmbBox.DropdownBackgroundColor = Colors.White
    be_b4x_Categorias.SelectedIndex = 0
End Sub

Mi intención es que en el campo "beetNombre" cuando se muestre el "teclado" muestre una "tecla" llamada "Buscar"

De antemano Gracias por TU tiempo
 

josejad

Expert
Licensed User
Longtime User
Disculpa, no vi que ese ejemplo era cuando usas un MiniSearch View.

Declara "beetNombre" como EditText en vez de como B4XView.
Y en activity_create haz:
B4X:
    Dim JO As JavaObject = beetNombre
    JO.RunMethod("setImeOptions",Array As Object(3))

Esto hará que aparezca una lupa en vez de "Enter", no sé si te servirá.
 

edgar_ortiz

Active Member
Licensed User
Longtime User
Disculpa, no vi que ese ejemplo era cuando usas un MiniSearch View.

Declara "beetNombre" como EditText en vez de como B4XView.
Y en activity_create haz:
B4X:
    Dim JO As JavaObject = beetNombre
    JO.RunMethod("setImeOptions",Array As Object(3))

Esto hará que aparezca una lupa en vez de "Enter", no sé si te servirá.

José,

Muchas Gracias... funcionó
 
Top