POSICAO DO SCROLL NO LISTVIEW

BARBOZA1985 04/11/2009 10:20:18
#326897
Pessoal,

Tenho uma tela que segue em anexo...
Tenho dois listview, gostaria de quando o usuário movesse o scrollbar de um list, automaticamente movesse o outro scrollbar do segundo listview, deixando os dois sempre na mesma posição.
Isso servirá para comparar melhor os dados.
Será que alguém já fez isso???
TECLA 04/11/2009 10:57:34
#326903
Usando SENDMESSAGE é possível fazer isso.

Segue um exemplo que MOVE AUTOMATICAMENTE o SCROLL de acordo com as COORDENADAS (x, y) passados para a FUNCTION.

Private Declare Function SendMessage Lib [Ô]user32[Ô] Alias [Ô]SendMessageA[Ô] (ByVal _
hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, _
lParam As Any) As Long
Const LVM_FIRST = &H1000
Const LVM_SCROLL = (LVM_FIRST + 20)

[ô] Scroll the contents of a ListView control horizontally and vertically.
[ô]
[ô] If the ListView control is in List mode, DX is the number of
[ô] columns to scroll. If it is in Report mode, DY is rounded to the
[ô] nearest number of pixels that represent a whole line.

Function ListViewScroll(lvw As ListView, ByVal dx As Long, ByVal dy As Long)
SendMessage lvw.hwnd, LVM_SCROLL, dx, ByVal dy
End Function
Tópico encerrado , respostas não são mais permitidas