elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Security Series.XSS. [Cross Site Scripting]


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Problema ComboBox
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Problema ComboBox  (Leído 1,875 veces)
Jareth


Desconectado Desconectado

Mensajes: 334



Ver Perfil
Problema ComboBox
« en: 18 Diciembre 2006, 21:09 pm »

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:
Código:
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)
Código:
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

~~
Ex-Staff
*
Desconectado Desconectado

Mensajes: 2.981


Ver Perfil WWW
Re: Problema ComboBox
« Respuesta #1 en: 18 Diciembre 2006, 23:19 pm »

Tienes q usar el evento addItem mira un ejemplo:

Código:
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 Desconectado

Mensajes: 334



Ver Perfil
Re: Problema ComboBox
« Respuesta #2 en: 19 Diciembre 2006, 20:13 pm »

El problema es coger los datos del txt.
Gracias.
En línea

Hans el Topo


Desconectado Desconectado

Mensajes: 1.754


"Estoy cansado de no hacer nada"


Ver Perfil WWW
Re: Problema ComboBox
« Respuesta #3 en: 19 Diciembre 2006, 20:26 pm »

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 Desconectado

Mensajes: 334



Ver Perfil
Re: Problema ComboBox
« Respuesta #4 en: 19 Diciembre 2006, 20:48 pm »

Bueno,ya lo solucioné,aqui el code:
Código:
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 Desconectado

Mensajes: 543



Ver Perfil
Re: Problema ComboBox
« Respuesta #5 en: 19 Diciembre 2006, 21:39 pm »

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

Código:
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:

Código:
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 Desconectado

Mensajes: 543



Ver Perfil
Re: Problema ComboBox
« Respuesta #6 en: 19 Diciembre 2006, 21:42 pm »

perdón me equivoque esque estaba viendo tu código y se barrio el tornillo

Código:
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.
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Duda con ComboBox [SOLUCIONADO]
Programación Visual Basic
novalida 1 3,323 Último mensaje 30 Noviembre 2010, 00:10 am
por novalida
Problema con ComboBox
Programación Visual Basic
Elemental Code 1 1,765 Último mensaje 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 Último mensaje 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 Último mensaje 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 Último mensaje 25 Octubre 2018, 11:07 am
por talisman46
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines