Sistema: LinuxMint 17
Gambas: 3.6.2
¿Como se puede hacer el desplegable equivalente a los de los aeropuertos en las paginas web?
Supongamos el caso de dos formas de meter datos, una mediante un ComboBox y otra mediante un TextBox
Para el caso ComboBox le cargo la lista desde un resultado:
Dim resultado As Result
Dim captura As Integer
Dim myTexto As String
resultado = Mconn.dbconn.Exec("SELECT DISTINCT MYFIELD frrom MYTABLE")
resultado.MoveFirst
captura = resultado.Count
i = 1
While i <= captura
myTexto = resultado[MYFIELD]
If myTexto <> "" Then
cbx.Add(myTexto)
cbx.Refresh()
resultado.MoveNext
Dec (captura)
Wend
cbx.sorted = True
cbx.ReadOnly = True
Endif
Y luego elijo el valor deseado y ya esta. El problema surge cuando son muchos valores en la lista (como la lista de los aeropuertos del mundo) y esta se hace dificil de manejar con el metodo antes descripto.
Para el caso del TextBox:
¿Como hacer para que se despegue debajo del un TextBox (o otro control similar tal vez) la misma lista del ComboBox, pero filtrada segun la letras que se vayan escribiendo en el TextBox?
Ademas ¿Como hacer para que luego que aparesca la lista manejable, seleccionar uno de los items de la misma y pasarlos al TextBox (o similar) ?
Muchas gracias de antemano.
Un cordial saludo.
Albacete
