1-1 Listview控件的图标设置
ListView 控件作为一个可以显示图标或者子项的列表控件，可以在控件中显示自定义的图标，它最重要的属性就是View 属性，该属性决定了以哪种视图模式显示控件的项，请参阅技巧错误！未找到引用源。。
在ListView 控件中显示图标，需要在用户窗体中添加一个ImageList控件用于保存图像文件。关于ImageList控件的使用请参阅技巧错误！未找到引用源。。
以大图标模式显示ListView控件的代码如下：
#001 Private Sub UserForm_Initialize()
#002 Dim ITM As ListItem
#003 Dim r As Integer
#004 With ListView1
#005 .View = lvwIcon
#006 .Icons = ImageList1
#007 For r = 2 To 6
#008 Set ITM = .ListItems.Add()
#009 ITM.Text = Cells(r, 1)
#010 ITM.Icon = r - 1
#011 Next
#012 End With
#013 Set ITM = Nothing
#014 End Sub
代码解析：
在用户窗体中以大图标模式显示ListView控件，可使用鼠标拖放图标，并重新排列。
第5行代码将ListView控件的View属性设置为lvwIcon，大图标视图模式。
第6行代码使用ListView控件的Icons 属性建立与ImageList控件的关联。
第7行到第11行代码在ListView控件中添加ListItem对象，其中第10行代码设置使用ListItem对象的Icon属性指定其图像文件在ImageList控件中的编号。
ListView控件以大图标视图模式显示时如图错误！文档中没有指定样式的文字。-1所示。
图错误！文档中没有指定样式的文字。-1 大图标视图模式以小图标模式显示ListView控件的代码如下：
#001 Private Sub UserForm_Initialize()
#002 Dim ITM As ListItem
#003 Dim r As Integer
#004 With ListView1
#005 .View = lvwSmallIcon
#006 .SmallIcons = ImageList1
#007 For r = 2 To 6
#008 Set ITM = .ListItems.Add()
#009 ITM.Text = Sheet1.Cells(r, 1)
#010 ITM.SmallIcon = r - 1
#011 Next
#012 End With
#013 Set ITM = Nothing
#014 End Sub
代码解析：
在用户窗体中以小图标模式显示ListView控件，可使用鼠标拖放图标，并重新排列。
第5行代码将ListView控件的View属性设置为lvwSmallIcon，小图标视图模式。
与大图标视图模式有所不同的是，当使用小图标视图模式时需要使用ListView控件的SmallIcons属性建立与ImageList控件的关联，使用ListItem对象的SmallIcon属性指定其图像文件在ImageList控件中的编号。
ListView控件以小图标视图模式显示时如图错误！文档中没有指定样式的文字。-2所
示。
图错误！文档中没有指定样式的文字。-2 小图标视图模式
将ListView控件的View属性设置为lvwList，以列表视图模式显示，如图错误！文档中没有指定样式的文字。-3所示。
图错误！文档中没有指定样式的文字。-3 列表视图模式
将ListView控件的View属性设置为lvwReport，以报表视图模式显示，如图错误！文档中没有指定样式的文字。-4所示。
图错误！文档中没有指定样式的文字。-4 报表视图模式
