listview проблема с сабами

[petroff]

Не могу понять как добавлять subitemi в listview( style-report)
Добавляю код

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

ListView1.ListItems.Add , "edison","edison"
ListView1.ListItems.Add("edison").SubItems(1)= "thomas"
ListView1.ListItems.Add("edison").SubItems(2) = "tho"

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

[alibek]

Код не имеет смысла.
Сабитемы надо добавлять через коллекцию ListSubItems, либо обращением к индексированному свойству SubItems.
Делать ListItems.Add каждый раз не надо.

[petroff]

Ой!Все правильно вот так не работает

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

ListView1.ListItems.Add , "edison","edison"
ListView1.ListItems.Add("edison").SubItems(1)= "thomas"
ListView1.ListItems.Add("edison").SubItems(2) = "tho"

[alibek]

Дубль два.
Делать ListItems.Add каждый раз не надо.

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

With ListView1.ListItems.Add(Key:="edison")
  .Text = "edison"
  .SubItems(1) = "thomas"
  .SubItems(2) = "tho"
End With

[petroff]

Спасибо с этим уже разобрались.
А не подскажите как програмно выделить первый итем?

[alibek]

Свойство итема Selected. Либо свойство контрола SelectedItem.

[petroff]

ListView1.ListItems.Item(1).Selected = True
Ошибок не выдает но первый итем не выделяется (а должен быть выделен как будто на кликнули мышью)

[petroff]

Сорри все работает, не там поставил просто
Но работает как то странно, итем выбирается но не выделяется... то есть не видно что он выбран, а надо бы что бы он был выделен

[RayShade]

ListView.FullRowSelect тебя спасет.

[petroff]

ListView1.FullRowSelect = True
Включено с самого начала
Как бы сделать что бы при Форм_лоад выделялся первый итем визуально?
listview1.listitem(1).selected=true
Виделяет его, но визуально этого не видно

[alibek]

Не делай выбор итемов скрытым.

[RayShade]

Точно! Хотел же еще дописать про HideSelection

[petroff]

Ок спасибо