вопросы по ListView

[Sun07]

1. Скажите пожалуйста, при lvw1.ListItems.Add объект всегда закрепляется за первой добавленной колонкой (lvw1.View = lvwReport) или можно как-то по ключу колонки задать колонку, где будет отображаться имя объекта? Или же всегда надо первой добавлять колонку, отображающую имена объектов, а потом переставлять их местами?

2. Как при присвоении значений SubItems(Index) указывать не индекс, а Key колонки?

[Alexanbar]

1. Скажите пожалуйста, при lvw1.ListItems.Add объект всегда закрепляется за первой добавленной колонкой (lvw1.View = lvwReport) или можно как-то по ключу колонки задать колонку, где будет отображаться имя объекта? Или же всегда надо первой добавлять колонку, отображающую имена объектов, а потом переставлять их местами?

lvw1.ListItems.Add index,key,text

text - в первой колонке, но позицию колонки можно менять.

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

Listview1.Columnheaders(1).position=4


2. Как при присвоении значений SubItems(Index) указывать не индекс, а Key колонки?

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

listview1.listitems(1). subitems(listview1.columnheaders("ключ колонки").Index)="hhjhjhj"


[Dmitriy2003]

А мне кажется от отсутсвия ключей ничего не меняется

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


Private Sub Form_Load()
    '
    'Microsoft Windows Common Controls 6.0 (SP6)
    'ListView1 = ListView Control
    '
    Dim aAtr(3) As String: aAtr(0) = "Nummer": aAtr(1) = "Name": aAtr(2) = "Vorname": aAtr(3) = "Telefon"
   
    Dim c As ColumnHeader
    Dim l As ListItem
    Dim s As ListSubItem
    Dim i As Integer
    '
    For i = 0 To UBound(aAtr, 1)
        Set c = Me.ListView1.ColumnHeaders.Add(, , aAtr(i))
    Next i
    '
    For i = 1 To 15
        Set l = Me.ListView1.ListItems.Add(, "RI-" & CStr(i), CStr(i))
        Set s = l.ListSubItems.Add(, "SI1-" & CStr(i), "SubItem1-Item-" & CStr(i))
        Set s = l.ListSubItems.Add(, "SI2-" & CStr(i), "SubItem2-Item-" & CStr(i))
        l.SubItems(3) = "xxx-xxx-xx" & CStr(i)
    Next i
    '
End Sub


[Sun07]

Не пойму, почему на lvw1.ListItems(1).ListSubItems(1).Text = "5" ругается Index out of bounds? lvw1.ListItems(1).SubItems(1)="5" работает...

[Alexanbar]

Не пойму, почему на lvw1.ListItems(1).ListSubItems(1).Text = "5" ругается Index out of bounds? lvw1.ListItems(1).SubItems(1)="5" работает...

Потому, что Listsubitems(i) работает только при наличии Subitems(i).

Нужно хотя бы Subitems(i)=""

[Dmitriy2003]

Alexanbar

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


Private Sub ListView1_DblClick()
    '
    Dim c As ColumnHeader
    Dim l As ListItem
    Dim s As ListSubItem
    Dim i As Integer
    '
    For Each c In Me.ListView1.ColumnHeaders
        '
        If c.Text = "Telefon" Then i = c.Index
        '
    Next
    '
    Set l = Me.ListView1.SelectedItem
    Set s = l.ListSubItems(i - 1)   'Es ist so schlimm
    '
    s.Text = "Snikers!"
    '
End Sub


[Sun07]

Спасибо, работает. А как убрать отображение пустой иконки перед текстом объекта при lvw1.ListItems.Add (но иконки используются в ListSubItems(i).ReportIcon)?

[Dmitriy2003]

И почему тебя такие вопросы мучают!

Мне кажется там просто пустое место зарезервированно если поключить ImageList

1. Или делаеш контрол с API что геморно
2. Или скрываеш первый столбец, а данные вносиш в ListSubItem

Предвижу ответ некоторых тов. (флаг им в руки а точнее API)

p.s. Лучше поставить иконку, или вообще без них.
Компромиссов в VB хватает