Вопросы по LISTVIEW

[Лексей]

Помогите плиз!
Есть вот такие вопросы:
1. Можно ли как то отобразить в listview данные типа boolean в виде checkbox?
2. Как сделать так, чтоб пользователь мог править данные в listview (тот же checkbox)?
3. Как выделять не одно поле в многоколоночном списке, а сразу всю строку (на ListView.fullrowselect ругается и не признает такого свойства)?
4. И еще не дошло - как при добавлении строк в список, ключевой элемент добавлять во второй столбец, ну а остальные в 1, в 3 и т.д.?

Заранее огромнейшее спасибище всем за помощь!!!

[SHURUP]

1) - ListView1.Checkboxes = True
3)- ListView1.FullRowSelect = True (у меня не ругается)

4) - уточни

[Лексей]

lstDoc.FullRowSelect = True
lstDoc.Checkboxes = True

выдает ошибку компиляции - не признает такого свойства!
Что ж делать то ?

А как на счет четверотго вопроса?

[SHURUP]

Выложи исходник - посмотрю!
Что ты имеешь в виду под "ключевой элемент добавлять во второй столбец" ?

[SHURUP]

зы: а ты случайно не спутал ListBox c ListView-ом?
Очень признаки похожи!

[Лексей]

Вот оно

[Лексей]

не, в том то и дело, что ListView

[SHURUP]

А! дык ты используеш Microsof Сommon Сontrol 5?
У меня на MCC6 - работает аж пищит! Чего и вам желаю сделать!

[Лексей]

Библиотечку MCC6 не скинешь? плиз!

[Лексей]

Хотя уже нашел у себя, спасибо за помощь!!! Реально!

А как на счет вопроса 4?

[SHURUP]

Что ты имеешь в виду под "ключевой элемент добавлять во второй столбец" ?

[Лексей]

Ну в смысле как сделать чтоб индексное значение было во второй колонке, а не в первой?

[Лексей]

Кстати, какое событие соответствует постановке галочки на чекбоксе (отлично от простого выбора строки)?

И еще, как узнать есть ли галка в чекбоксе некоторых строк?

Дорвался - пристал таки по полноц программе!!! Извините конечно, но ведь реально помогаете!

[SHURUP]

Кстати, какое событие соответствует постановке галочки на чекбоксе (отлично от простого выбора строки)?
И еще, как узнать есть ли галка в чекбоксе некоторых строк?

Вот примерчик по єтому поводу:

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

Private Sub ListView1_ItemCheck(ByVal Item As MSComctlLib.ListItem)
    If Item.Checked = True Then
        MsgBox "Галочка на" & Item.Index & "-м элементе поставлена"
    Else: MsgBox "Галочка с" & Item.Index & "-го элемента снята"
    End If
End Sub

[Лексей]

index - это что именно (т.е. какое значение в нем содержится)?

И как узнать у каких элементов стоит галка в чекбоксе если у списка стоит мультиселект?

[GM]

Вот так:

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

msgbox Listview1.listitems(index).checked


[SHURUP]

index - это что именно (т.е. какое значение в нем содержится)?

это номер записи! Иногда удобно использовать .key - тоже идентификатор записи, но может быть текстом

И как узнать у каких элементов стоит галка в чекбоксе если у списка стоит мультиселект?

мультиселект к чекбоксам не имеет никакого отношения!
При включеном мультиселекте можно выделить несколько записей одновременно мышью (как файлы в Проводнике). А поставить "галки" на нескольких записях можно и пры выключеном мультииселекте.

Примерчик:
Нужен ListView1 и кнопка Command1

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

Private Sub Command1_Click()
Dim ittem As ListItem
    For Each ittem In ListView1.ListItems
    ' перебираем все ListItem в ListView1
        With ittem
            If .Checked Then .SubItems(1) = "Да" Else .SubItems(1) = "Нет"
            'если он помечен "галкой" - записываем  в соотв.столбец
            If .Selected Then .SubItems(2) = "Да" Else: .SubItems(2) = "Нет"
            'если он выделен - записываем "да" в соотв.столбец
        End With
    Next
End Sub

Private Sub Form_Load()
    With ListView1
'подготовка ListView1
        .MultiSelect = True
        .Checkboxes = True
        .View = lvwReport
        .FullRowSelect = True
        .HideSelection = False
'Создание "шапки"
        With .ColumnHeaders
            .Clear
            .Add.Text = "Index"
            .Add.Text = "Check"
            .Add.Text = "Select"
        End With
'Создание элементов
        For i = 1 To 10
            With .ListItems.Add
                .Text = .Index
            End With
        Next
    End With
End Sub

[Лексей]

Спасибище огромное!!!

Вот только столкнудся с проблемой другого рода:
табдицы mdb файла, из которых формируется список (запрос
"SELECT DISTINCTROW tblDoc.DCode, tblDoc.DName, tblDoc.ISID, tblDoc.DChoose, tblDoc.DPage FROM tblDoc INNER JOIN tblRefer ON tblDoc.DCode=tblRefer.DCode;")
содержит одна около 30000 а другая около 70000 записей, соответственно открытие формы даже на 4 пеньке с 500 пямятью занимает около 1 минуты.

Может есть какие соображения на счет повцышения быстродействия (может запрос как переиначить или список формировать по другому, но на сколько я понимаю, дело в формировании рекордсета).
Возможно лт как то организовать список так, чтоб формировалось сначала строк эдак 50 а остальнок по мере прокрутки списка - будет толк то?

[alibek]

Эта фича называется "виртуальный ListView". Ускорить загрузку она может, но без API ты ею не воспользуешься.

[Bethy]

4. И еще не дошло - как при добавлении строк в список, ключевой элемент добавлять во второй столбец, ну а остальные в 1, в 3 и т.д.?

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

Dim lst As ListItem
Set lst = lw.ListItems.Add(Text:="не ключевое значение")
lst.SubItems(1) = "ключевое значение"
lst.SubItems(2) = "не ключевое значение" ... и т. д.


index - это что именно (т.е. какое значение в нем содержится)?
И как узнать у каких элементов стоит галка в чекбоксе если у списка стоит мультиселект?

index - нужно, когда создаешь массив элементов управления.

Узнать где стоит галка вне зависимости от значения свойства мультиселект:

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

for i=1 to ListView.ListItems.Count
    If ListView.ListItems.Item(i).Checked = True Then
       'отмечено
    else
       'не отмечено
    end if
next i


[SHURUP]

Узнать где стоит галка вне зависимости от значения свойства мультиселект:

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

for i=1 to ListView.ListItems.Count
    If ListView.ListItems.Item(i).Checked = True Then
       'отмечено
    else
       'не отмечено
    end if
next i


Все-же через "for each" по моим подсчетам - быстрее . Но если нужно удалять отмеченые я записи - тогда и один и другой алгоритм приведет к ошибке.