Autor
|
Tema: Problema ComboBox (Leído 1,875 veces)
|
Jareth
Desconectado
Mensajes: 334
|
Hola,quiero llenar un combobox,con el texto que tenga en un archivo .txt.Pero solo quiero que se cojan 10 de las palabras del texto,el texto se llena con lo que se introduce en el combobox,es decir un historial,que la palabra que metemos,se mete en el txt,y luego,nos aparezca en el combobox,como que se ha buscado. aqui el code: Dim cadena() As String Dim i As Byte Open App.Path & "\log.txt" For Input As #1 For i = 1 To 10 Line Input #1, cadena(i) Next i Close #1 Combo1.AddItem cadena(i)
Open App.Path & "\log.txt" For Append As #1 Print #1, Combo1.Text Close #1 Bueno,lo de eliminar o sobreescribir,lo sé,pero lo de llenar el combobox no.
|
|
|
En línea
|
|
|
|
~~
|
Tienes q usar el evento addItem mira un ejemplo: With Combo1 .AddItem "Carlos" .AddItem "Pedro" .AddItem "Carolina" .AddItem "Mariano" .AddItem "Martin" .AddItem "Laura" End With Ahora con un For lo llenas con los de tu archivo de texto y ya esta 1S4ludo
|
|
|
En línea
|
|
|
|
Jareth
Desconectado
Mensajes: 334
|
El problema es coger los datos del txt. Gracias.
|
|
|
En línea
|
|
|
|
Hans el Topo
Desconectado
Mensajes: 1.754
"Estoy cansado de no hacer nada"
|
El problema es coger los datos del txt. Gracias.
esta mil millones de veces explicado por el foro dale al botón de buscar que te saldran cientos de ejemplos xD
|
|
|
En línea
|
|
|
|
Jareth
Desconectado
Mensajes: 334
|
Bueno,ya lo solucioné,aqui el code: Dim linea As String, col() As String Dim i As Byte Data1.DatabaseName = App.Path & "\lib.mdb" Data1.RecordSource = "tabla2" Open App.Path & "\log.txt" For Input As #1
While Not EOF(1) Line Input #1, linea
For i = 1 To 1 Combo1.AddItem (linea) Ahora lo que quiero,es que al escribir,te salga abajo una palabra ya buscada,parecida,como google,o cuando escribes una web,te sale las que has visto y que se parecen. Gracias.
|
|
« Última modificación: 19 Diciembre 2006, 20:55 pm por Jareth »
|
En línea
|
|
|
|
CeLaYa
Desconectado
Mensajes: 543
|
pues lo que se me ocurre esque uses un textbox y un List, cuando tengas el enfoque del text haces visible el list y cuando lo pierda ocultas otra vez el list Private Sub Text1_GotFocus() List1.Visible = True List1.Top = Text1.Top + Text1.Height End Sub
Private Sub Text1_LostFocus() List1.Visible = False End Sub
para que te vaya haciendo una lista de acuerdo a lo que escribas en el textbox podrias hacer un filtrado: private sub Text1_Change() Data1.DatabaseName = App.Path & "\lib.mdb" Data1.RecordSource = "SELECT * FROM tabla2 WHERE Campo LIKE '" & text1.text & "*' ORDER BY Campo ASC;" data1.refresh
While Not EOF(1) list1.additem trim(tb.Field(0)) data1.recordset.MoveNext wend end sub
espero te sirva de algo
|
|
|
En línea
|
"La soledad es el elemento de los grandes talentos". Cristina de Suecia (1626-1689) Reina de Suecia.
|
|
|
CeLaYa
Desconectado
Mensajes: 543
|
perdón me equivoque esque estaba viendo tu código y se barrio el tornillo private sub Text1_Change() Data1.DatabaseName = App.Path & "\lib.mdb" Data1.RecordSource = "SELECT * FROM tabla2 WHERE Campo LIKE '" & text1.text & "*' ORDER BY Campo ASC;" data1.refresh
While Not data1.Recordset.Eof list1.additem trim(tb.Field(0)) data1.recordset.MoveNext wend end sub
|
|
|
En línea
|
"La soledad es el elemento de los grandes talentos". Cristina de Suecia (1626-1689) Reina de Suecia.
|
|
|
|
Mensajes similares |
|
Asunto |
Iniciado por |
Respuestas |
Vistas |
Último mensaje |
|
|
Duda con ComboBox [SOLUCIONADO]
Programación Visual Basic
|
novalida
|
1
|
3,323
|
30 Noviembre 2010, 00:10 am
por novalida
|
|
|
Problema con ComboBox
Programación Visual Basic
|
Elemental Code
|
1
|
1,765
|
14 Octubre 2012, 00:39 am
por raul338
|
|
|
Problema con selectedIndex de un combobox en una consulta
Programación Visual Basic
|
Legnak
|
0
|
1,399
|
4 Enero 2014, 08:32 am
por Legnak
|
|
|
[VB.Net] Problema con ComboBox y Button
.NET (C#, VB.NET, ASP)
|
albyta ñurinda
|
1
|
1,997
|
31 Octubre 2014, 17:36 pm
por Eleкtro
|
|
|
Problema incluyendo un Combobox en un DataGridView.
.NET (C#, VB.NET, ASP)
|
talisman46
|
0
|
2,393
|
25 Octubre 2018, 11:07 am
por talisman46
|
|