несколько простых вопросов про ListView

[НиколайП]

пришлось перейти на контрол ListView , помогите советом если сможете.

1. что нужно сделать что бы отображался скролл
2. как перенести текст из колонки1 ,колонки2 ,колонки3 , в переменную strtext1 ,strtext2,strtext3 если в строке отмечен чекбокс (в смысле чек валуе=труе)

p.s: в яндексе искал и в поиске по форуму, выдало более 700 ссылок на темы а толком не нашёл ответы на свои вопросы...

[GSerg]

1. Заполнить его.
2. Там одна колонка.

[НиколайП]

спасибо , но
1. лист заполнен , выделяю запись и жму на стрелку "вниз" , только так могу просматривать все записи .... , а скрола всё равно нет

2. а у меня там четыре колонки ...

.....
.View = lvwReport
.ColumnHeaders.Add , "header" & 0, ""
.ColumnHeaders.Add , "header" & 1, "название"
.ColumnHeaders.Add , "header" & 2, "цена"
.ColumnHeaders.Add , "header" & 3, "код"
.........

[alibek]

2. Это ListView. Смотри свойство ListItem.SubItems().

[GSerg]

Э, так не честно... В оригинале было написано ListBox...

[НиколайП]

Э, так не честно... В оригинале было написано ListBox...

GSerg , извиняюсь , действительно было написанно ListBox, спешил на работу и не правильно написал , по той же причине некогда было написать про ошибку и пришлось просто отредактировать тему ю
GSerg извинения принимаются ?

[НиколайП]

вопросы остаются на повестке дня + ещё один вопросик:
как можно програмно задать размеры столбца ?

если вы владеете знаниниями по этим вопросам прошу поделиться , и чем подробнее - тем желательнее

[alibek]

ColumnHeaders("header0").Width = 100
На второй вопрос я уже ответил.
Первый вопрос похож на глюк.

[НиколайП]

alibek спасибо и всем остальным кто принимал участие !

но жалко что скрол всё равно не появился ....

[Ennor]

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

Me.ListView1.FlatScrollBar = False

[НиколайП]

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

Me.ListView1.FlatScrollBar = False

это я делал , фишка вот в чём:

если я делаю так

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

Private Sub Form_Resize()
ListView1.Width = Form10.Width ' это своеобразный ресайзинг  :)
End Sub

тогда у меня нет скролов , если я этот код убираю - тогда появляется и вертикальный и горизонтальный скрол ...
вот бы совместить скролы и ресайзинг - тогда было бы то что надо.

[Ennor]

Во-первых, у формы надо использовать не .Width, а .ScaleWidth, а во-вторых - после ресайза почему .Refresh не вызываешь?

[НиколайП]

извиняюсь за бестолковость , но не могу разобраться...

2. как перенести текст из колонки1 ,колонки2 ,колонки3 , в переменную strtext1 ,strtext2,strtext3 если в строке отмечен чекбокс (в смысле чек валуе=труе)

... и отмеченных строк может быть много.

2. Это ListView. Смотри свойство ListItem.SubItems().

возможно это представить в виде кода ? (в поиске не нашёл конкретный пример , а сам так и не смог разобраться ...)

[alibek]

str1 = ListView.ListItems(1).SubItems(1)

[НиколайП]

alibek а как узнать cостояние Checkboxes в строке ?

[alibek]

Нажимаешь F2, находишь ListItem и смотришь его методы.

[НиколайП]

Нажимаешь F2, находишь ListItem и смотришь его методы.

делаю так:

ListView1.ListItem(1).Checked = True

не прокатывает ...

[alibek]

А стиль списка у тебя какой? Чекбоксы разрешены?

[НиколайП]

CheckBoxes=True
View=3-lvwReport

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

[alibek]

Не знаю тогда.
Глюки.
SP на студию установлены?

[Twister]

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

ListView1.ListItem(1).Checked = True

Забыли букву S, надо так:

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

ListView1.ListItems(1).Checked = True

Проверял - все работает...

[НиколайП]

вот блин , а я сам запарился и другим мозги запарил
Спасибо ВСЕМ !