ListView с флажками

[Wolf-X]

Помогите, плиззз. У меня такая проблема. ListView(с чекбоксами) отображает результаты поиска по базе данных. После этого я щелкаю по флажкам и тем самым выбираю некоторые строки, на основе которых будет строится отчет . Как мне узнать какие флажки нажаты?
Буду очень признателен за помощь.

[tyomitch]

Те, у которых истинно ListView1.ListItems(Индекс).Checked

[Wolf-X]

Tyomich,

Спасибо огромное!! а то почему акцес не отображает в окне подсказки все его свойства и колекции.

[Wolf-X]

А можно ли сделать так чтобы мышью можно было перетаскивать строки и тем самым менять их местами?

[tyomitch]

Да. Выставь OLEDragMode в 1 - ccOLEDragAutomatic, OLEDropMode в 1 - ccOLEDropManual, допиши в форму код:

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

Private Sub ListView1_OLEDragDrop(Data As MSComctlLib.DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
Dim Target As MSComctlLib.ListItem, TargetIndex As Long
    Set Target = ListView1.HitTest(x, y)
    If Target Is Nothing Then TargetIndex = ListView1.ListItems.Count + 1 Else TargetIndex = Target.Index
    ListView1.ListItems.Add TargetIndex, , Data.GetData(1)
    Effect = vbDropEffectMove
End Sub


[Wolf-X]

Tyomich

Я написал следующее

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

Private Sub lstFind_OLEDragDrop(Data As Object, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
Dim Target As MSComctlLib.ListItem, TargetIndex As Long
    Set Target = lstFind.HitTest(x, y)
    If Target Is Nothing Then TargetIndex = lstFind.ListItems.Count + 1 Else TargetIndex = Target.Index
    lstFind.ListItems.Add TargetIndex, , Data.GetData(1)

lstFind.ListItems(TargetIndex).SubItems(1) = Data.GetData(1)
Effect = 2
   
   
End Sub


он работает, но при перемещении, значения сабитемов не переносятся. Я уже шаманил всяко разно, но ничего не вышло. Кстати, ежели я пишу в описании процедуры Data As MSComctlLib.DataObject то при загрузке он говорит что "Procedure declaratioin does not mach description of event or procedure having same name" . И он почему то не знает системную константу vbDropEffectMove. Мож где ссылочку поставить надо?

[tyomitch]

vbDropEffectMove определена в енуме VBRUN.OLEDropEffectConstants - он у тебя не может быть не подключен. Наверное, опечатался в названии.

Субитемы действительно не переносятся ;-(
Придётся в отдельном массиве хранить соответствие итемов и субитемов, и при переносе воссоздавать их.