listbox
como hago para que el ususairo con el mouse pueda ordenar los datos
gracias
gracias
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.
'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.
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
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