Вопрос про LISTBOX

[Egor_moscow]

Доброго времени суток!

Подскажите пожалуйста как реализовать список в котором элементы можно переносить мышкой.
Ну например как плей лист в winamp'e, да и в куче других порог это есть, а вот стандартные контролы ИМХО это не поддерживают.

Заранее благодарю.

[Ennor]

Ну, если ты хочешь сделать это именно через листбокс, и листвью тебя не устраивает, но лукай на след. свойства контрола:
OLEDragMode
OLEDropMode
Краткое описание механизма OLE Drag'n'Drop я недавно давал в этом форуме, найдешь поиском. Хотя, конечно, попариться придется...

[Andrey Fedorov]

Ну, если ты хочешь сделать это именно через листбокс, и листвью тебя не устраивает,

Ну он не говорил что не устраивает...

Хотя, конечно, попариться придется...

Чего там париться? Вроде все элементарно...

[Egor_moscow]

Блин не понял
Если можно по подробнее плз.

Заране благодарю.

[tyomitch]

Держи пример без всяких ListView и OLEDrag-ов:

Код: Выделить всё

Option Explicit
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Const LB_ITEMFROMPOINT = &H1A9&
Dim SourceIndex As Long

Private Sub List1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then SourceIndex = List1.ListIndex: ReleaseCapture
End Sub

Private Sub List1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then
    Dim DestIndex As Long
    DestIndex = SendMessage(List1.hWnd, LB_ITEMFROMPOINT, 0, 65536 * (Y \ Screen.TwipsPerPixelY) + (X \ Screen.TwipsPerPixelX))
    If (SourceIndex <> DestIndex) And ((DestIndex And &HFFFF0000) = 0) Then
        If SourceIndex > DestIndex Then
            List1.AddItem List1.List(SourceIndex), DestIndex
            SourceIndex = SourceIndex + 1
        Else
            List1.AddItem List1.List(SourceIndex), DestIndex + 1
        End If
        List1.RemoveItem SourceIndex
        SourceIndex = DestIndex
        List1.ListIndex = DestIndex
    End If
End If
End Sub


[_Мика_]

ГЕНИАЛЬНО

[Sirik]

М-да... действительно гениально

[tyomitch]

Я не пойму, это подкол или похвала?

[Sirik]

Я не пойму, это подкол или похвала?

Был бы подкол, был бы такой смайл
а так... это похвала

[tyomitch]

У Мика именно такой смайл в конце, вот я и растерялся...

[Sirik]

Понятно, насчёт Мика не знаю, но от меня точна одна похвала

[A.A.Z.]

Помню, я когда-то так же skiperski сказал, так он, судя по всему, счел это за подколку...