Поиск на сайте
Главная Журнал Форум Wiki DRKB Страны мира


Как нарисовать сетку в 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 

 

 

 


Основные разделы сайта


 

Реклама