Portal    Foro    Buscar    FAQ    Registrarse    Conectarse


Publicar nuevo tema  Responder al tema 
Página 1 de 1
 
 
Mejorar El Control ListBox
Autor Mensaje
Responder citando   Descargar mensaje  
Mensaje Mejorar El Control ListBox 
 
Buenas!.

¿ Cómo no se ha creado una versión mejor ?. No parece difícil de hacer algunas cosas.

Tal como buscar elementos que comiencen o que contengan una letra.

Me extraña que nadie lo haya propuesto a Benoît.  

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: Mejorar El Control ListBox 
 
Buenas!

He encontrado un error extraño, pero no sé si es del ListBox.
Estoy buscando palabras que comienzan con una letra dentro del listbox y que se situé en la primera coincidencia.

Según si no hay elementos en la lista, muestro un mensaje y si no se encuentra igual.
Pero buscando una letra que no comienza ninguno de los elementos de la lista, obtuve este error:

Citar:

QXcbConnection: XCB error: 3 (BadWindow), sequence: 928, resource id: 11914292, major code: 40 (TranslateCoords), minor code: 0


Os subo el código. Intentar pulsar una letra que no comience ninguno de los nombres, por ejemplo la "z", por decir uno.
O probar primero a encontrar uno que exista en lista y luego con uno que no exista, creo que es esto.

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: Mejorar El Control ListBox 
 
Cuestión:

El método Find devuelve -1 si no se encuentra el elemento, ¿ no ?.
Entonces yo podría hacer esto:

If indice < 0 Then
      Message.Info("No se ha encontrado")
    Else
      ListBox1.Index = indice
    Endif
 


El efecto es que si no encuentra elemento, se sitúa en el primero. Ana. El elemento 0.
Esto lo causa el for each al buscarlo, no aparece y el valor devuelto por la función Buscarenlista es 0.

Si añado en la función Buscarenlista que devuelva -1...

Public Function Buscarenlista(letras As String) As Integer
  
  Dim palabra As String
  
  For Each palabra In ListBox1.List
    If UCase(Left(letras, 1)) = Left(palabra, 1) Then Return ListBox1.Find(palabra)
  Next
  Return -1
  
End
 


No sé como habrá salido el error anteriormente...

Que pasen buena tarde.

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
Mostrar mensajes anteriores:    
 
Ocultar¡Este tema fue útil?

 

Elegir valoración:                       

Media de valoración Valoración mínima Valoración máxima Número de valoraciones
0.00 0 0 0
 
OcultarTemas parecidos
Tema Autor Foro Respuestas último mensaje
No hay nuevos mensajes Evento Click En El Control ListBox datobinario General 14 Miercoles, 13 Marzo 2013, 23:12 Ver último mensaje
datobinario
No hay nuevos mensajes Que Puedo Mejorar De Mi Proyecto kexxya Aplicaciones/Fragmentos de Código 8 Martes, 01 May 2012, 23:13 Ver último mensaje
arubioc
No hay nuevos mensajes Sugerencia Para Mejorar El Componente Date... v3ctor General 0 Martes, 13 Enero 2015, 19:45 Ver último mensaje
v3ctor
No hay nuevos mensajes Ayudemos A Mejorar La Posición De Gambas3... v3ctor General 2 Martes, 29 Enero 2019, 16:02 Ver último mensaje
v3ctor
 

Publicar nuevo tema  Responder al tema  Página 1 de 1
 

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
No puede descargar archivos
No puede publicar eventos en el calendario