Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 3
Ir a la página 1, 2, 3  Siguiente
 
Como Listar Recientes En Un Textbox?
Autor Mensaje
Responder citando   Descargar mensaje  
Mensaje Como Listar Recientes En Un Textbox? 
 
necesito crear una lista de recientes en un textbox donde se ingresa el nombre del arbitro de los partidos de tenis de mesa para que sea mas cómodo para ellos digamos haciendo un clic en el textbox aparezca una lista con los nombres que se han ingresado anteriormente, necesito una orientación de como hacerlos, seria algo como el buscador google que vos pones una palabra y el te da similitudes en un lisbox o algo parecido, escucho sugerencias por donde empezar.
 




===================
Software libre, programación libre, vida libre es la Public function Libertad()as Invendible
Proyectos: VisorRV1960,Taller2015,Tanteador
https://sourceforge.net/u/v3ctor-full/profile/
Blog: http://novatocodegambas.blogspot.com.uy/
 
v3ctor - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Como Listar Recientes En Un Textbox? 
 
Hola v3ctor.

Un Textbox esta más bien pensado para una linea de texto. Como entrada, no como etiqueta que es una salida.
Es distinto al TextArea, donde puedes añadir el texto que quieras en distintas lineas.

Con un ListBox tu puedes jugar con distintos elementos.Puedes buscar por letras y que vayan apareciendo coincidencias.
¿ O prefieres que al escribir en el Textbox, salgan las coincidencias en el Listbox ?

Te muestro un ejemplo. Creo que lo subí en su día a la comunidad.
En este ejemplo se buscan palabras que tienen que ver con el lenguaje Basic Sinclair del Zx Spectrum.

Lo hace de dos maneras.  Desde la caja de texto o directamente haces click en la lista y vas pulsando letras.
Puedes borrar una letra o mas y empezar donde lo dejaste para variar o continuar con otra búsqueda.

Pruébalo a ver si es similar a lo que quieres.

Saludos

BusquedaEnLista.tar.gz
Descripción:  
Descargar
Nombre del archivo: BusquedaEnLista.tar.gz
Tamaño: 6.18 KB
Descargado: 58 veces
BusquedaEnLista.tar.gz
Descripción:  
Descargar
Nombre del archivo: BusquedaEnLista.tar.gz
Tamaño: 6.18 KB
Descargado: 58 veces
BusquedaEnLista.tar.gz
Descripción:  
Descargar
Nombre del archivo: BusquedaEnLista.tar.gz
Tamaño: 6.18 KB
Descargado: 58 veces

 




===================
Gambas Básico
"No es un bug, es una característica no documentada"
 
Shell - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Como Listar Recientes En Un Textbox? 
 
Shell y V3ctor:

He añadido una pequeña función al ejemplo de Shell y un nuevo listbox, para que se vea cual es la diferencia.
Creo que esto si se aproxima más a lo que busca v3ctor.

Public Sub busqueda2()
  
  Dim x As Integer
  
  ListBoxBusquedaDos.Clear()
  
  For x = 0 To lstNombres.List.Count
    If InStr(UCase$(lstNombres[x].TEXT), UCase$(txtBusqueda.text)) <> 0 Then
      ListBoxBusquedaDos.Add(lstNombres[x].TEXT)
    Endif
  Next
  
End
 


Saludos

BusquedaEnLista-0.0.2.tar.gz
Descripción: Sistema de busqueda en una lista, como hace la barra de google. 
Descargar
Nombre del archivo: BusquedaEnLista-0.0.2.tar.gz
Tamaño: 5.14 KB
Descargado: 57 veces
BusquedaEnLista-0.0.2.tar.gz
Descripción: Sistema de busqueda en una lista, como hace la barra de google. 
Descargar
Nombre del archivo: BusquedaEnLista-0.0.2.tar.gz
Tamaño: 5.14 KB
Descargado: 57 veces
BusquedaEnLista-0.0.2.tar.gz
Descripción: Sistema de busqueda en una lista, como hace la barra de google. 
Descargar
Nombre del archivo: BusquedaEnLista-0.0.2.tar.gz
Tamaño: 5.14 KB
Descargado: 57 veces

 




===================
Blog personal
Web: SoloGambas seleccion de articulos dedicados a Gambas
Visita el Curso de Gambas3 ¡¡¡Gratuito!!!
 
