| Вопрос: ListView | Добавлено: 18.03.08 15:31 |
Автор вопроса:  mrphn
|
|
Помогите кодом/советом по написанию контрола на основе ListView (обязательно из версии ms common controls 5.0).
Задача: 1) При перемещении индекса, выделялась вся строка, а не только элемент первой колонки. 2) При клике на элементе в любой строке появлялось текстовое поле для редактирования этой записи, а не только в первой колонке. Буду признателен, если поможете с кодом. |
| Ответы | Всего ответов: 4 |
|
Номер ответа: 1 Автор ответа:  Winand Вопросов: 87 Ответов: 2795 |
Web-сайт: Профиль | | #1 | Добавлено: 18.03.08 17:37 |
| 1) LVS_EX_FULLROWSELECT ' = 32 | ||
|
Номер ответа: 2 Автор ответа: mrphn Вопросов: 5 Ответов: 12 |
Профиль | | #2 | Добавлено: 19.03.08 21:14 |
| Не густо | ||
|
Номер ответа: 3 Автор ответа: WinandВопросов: 87 Ответов: 2795 |
Web-сайт: Профиль | | #3 | Добавлено: 20.03.08 00:36 |
|
Public Property Let FullRowSelect(ByVal bState As Boolean)
If bState Then Call SetLVStyle(True, LVS_EX_FULLROWSELECT, cNull) Else Call SetLVStyle(True, cNull, LVS_EX_FULLROWSELECT) End If End Property Private Sub SetLVStyle(ByVal SetStyleEx As Boolean, Optional ByVal lAddStyle As Long = cNull, Optional ByVal lDelStyle As Long = cNull) Dim tStyle As Long If SetStyleEx Then tStyle = SendMessage(hListView, LVM_SETEXTENDEDLISTVIEWSTYLE, cNull, ByVal cNull) Else tStyle = GetWindowLong(hListView, IIf(SetStyleEx, GWL_EXSTYLE, GWL_STYLE)) End If tStyle = tStyle And Not lDelStyle tStyle = tStyle Or lAddStyle If SetStyleEx Then Call SendMessage(hListView, LVM_SETEXTENDEDLISTVIEWSTYLE, cNull, ByVal tStyle) Else Call SetWindowLong(hListView, IIf(SetStyleEx, GWL_EXSTYLE, GWL_STYLE), tStyle) End If End Sub |
||
|
Номер ответа: 4 Автор ответа: WinandВопросов: 87 Ответов: 2795 |
Web-сайт: Профиль | | #4 | Добавлено: 20.03.08 00:37 |
| hListView - хендл контрола | ||
Страница: 1 |