#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"
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.