ListView и Drag&Drop

[Sorch]

Нужна помощь! Необходимо хватать мышкой строку в ListView и перемещать ее в этом же ListView со всеми данными вверх или вниз. Причем когда хватаю строку мышкой - меняется курсор (показывает перетаскивание), но ничего не происходит.

[Gigahard]

А что ты в событии DragDrop указываешь?

[Sorch]

OLEDragMode - manual (но пробовал и автомат, результат тот же)
OLEDropMode - manual

[Хакер]

Нда...

Короче на форме ставишь кнопку в любом месте и ListView тоже где угодно и форму тоже любых размеров, весь код формы заменяешь этим и по рабочему моему примеру должен понять как это делается

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

Private Sub Command1_Click()



ListView1.View = lvwReport
ListView1.ColumnHeaders.Add , , "Язык"
ListView1.ColumnHeaders.Add , , "Синтаксис блоков"
ListView1.ListItems.Add(, , "Java").SubItems(1) = "{ }"
ListView1.ListItems.Add(, , "VBScript").SubItems(1) = "*  End*"
ListView1.ListItems.Add(, , "Visua Basic").SubItems(1) = "* End*"
ListView1.ListItems.Add(, , "Pascal").SubItems(1) = "BEGIN END"
ListView1.ListItems.Add(, , "C++").SubItems(1) = "{ }"
ListView1.ListItems.Add(, , "QBasic").SubItems(1) = "* END*"
ListView1.OLEDragMode = ccOLEDragAutomatic
ListView1.OLEDropMode = 1
End Sub




Private Sub Form_Load()
Me.Width = 6750
Me.Height = 5415

ListView1.Height = 4110
ListView1.Width = 6390
ListView1.Top = 735
ListView1.Left = 90

Command1.Top = 75
Command1.Left = 90
Command1.Height = 570
Command1.Width = 6375
Command1.Caption = "ЗАПОЛНИТЬ LIST-VIEW"
End Sub

Private Sub ListView1_OLEDragDrop(Data As MSComctlLib.DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
Dim li As ListItem
Dim nc As Long
nc = ListView1.ListItems.Count
cSubItems = ListView1.FindItem(Data.GetData(1)).SubItems(1)
Effect = OLEDropEffectConstants.vbDropEffectMove
Set li = ListView1.ListItems.Item(1)
Set li = ListView1.ListItems.Add(Switch(y \ li.Height > nc, nc + 1, y \ li.Height < 1, 1, True, y \ li.Height), , Data.GetData(1))
li.SubItems(1) = cSubItems
End Sub


[Sorch]

Большое человеческое спасибо за пример!
А "y" - это как я понял положение курсора или нет?
при перемещении эл-та вверх все работает, а вот вниз работает не коректно почему то .... Вставил твой код к себе в программу, все работает, но у меня 4 колонки в строке. Как это реализовать?

[Sorch]

тааак ... со столбцами разобрался ....

[Хакер]

Ну вот, пока я печатал ты уже разобрался...

НУ ВОТ ТО, ЧТО БЫ Я ТЕБЕ ОТВЕТИЛ ЕСЛИ БЫ НЕТ ПОСЛЕДНИЙ ПОСТ.

Вроде бы так... Хотя писал в Блокноте, а точнее в Бреде и поэтому могут быть ошибки.

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


Private Sub ListView1_OLEDragDrop(Data As MSComctlLib.DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
Dim li As ListItem
Dim nc As Long
Dim SubItemsBuffer() As String
nc = ListView1.ListItems.Count
ReDim SubItemsBuffer(1 To ListView1.ColumnHeaders.Count)
For i = 1 To ListView1.ColumnHeaders.Count
   SubItemsBuffer(i) = ListView1.FindItem(Data.GetData(1)).SubItems(i)
next i
cSubItems = ListView1.FindItem(Data.GetData(1)).SubItems(1)
Effect = OLEDropEffectConstants.vbDropEffectMove
Set li = ListView1.ListItems.Item(1)
NewPosition = (Y \ li.Height )
If NewPosition = 0 Then NewPosition = 1
If NewPosition > nc Then NewPositon = nc
Set li = ListView1.ListItems.Add(NewPosition), , Data.GetData(1))
For i = 1 To ListView1.ColumnHeaders.Count
   Li.SubItems(i) = SubItemsBuffer(i)
next i
End Sub

Y - это У координтата места где была опущена кнопка мышки. Чтобы узнать номер строки нужно поделить этот У на высоту строки. Я немножко упростил код для нахождения новой позиции.

Про некорректности: Все некорректности получаются только из этого кода (если некорректности в перемещении т.е. номере строки)
NewPosition = (Y \ li.Height )
If NewPosition = 0 Then NewPosition = 1
If NewPosition > nc Then NewPositon = nc

Попробуй поэкспериментировать с этим кусочком, например Then NewPosition = nc + 1 или в самом начале где происходит деление +1

[Sorch]

Вот в чем косяк, привожу цифры
При перемещении снизу вверх все ОК
При перемещении сверху вниз:

Switch(Y \ li.Height > nc , nc + 1, Y \ li.Height < 1 ,1
330 \ 209 > 6 , nc + 1 , 330 \ 209 <1 ,1

и получается, что пока Y \l i.Heigh не станет > чем число строк в ListView, перемещения не будет

[Sorch]

Ура! Нашел!!!!

Set li = ListView1.ListItems.Add(Switch(Y \ li.Height > nc, nc + 1, Y \ li.Height < 1, 1, True, Y \ li.Height + 1), , Data.GetData(1))