Как через SendMessage выделить конкретную строку в ListView?

[kibernetics]

Добрый день!
Как через SendMessage выделить нужную строку в пользовательском ListView?
ListView.ViewMode = vmDetails
Если кто вспомнит - подскажите пожалуйста.

[kibernetics]

Так, нашёл одну конструкцию:

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

'in module
    Private Type LV_ITEM
       Mask As Long
       iItem As Long
       iSubItem As Long
       State As Long
       stateMask As Long
       pszText As String
       cchTextMax As Long
       iImage As Long
       lParam As Long
       iIndent As Long
    End Type
   
    Private Const LVM_FIRST As Long = &H1000
    Private Const LVM_GETTOPINDEX As Long = (LVM_FIRST + 39)
    Private Const LVM_GETCOUNTPERPAGE As Long = (LVM_FIRST + 40)
    Private Const LVM_SETITEMSTATE As Long = (LVM_FIRST + 43)
    Private Const LVIS_FOCUSED As Long = &H1
    Private Const LVIS_SELECTED As Long = &H2
    Private Const LVIF_STATE As Long = &H8

'in procedure
        LV
            .Mask = LVIF_STATE
            .State = True
            .stateMask = LVIS_SELECTED Or LVIS_FOCUSED
        End With
        Call SendMessage(.Hwnd, LVM_SETITEMSTATE, iIndex, LV)

теперь выделяет строку в ListView, но в режиме как бы ghost, т.е. не синяя такая выделенная строка, а серенькая, едва заметная. Как обозначить, чтобы синим выделяло, как будто пользователь кликнул?

[iGrok]

Могу ошибаться, но по-моему это вопрос наличия фокуса на LV. Попробуй SetFocus на него.

[kibernetics]

Могу ошибаться, но по-моему это вопрос наличия фокуса на LV. Попробуй SetFocus на него.

тоже так показалось,
попробовал Me.Controls("myLvw").SetFocus, уже не помню правда что за ошибка, то ли свойства такого нет вроде у объекта.

[Хакер]

Люди, которые пишут, что видели какую-то ошибку, но не пишут, какую в точности — что у них на уме? Чего они хотят? Просто поболтать? Вызвать сочувствие?

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

[kibernetics]

Люди, которые пишут, что видели какую-то ошибку, но не пишут, какую в точности — что у них на уме? Чего они хотят? Просто поболтать? Вызвать сочувствие?

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

Об этом не сказано в инструкции - сообщать об увиденных ошибках. А равно захотел сказал, захотел - нет. Очевидно, что проблема не в этом, и сообщив об ошибке, все ринулись бы исследовать ошибку из другой оперы. А это заведомо ложный путь. Поэтому не надо так расстраиваться из-за отсутствующего описания этой ошибки. Не сообщил, значит были на то причины.

[Хакер]

Ты вообще адекватен? Какой инструкции?

[kibernetics]

Ты вообще адекватен? Какой инструкции?

Хакер, ты всегда живёшь по каким-то инструкциям, одному тебе известным.
И это одна из них:

Люди, которые пишут, что видели какую-то ошибку, но не пишут, какую в точности — что у них на уме? Чего они хотят? Просто поболтать? Вызвать сочувствие?

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

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

[Хакер]

Какое условие? О чём ты вообще.

Механизм работы работы форума прост. Ты хочешь получить помощь — ты содействуешь получению помощи.
Содействовать в получении помощи, это значит, в числе прочего, сообщать о проблемах, в случае, если они возникли в ходе того, как ты воплотил в жизнь какой-то совет, данный тебе на форуме.

Тебе дали совет — ставить фокус на контрол. Он тебя не устраивает тем, что даёт ошибку. При этом, какую именно ошибку он даёт, ты говорить не намерен.

Не хочешь содействовать? Не надо отнимать у других время, играя в бессмысленную игру.

[kibernetics]

Не хочешь содействовать? Не надо отнимать у других время, играя в бессмысленную игру.

Я хочу содействовать, это же моя проблема, и я пришёл к вам за помощью. И я наоборот не хочу отнимать времени, ради, как я считаю, ошибки из другой оперы.
Мне кажется так, если нет изначально решения этой проблемы, то всё - никто ничем не поможет. Это не старые добрые двухтысячные, когда ради чьей-то проблемы, местные энтузиасты могли расколупать dll или api.
Ну и твой резкий вопрос уже просто отрезал окончательно путь к решению. А всего-то хотелось иметь интеллектуальный ListView.
Ну и конечно же вот ошибка:
Run-time error '438':
Object doesn't support this property or method

