主题：[求助]ListView列表模式的控制

请问老师，列表模式下使用“精确控制行的拖动行为”时，出现以下几个问题：

 

1、图标只能显示16x16的小图标，用lvw.Images.SmallSize = New Size(36,36) 就不显示图片了，我怀疑行距不够出不来。如何在列表模式下显示大一点的图标和文字？行距怎么改变？字体调大后粘一起比较难看。

 

2、出现换列时列之间的具体用什么控制，让它缩小点免得浪费空间还不好看（如下图），比想如刚好两列能显示，用代码怎么调整？

 
此主题相关图片如下：lv.png

 

部分代码如下：

  Dim lvws() As Winform.ListView = {lvw1,lvw2,lvw3,lvw4,lvw5,lvw6,lvw7,lvw8} '看看我们是怎样批量设置某组控件属性的
    For Each lvw As WinForm.ListView In lvws
        lvw.View = ViewMode.List
        lvw.AllowDrag = True
        lvw.AllowDrop = True
        lvw.Images.AddSmallImage("蓄电池叉车", "蓄电池叉车16.ico") '添加代表蓄电池叉车的图标
        lvw.Images.AddSmallImage("蓄电池牵引车", "蓄电池牵引车16.ico") '添加代表蓄电池牵引车的图标
        lvw.Images.AddSmallImage("内燃机械", "内燃机械16.ico") '添加代表内燃机械的图标
        'lvw.Images.SmallSize = New Size(32,32)
    Next
    For Each dr As DataRow In DataTables("机械管理表").Select("","机械分类") 
    If  dr("机械分类") <> "其他" Then
        Dim vr As WinForm.ListViewRow = lvw1.Rows.Add()
        vr.Text = dr("装备代号")
        vr.Name = dr("装备代号") 
        vr.Font = New Font("微软雅黑",12)
        If dr("机械分类") = "蓄电池叉车" Then
            vr.ImageKey = "蓄电池叉车"
        Else If dr("机械分类") = "蓄电池牵引车" Then
            vr.ImageKey = "蓄电池牵引车"
        Else
            vr.ImageKey = "内燃机械"
        End If
    End If
    Next

        lvw.View = ViewMode.List
        lvw.AllowDrag = True
        lvw.AllowDrop = True

感谢老师，但是换列时两列之间的距离怎么控制呢，想让它缩小点，默认的距离太大了

这个控制不了

~~好吧~~希望老师下次改进的时候能增加这个控制功能，这样才能使listview的列表能适应不同大小的界面，排版 也能更加好看~~~~老师加油