Hallo!

Har följande exemple på på mina listviews i VB6 men jag vill bara ha att det är linjer bara under varje listview rad och inte utmed alla kolumner.
Någon som vet hur jag ska göra?

I Module
<code>
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


</code>

Och i Form

<code>
Call SendMessage(ListView1.hwnd, LVM_SETEXTENDEDLISTVIEWSTYLE, LVS_EX_GRIDLINES, ByVal state)

</code>

Har letat och letat men inte funnit något, någon med tips eller nåt?


H. Jocke

Ingen som har ens ett litet förslag?

Ta dig till vbnet.mvps.org och kolla. Finns det api för listviewkontrollen för det - så lär du hitta det där. Svara gärna med lösningen här, eller lägg det i tips & tricks om du hittar det.

Lycka till