jsbsan - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Como Listar Recientes En Un Textbox? 
 
Hola Julio.

Pues también esta muy interesante tu modificación. ( Me suelo despistar   )
Por cierto, tuve que usar QT4, ya que al volver a ver el cambio del ejemplo, la consola me muestra esto:
(Ya me lo hizo antes con el ejemplo original).

Citar:

(BusquedaEnLista:4469): Gtk-CRITICAL **: IA__gtk_widget_get_direction: assertion 'GTK_IS_WIDGET (widget)' failed


Estoy usando Linux Mint 17 versión Mate. Con QT4 no me pasa.  
El tema que estoy usando por defecto es el que trae el sistema.

Me parece a mi que es algo parecido a lo que le paso a Shordi. Es que ahora no tengo tiempo para mucho.  

Saludos
 




===================
Gambas Básico
"No es un bug, es una característica no documentada"
 
Shell - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Como Listar Recientes En Un Textbox? 
 
algo asi es lo que quiero:
 pantallazo_listadojueces
el listbox se crearia cuando se escribe en el textbox si el textbox pierde el foco el listbox debe quedar invisible o eliminar el objeto, cuando se guardan las configuraciones en el tanteador el nombre del arbitro ingresado en el textbox se ánade a una lista que no se si guardarla en el archivo de configuración para después esa lista cargarla en el listbox que se creara cada vez que se use el textbox



' gambas class file

Private ListaJueces As ListBox
Public Sub Form_Open()

End

Public Sub TextBox1_Change()

  If Len(TextBox1.Text) > 0 Then
      ListaJueces = New ListBox(FMain) As "ListaJueces"
        
      With ListaJueces
        .Enabled = True
        .Visible = True
        .Width = TextBox1.Width
        .Height = 100
        .x = TextBox1.X
        .y = TextBox1.y + TextBox1.Height
      End With
  Else
'     jaja no se como eliminar el objeto aunque creo que antes de eliminar hay que comprobar si existe
  Endif

End

 




===================
Software libre, programación libre, vida libre es la Public function Libertad()as Invendible
Proyectos: VisorRV1960,Taller2015,Tanteador
https://sourceforge.net/u/v3ctor-full/profile/
Blog: http://novatocodegambas.blogspot.com.uy/
 
v3ctor - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Como Listar Recientes En Un Textbox? 
 
v3ctor:

Lo suyo es que crees el control, como haces aqui:

ListaJueces = New ListBox(FMain) As "ListaJueces"
With ListaJueces
.Enabled = True
.Visible = True 'para que se muestre
.Width = TextBox1.Width
.Height = 100
.x = TextBox1.X
.y = TextBox1.y + TextBox1.Height
End With



pero en fmain _open()., ya que como lo tienes puesto, crearia el control cada vez que cambie algo del textbox.

Luego le pones la propiedad .visible como true (para que se vea) o false (para que no se vea), cuando te interese
listaJueces.visible=true 'lo pongo visible cuando lo necesito
....
listaJueces.visible=false 'lo oculto cuando no lo necesito
 


Citar:

 jaja no se como eliminar el objeto aunque creo que antes de eliminar hay que comprobar si existe


Pues usando el método .delete()
listaJueces.delete()

 




===================
Blog personal
Web: SoloGambas seleccion de articulos dedicados a Gambas
Visita el Curso de Gambas3 ¡¡¡Gratuito!!!
 
jsbsan - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Como Listar Recientes En Un Textbox? 
 
Codigos complicados
y controles extras

lo que pide es un combobox con autocompletado


necesitamos un combobox y un array o una base de datos
donde guardaremos las palabras

primero al combobox le cambiamos la propiedad background a color de texbox

luego en el evento keyrelease del combobox
'borramos el list del combobox
'llenamos el list con lo que coincida entre elprincipio delarray y el combobox.text  
y un if  si   encontro entonces

'combobox.popup para que muestre la lista y el usuario la seleccione o siga escribiendo

y por ultimo para no repetir el codigo hacer todo eso usando la inherits  y crear el combobox con autocompletado

y si no  quieren algo tan complico
solo llenan el list del combobox
combobox.add("string")
y luego en el keyrelease combobox.popup
 



 
codificador - Ver perfil del usuarioEnviar mensaje privado 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Como Listar Recientes En Un Textbox? 
 
logre ingresar los nombres al archivo settings jajaj

' gambas class file

Public Nrecientes As Integer
Private ListaJueces As ListBox
Public Sub Form_Open()

Dim nombrearbitros As String
Dim contador5 As Integer
 Nrecientes = Settings["ArbitrosRecientes/cantidad", 0]
 Print Nrecientes
 
 ListaJueces = New ListBox(FMain) As "ListaJueces"
        
      With ListaJueces
        .Enabled = True
        .Visible = False
        .Width = TextBox1.Width
        .Height = 100
        .x = TextBox1.X
        .y = TextBox1.y + TextBox1.Height
      End With
      
      For contador5 = 1 To Nrecientes Step 1
        Print Settings["ArbitrosRecientes/arbitro[" & CStr(Nrecientes) & "]"]
        ListaJueces.Add(Settings["ArbitrosRecientes/arbitro[" & CStr(Nrecientes) & "]"])
        
      Next
End

Public Sub TextBox1_Change()

  If Len(TextBox1.Text) > 0 Then
     ListaJueces.Visible = True
  Else
     ListaJueces.Visible = False
  Endif

End


Public Sub Button1_Click()
Dim contador1 As Integer
Inc Nrecientes
 Settings["ArbitrosRecientes/cantidad"] = Nrecientes
 Settings["ArbitrosRecientes/arbitro[" & CStr(Nrecientes) & "]"] = TextBox1.Text

Settings.Save
TextBox1.Clear
TextBox1.SetFocus
End


ahora trabajo en como leerlos del archivo setting para agregarlos al array y despues ajustar la funsion de busqueda y coincidencia.
asi es como se ve en el archivo settings:

[ArbitrosRecientes]
cantidad=6
arbitro[1]="jose"
arbitro[2]="anival"
arbitro[3]="maria"
arbitro[4]="manuel"
arbitro[5]="jose"
arbitro[6]="lucia"

listadoJueces-0.0.1.tar.gz
Descripción:  
Descargar
Nombre del archivo: listadoJueces-0.0.1.tar.gz
Tamaño: 5.14 KB
Descargado: 64 veces
listadoJueces-0.0.1.tar.gz
Descripción:  
Descargar
Nombre del archivo: listadoJueces-0.0.1.tar.gz
Tamaño: 5.14 KB
Descargado: 64 veces
listadoJueces-0.0.1.tar.gz
Descripción:  
Descargar
Nombre del archivo: listadoJueces-0.0.1.tar.gz
Tamaño: 5.14 KB
Descargado: 64 veces

 




===================
Software libre, programación libre, vida libre es la Public function Libertad()as Invendible
Proyectos: VisorRV1960,Taller2015,Tanteador
https://sourceforge.net/u/v3ctor-full/profile/
Blog: http://novatocodegambas.blogspot.com.uy/
 
v3ctor - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Como Listar Recientes En Un Textbox? 
 
V3ctor:

Lo mismo te viene bien leerte esta entrada del curso de gambas3:
http://cursogambas.blogspot.com.es/...critura-de.html

Como veo que lo que quieres usar el archivo de configuración para guardar los arbitros... yo lo haria asi:
1) Pasas el contenido del ListaJueces  a una variable que sea array de cadenas

2) Creas una variable de cadena, y le asisgnas el contenido del array de cadena, usando el método ".Join()", y le pones un caracter separador, por ejemplo la barra vertical "|"

3) Luego guadas esa variable en el archivo de configuración.

4) Cuando tenga que leerlo, lees una cadena, que tienes que convertir en array usando split y el separador "|", y asignar los valores al listbox.


Te dejo un codigo de ejemplo.
' gambas class file

Public Sub _new()

End

Public Sub Form_Open()

  leerDatos()

End

Public Sub ButtonAddJuez_Click()

  If TextBoxNombreJuez.text = "" Then
    Message.Info("Debe de poner algun nombre a añadir")
    Return
  Endif
  ListBoxJuez.Add(TextBoxNombreJuez.text)
  guardarDatos()

End

Public Sub guardarDatos()

  Dim a As Integer
  Dim lista As New String[]

  For a = 0 To ListBoxJuez.count - 1
    lista.Add(ListBoxJuez[a].text)
  Next

  Settings["ListadoJueces"] = lista.Join("|")
  Settings.Save()

