listbox

puni
04 de Mayo del 2004
como hago para que el ususairo con el mouse pueda ordenar los datos
gracias

en?
04 de Mayo del 2004
yo lo haría con ListView en lugar de con un ListBox, pero mira, te pongo para que lo hagas en un ListBox que MultiSelect sea None, y al menos coges el concepto:

'Variable a nivel de módulo en el Form
Dim Seleccionado As Integer

'En el List1_MouseDown
Seleccionado = List1.ListIndex

'En el List1_MouseMove
Dim Elemento As String

If Seleccionado = List1.ListIndex Then Exit Sub
If Button = vbLeftButton Then
Elemento=List1.List(Seleccionado)
List1.List(Seleccionado)=List1.List(List1.ListIndex)
List1.List(List1.ListIndex)=Elemento
Seleccionado=List1.ListIndex
End If



Saludos.

puni
04 de Mayo del 2004
ante todo quiero agradecerte tu respuesta
pero no logro que haga lo que quiero
que arrastrando el mouse con el boton apretado pueda mover los items que tiene el listbox
para eso necesito cambiarlo a lisview como dices?
ese codigo que me mandaste deberia hacer eso y a mi no me lo hace?
no tengo que usar los x e y que tiene como posiciones?
disculpa pero que es la primera vez que lo hago y no puedo solucionarlo
gracias nuevamente

lorrich
04 de Mayo del 2004
Yo no entendi que es lo que quieres hacer, si lo explicas un poco mejor a lo mejor te puedo echar un cable.

Saludos.