Список с колонками. Хэлп!!!

[Death!!!]

Народ, подскажите, плиз...
Нужен контрол (хотя бы название подскажите). Требуется создать список с разделителями (Напр.: имя, размер, и т.д., как в Тотале). К примеру, такой же, как Пуск/Программы/Стандартные/Администрирование/Службы (справа такой список). Такой же список есть в редакторе реестра.
Заранее пасиб.

[ACiD]

DataGrid

[dr.MIG]

ListView

[Денис]

ListView

[Хакер]

ListView

[Денис]

Найдешь его, когда подключишь в компонентах, как указано на картинке. Потом, когда забросишь его на форму, установи ему свойство View = Report и получишь нужный контрол. Там надо будет добавлять в него записи (посмотришь его методы по F2)

[dr.MIG]

Это было что-то типа голосования, где большинством голосов победил ListView?

[dr.MIG]

Это было что-то типа голосования, где большинством голосов победил ListView?

[dr.MIG]

Это было что-то типа голосования, где большинством голосов победил ListView?

[pronto]

Подскажите, пожалуйста, как заставить ListView выделять строку целиком? С контролом из набора Windows Common Controls 6.0 (SP6) такой проблемы нет, но он не поддерживает стиль XP...

[Хакер]

Установи ему стиль LVS_EX_FULLROWSELECT.

[pronto]

Докопался до
http://msdn.microsoft.com/en-us/library/bb774732(VS.85).aspx, но так и не нашел числовых значений констант LVM_SETEXTENDEDLISTVIEWSTYLE, LVS_EX_FULLROWSELECT и остальных

[Antonariy]

Искать надо так.

[Хакер]

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

Public Const LVM_SETEXTENDEDLISTVIEWSTYLE As Long = LVM_FIRST + 54
Public Const LVM_GETEXTENDEDLISTVIEWSTYLE As Long = LVM_FIRST + 55

Public Const LVS_EX_GRIDLINES        As Long = &H1
Public Const LVS_EX_SUBITEMIMAGES    As Long = &H2
Public Const LVS_EX_CHECKBOXES       As Long = &H4
Public Const LVS_EX_TRACKSELECT      As Long = &H8
Public Const LVS_EX_HEADERDRAGDROP   As Long = &H10
Public Const LVS_EX_FULLROWSELECT    As Long = &H20

[pronto]

Работает, но кривовато

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

Делал так
   Dim xStyle As Long ', r As Long
   
   xStyle = SendMessageLong(lvwHandle, LVM_GETEXTENDEDLISTVIEWSTYLE, 0&, 0&)

   xStyle = xStyle Or LVS_EX_FULLROWSELECT

   ApplyLvwStyle = SendMessageLong(lvwHandle, LVM_SETEXTENDEDLISTVIEWSTYLE, 0&, xStyle)

и вот, что получается (см. 1.png)

А в откомпилированном варианте отрисовывается прямо, но появляются стили LVS_EX_TRACKSELECT и LVS_EX_UNDERLINEHOT

[Хакер]

Я не знаю, каким образом был получен такой эффект (смотри корректность декларации SendMessageLong).

Вот кусочек кода из одного моего проекта, и этот кусочек точно работал:

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

lHTTPGridBaseExtendedStyle = SendMessage(.HTTPGridBase.hwnd, LVM_GETEXTENDEDLISTVIEWSTYLE, 0, ByVal 0&)
SendMessage .HTTPGridBase.hwnd, LVM_SETEXTENDEDLISTVIEWSTYLE, 0, ByVal CLng(lHTTPGridBaseExtendedStyle Or LVS_EX_FULLROWSELECT Or LVS_EX_HEADERDRAGDROP)

[pronto]

Огромное Спасибо! Заработало!
Действительно, ошибка была в объявлении SendMessageLong...

[pronto]

Огромное Спасибо! Заработало!
Действительно, ошибка была в объявлении SendMessageLong...
Правда, еще исправил сам вызов функции на предложенный (еще поэкспериментирую)...

[Хакер]

Предложенный ничем не лучше и не хуже. Целиком дело вкуса.

Мудрый компилятор всё-равно все три возможных варианта преобразует в один, который соответствует варианту, исключающему использование промежуточной переменной.

[pronto]

Однако, эсперимент показал, что строка

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

SendMessage(lvwHandle, LVM_SETEXTENDEDLISTVIEWSTYLE, 0, ByVal xStyle&)

очень чувствительна к наличию ByVal...

[alibek]

Это зависит только от декларации.