[Хакер]

А всего-то хотелось иметь интеллектуальный ListView.

А текущий что? Не интеллектуальный? Или интеллектуальность появляется как только список начинает подкрашивать выделенный пункт синим всегда, а не только тогда, когда имеет фокус? Это критерий интеллектуальности.

Что-то не так с твоим видением мира, не иначе.

Object doesn't support this property or method

И какой ListView ты используешь? Сдаётся мне, что контрол под именем myLvw — это не ListView, а что-то другое.

И какой вообще смысл писать
Me.Controls("myLvw").SetFocus
вместо
myLvw.SetFocus
?

И вообще, тебе нужно иметь способ держать LV всё время в фокусе, или тебе нужно, чтобы пункты горели синим даже без фокуса?

И почему ты, наряду с запутанным способом вызова метода SetFocus, для изменения выделенной строчки пользуешься не штатным способом, а хочешь делать это через оконные сообщения? Ты участвуешь в конкурсе «как написать боле запутанный код и при этом заморочить людей на форуме странно сформулированными вопросами»?

[kibernetics]

А всего-то хотелось иметь интеллектуальный ListView.

А текущий что? Не интеллектуальный? Или интеллектуальность появляется как только список начинает подкрашивать выделенный пункт синим всегда, а не только тогда, когда имеет фокус? Это критерий интеллектуальности.

Что-то не так с твоим видением мира, не иначе.

Не интеллектуальный. Просто чёрным по белому текст в ячейках. И вот встречаются моменты когда просто необходимо выделить программно строку. Потому что задать цвет вообще не реально.

Object doesn't support this property or method

И какой ListView ты используешь? Сдаётся мне, что контрол под именем myLvw — это не ListView, а что-то другое.

Это пользовательский ListView, основан на ComCtl5.

И какой вообще смысл писать
Me.Controls("myLvw").SetFocus
вместо
myLvw.SetFocus
?

Бесспорно. Просто было удобнее скопипастить готовый текст, чем наново набирать.

И вообще, тебе нужно иметь способ держать LV всё время в фокусе, или тебе нужно, чтобы пункты горели синим даже без фокуса?

Крайне желательно, чтобы горели даже без фокуса. Это основная информация, которая должна быть всегда как говорится быть на виду.

И почему ты, наряду с запутанным способом вызова метода SetFocus, для изменения выделенной строчки пользуешься не штатным способом, а хочешь делать это через оконные сообщения? Ты участвуешь в конкурсе «как написать боле запутанный код и при этом заморочить людей на форуме странно сформулированными вопросами»?

Весь проект написан вокруг этого контрола, и чтобы впихнуть стандарнтый ListView это просто потребует колоссальные затраты на переделку всего написанного.

[kibernetics]

На всякий пожарный хочу приложить для ознакомления.

Modules.rar

(27.31 Кб) Скачиваний: 183

[bon818]

необходимо выделить программно строку. Потому что задать цвет вообще не реально.
Крайне желательно, чтобы горели даже без фокуса.

Использовать: Сообщение NM_CUSTOMDRAW для перерисовки всего что отображает LV.
В Вашем 'ListV' даже есть готовая ф-я для этого pvCustomDraw

[kibernetics]

необходимо выделить программно строку. Потому что задать цвет вообще не реально.
Крайне желательно, чтобы горели даже без фокуса.

Использовать: Сообщение NM_CUSTOMDRAW для перерисовки всего что отображает LV.
В Вашем 'ListV' даже есть готовая ф-я для этого pvCustomDraw

т.е. надо заново наполнить ListView и в определённый момент (на нужной строке) слать NM_CUSTOMDRAW? Уфф... а можно полгче объяснить или лучше показать хотябы отдалённым примером?

П.С. а там в коде не видно, может как-то и закрасить можно? неважно, ячейку или строку.

[kibernetics]

А можно сделать события клика мышкой программно? Вплоть до того, что курсор подвести к этому месту и кликнуть на нужной строке, если нужно.
Чтобы не заморачиваться с месседжами, всё равно больше помощи ждать не от кого.