USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  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
 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página