15 мая 2023 года "Исходники.РУ" отмечают своё 23-летие!
Поздравляем всех причастных и неравнодушных с этим событием!
И огромное спасибо всем, кто был и остаётся с нами все эти годы!

Главная Форум Журнал Wiki DRKB Discuz!ML Помощь проекту


Как нарисовать сетку в ListView

Следующий код рисует линии между строками и колонками:

Private 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 
Private Sub Lines(ByRef lstobj As ListView) 
    Dim Estilo As Long 
    Estilo = 33 
    NuevoEstilo = SendMessageLong(lstobj.hwnd, &H1000 + 54, 0&, Estilo) 
End Sub 

Private Sub Form_Paint() 
   Call Lines(lsvExample) 
End Sub