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:  Mostrando Gridlines no Listview do VB5
Postada em 26/10/2003 por ^HEAVY-METAL^            
Public Declare Function SendMessageLong Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
      
'Public Const LVM_FIRST = &H1000
'Public Const LVM_SETEXTENDEDLISTVIEWSTYLE = (LVM_FIRST + 54)
'Public Const LVM_GETEXTENDEDLISTVIEWSTYLE = (LVM_FIRST + 55)
'Public Const LVS_EX_FULLROWSELECT = &H20
'Public Const LVS_EX_GRIDLINES = &H1


'Place code In a command button
'Click repeatedly...

Static chkSelectMode As Boolean, rStyle As Long, r As Long
rStyle = SendMessageLong(ListView1.hwnd, LVM_GETEXTENDEDLISTVIEWSTYLE, 0&, 0&)

If chkSelectMode = False Then
    rStyle = rStyle Xor LVS_EX_GRIDLINES
ElseIf chkSelectMode = True Then
    rStyle = rStyle Or LVS_EX_GRIDLINES
End If

r = SendMessageLong(ListView1.hwnd, LVM_SETEXTENDEDLISTVIEWSTYLE, 0&, rStyle)
chkSelectMode = Not chkSelectMode

T+,
 


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