Вопросы по ListView

[tae1980]

Использую ListView как таблицу. Встал перед вопросами:
1. Как запретить редактирование элементов?
2. Как запретить ручного изменение ширины колонок?

Поиск однозначного ответа не дал.

[Skif-F]

Алексей, рекомендую стараться не использовать дополнительные элементы управления, такие как ListView, так как при глюках они слетают в первую очередь.
Мой случай: поставил Office 2010 поверх 2007, перестали работать Формы, использующие ListView, что приводило к ошибке "Файл испорчен". После плясок с бубнами нашёл причину - слетели ссылки на библиотеки, описывающие ListView. Смирился, обошёл проблему.
Месяц спустя Office 2010 сказал, что, мол, баста, хватит, плати деньги. Убираю Office 2010, а Office 2007 ругается на отлаженные было файлы "Файл испорчен" - теперь уже на RefEdit.
Проблема решилась полной переустановкой Office 2007, но ListView у меня так и не работает.

Попробуйте запустить форму во вложении - так я создал свой вариант ListView

[tae1980]

Сообщение от Skif-F

Попробуйте запустить форму во вложении - так я создал свой вариант ListView

Это одни из причин, покоторым я не собираюсь в ближайшее время уходить с 2003.

У меня стабильно вылетает с ошибкой: 9. Subscript out of range. На строчке:

НайтиИЗаменить.TextBoxSelect (Control.Name)

При чем не сразу, 5-7 раз успеваю щелкнуть.

[Skif-F]

Ничего страшного. Просто пример я выдрал из своих программ и не все "страшные места" убрал. Ошибка вылетает в блоке:

Public Sub TextBoxSelect(Name As String)
    Dim Column As Integer, Row As Integer
    Column = Val(Mid(Name, 1, InStr(1, Name, ",") - 1))
    Row = Val(Mid(Name, InStr(1, Name, ",") + 1, Len(Name) - InStr(1, Name, ",")))
    If Row <> 0 Then    'Нулевая строка - заголовки
        Worksheets(FindResult(0, Row).Control.Text).Range(FindResult(1, Row).Control.Text).Activate
    End If
End Sub

Ошибка возникает в команде Worksheets(FindResult(0, Row).Control.Text) при обращении к листам, которых нет в книге (в моём примере номера листов берутся не из реального примера). Замените эту команду на Worksheets("Лист1").

[tae1980]

Сообщение от Skif-F

Ничего страшного.

Понятно. Спасибо. Буду разбираться с этим.

[tae1980]

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