Visual Basic - listbox

Life is soft - evento anual de software empresarial
   
Vista:

listbox

Publicado por francisco (2 intervenciones) el 04/02/2009 18:19:56
como puedo sacar del listbox nombres ordenados alfabeticamente y pasarlos
a un texbox o grabarlos a el disco duro sin variar el orden alfabetico
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:listbox

Publicado por Jimmy T. (134 intervenciones) el 04/02/2009 18:24:32
Haz una implementacion del metodo burbuja
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:listbox

Publicado por P3L30N2009 (701 intervenciones) el 04/02/2009 18:31:26
Qué leches de metodo burbuja, le pones la propiedad Sorted a True y lo pasas a un TextBox o archivo plano con un For... Next
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de francisco

RE:listbox

Publicado por francisco (52 intervenciones) el 04/02/2009 18:40:42
gracias pero eso lo he hecho pero me coge todos los nombres que
quiero ordenar pero no los saca del listbox y los escribe el el textbox igual
que si NO los hubiera ordenado antes con el listbox
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:listbox

Publicado por P3L30N2009 (701 intervenciones) el 04/02/2009 18:48:05
ya... ¿y cual es el código que pones?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de FRANCISCO

RE:listbox

Publicado por FRANCISCO (52 intervenciones) el 04/02/2009 18:55:47
Private Sub Timer1_Timer()
N = N + 1

For I = 1 To CUENTA
If CODIGO(I) = N Then
LISTA = LISTA + 1
ORDENO(LISTA) = TEXTO(I)

entry = TEXTO(I) ' Crea la entrada.


List1.AddItem entry ' Agrega la entrada.
TEXTO(I) = entry


Text2 = Text2 & entry & vbCrLf

End If

PERO NO ME LLENA EL TEXTBOX ORDENADO ALFABETICAMENTE
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:listbox

Publicado por P3L30N2009 (701 intervenciones) el 04/02/2009 19:10:07
No entiendo muy bien ése código (se escapa a mis pobres conocimientos) pero te pongo un ejemplo a ver si te ilumina

Private Sub Form_Load()
List1.AddItem "Pepe"
List1.AddItem "Zapata"
List1.AddItem "Antonio"
List1.AddItem "Aaron"
End Sub

Private Sub Command1_Click()
For i = 0 To List1.ListCount - 1
List1.ListIndex = i
Text1 = Text1 & List1.Text & vbNewLine
Next i
End Sub

El control ListBox tiene la propiedad Sorted = True y el TextBox MultiLine = True
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar
Imágen de perfil de FRANCISCO

RE:listbox

Publicado por FRANCISCO (52 intervenciones) el 05/02/2009 14:39:49
GRACIAS YA ME APAÑO
CON ESTO ME SOBRA
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar