listview如何将行间距调大？

Question

RT！不改变字体大小，将行之间的间距改大

Answer 1

listview的高度是图片撑的，用个imagelist做关联就是了。

Answer 2

Option ExplicitPrivate Sub Form_Load()
    Dim li As ListItem
    Dim lCount As Long
    Me.ListView1.View = lvwReport
    Me.ListView1.GridLines = True
    
    Me.ListView2.View = lvwReport
    Me.ListView2.GridLines = True
    Set Me.ListView2.SmallIcons = Me.ImageList1  'listview2加了这句话，你看下效果和listview1 有什么不同
    
       
    With ListView1.ListItems
        For lCount = 1 To 100
            Set li = .Add(, , lCount)
            li.SubItems(1) = lCount
            li.SubItems(2) = lCount
        Next
    End With
    With ListView2.ListItems
        For lCount = 1 To 100
            Set li = .Add(, , lCount)
            li.SubItems(1) = lCount
            li.SubItems(2) = lCount
        Next
    End WithEnd Sub