|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (ActiveX/Controles/DLL)
|
|
 |
Título da Dica: Alterando o estilo dos cabeçalhos do controle Listview para Flat
|
 |
|
|
|
Postada em 18/6/2003 por cacá
Lembre-se que ao alterar o estilo para Flat, o evento ColumnClick do controle não será disparado.
Coloque o código abaixo num módulo
Public Const GWL_STYLE = (-16)
Public Const LVM_FIRST = &H1000
Public Const LVM_GETHEADER = (LVM_FIRST + 31)
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, _
ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, _
ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Sub FlatHeader(ByVal lViewhWnd As Long)
Dim lhWnd As Long
lhWnd = SendMessage(lViewhWnd, LVM_GETHEADER, 0, 0)
SetWindowLong lhWnd, GWL_STYLE, lS
End Sub
Chame o procedimento FlatHeader passando o handle do controle Listview que você deseja alterar o estilo
FlatHeader ListView1.hwnd
|
|
|
|
|