End

Public Sub leerDatos()

  Dim a As Integer
  Dim lista As New String[]

  lista = Split(Settings["ListadoJueces", ""], "|")

  For a = 0 To lista.count - 1
    ListBoxJuez.Add(lista[a])
  Next

End

Saludos

listadoList-0.0.1.tar.gz
Descripción: Ejemplo de como guardar el contenido de un listbox y luego leerlo en un archivo de configuración. 
Descargar
Nombre del archivo: listadoList-0.0.1.tar.gz
Tamaño: 4.85 KB
Descargado: 66 veces
listadoList-0.0.1.tar.gz
Descripción: Ejemplo de como guardar el contenido de un listbox y luego leerlo en un archivo de configuración. 
Descargar
Nombre del archivo: listadoList-0.0.1.tar.gz
Tamaño: 4.85 KB
Descargado: 66 veces
listadoList-0.0.1.tar.gz
Descripción: Ejemplo de como guardar el contenido de un listbox y luego leerlo en un archivo de configuración. 
Descargar
Nombre del archivo: listadoList-0.0.1.tar.gz
Tamaño: 4.85 KB
Descargado: 66 veces

 




===================
Blog personal
Web: SoloGambas seleccion de articulos dedicados a Gambas
Visita el Curso de Gambas3 ¡¡¡Gratuito!!!
 
jsbsan - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Responder citando   Descargar mensaje  
Mensaje Re: Como Listar Recientes En Un Textbox? 
 
sigo pensando...

paso 1: guardar nombres de arbitro en archivo settings   (terminado)
paso 2: cargar los nombres del archivo settings en un arrary (pendiente)
paso 3: función de búsqueda de coincidencias en el array (pendiente)
paso 4: hacer visible el listbox y cargar las coincidencias en el (pendiente)

algo así seria el esquema


trabajo en el paso dos voy logrando esto:

Public Sub CargarNombresEnArray()
  Dim contador As Integer
  Dim ListaDeNombres As New String[]
  Dim nombre As String
  contador = Settings["ArbitrosRecientes/cantidad", 0]
  Print contador
  Repeat
    ListaDeNombres.Add(Settings["ArbitrosRecientes/arbitro[" & CStr(contador) & "]"])
    Dec contador
    Print contador
  Until contador = 0
  
  For Each nombre In ListaDeNombres
    Print nombre
  Next
End

 




===================
Software libre, programación libre, vida libre es la Public function Libertad()as Invendible
Proyectos: VisorRV1960,Taller2015,Tanteador
https://sourceforge.net/u/v3ctor-full/profile/
Blog: http://novatocodegambas.blogspot.com.uy/
 
última edición por v3ctor el Lunes, 04 Agosto 2014, 18:31; editado 1 vez 
v3ctor - Ver perfil del usuarioEnviar mensaje privadoVisitar sitio web del usuario 
Volver arribaPágina inferior
Mostrar mensajes anteriores:    
 
OcultarTemas parecidos
Tema Autor Foro Respuestas último mensaje
No hay nuevos mensajes Como Incrementar Un Ip De Dentro De Un Tex... FresyMetal General 5 Jueves, 07 Abril 2011, 15:09 Ver último mensaje
jguardon
No hay nuevos mensajes Como Obtener Datos Del Textbox maickolmedina General 4 Miercoles, 13 Marzo 2013, 17:24 Ver último mensaje
datobinario
No hay nuevos mensajes Archivos Recientes.... Sugerencias viejito General 10 Domingo, 08 Noviembre 2015, 00:29 Ver último mensaje
razaAztk
No hay nuevos mensajes Como Agregar Un Caracter A Las Separacione... jousseph Aplicaciones/Fragmentos de Código 6 Jueves, 20 Abril 2017, 20:05 Ver último mensaje
jousseph
 

Publicar nuevo tema  Responder al tema  Página 1 de 3
Ir a la página 1, 2, 3  Siguiente

Usuarios navegando en este tema: 0 registrados, 0 ocultos y 1 invitado
Usuarios registrados conectados: Ninguno


 
Lista de permisos
No puede crear mensajes
No puede responder temas
No puede editar sus mensajes
No puede borrar sus mensajes
No puede votar en encuestas
No puede adjuntar archivos
Puede descargar archivos
No puede publicar eventos en el calendario



  

 

cron