Excel中VBAlistview、imagelist控件

Excel 中VBA listview、imagelist 控件 1、在 Listview 控件中，用 ColumnHeaders 对象来操作列，而添加新的列可以用 ColumnHeaders 对象的 ADD 方法。具体如下： ListView1.ColumnHeaders.Add 序号，唯一的字符串标识，列标显示文字，列宽，列的内容对齐方式，所使用的图标序号。 对齐方式有：lvwColumnLeft 、 lvwColumnCenter、lvwColumnRight 其中第 1 列只能左对齐，而不能采取其他对齐方式 2、Listview 控件的 View 属性决定着它的显示的方式，具体如下： ListView1.View = lvwIcon '图标显示 ListView1.View = lvwSmallIcon '小图标显示 ListView1.View = lvwList '列表显示 ListView1.View = lvwReport '报表显示 3、SelectedItem 属性即是指当前选取的记录 4、清空 listview 控件中的内容：ListView1.ListItems.Clear 显示数据表内容： Private Sub UserForm_Initialize() With ListView1 '初始化 listview .ColumnHeaders.Add , , "学号", 60, lvwColumnLeft .ColumnHeaders.Add , , "姓名", 60, lvwColumnCenter .ColumnHeaders.Add , , "班级", 70, lvwColumnCenter .View = lvwReport '以 报 表 的 格 式 显 示 .LabelEdit = lvwManual '使 内 容 不 可 编 辑 End With Dim cn As ADODB.Connection Dim rs As ADODB.Recordset Set cn = New ADODB.Connection '连 接 数 据 库 Set rs = New ADODB.Recordset cn.Open "provider=microsoft.jet.oledb.4.0;data source=D:/db1.mdb" rs.Open "student", cn, adOpenKeyset, adLockBatchOptimistic ' 数 据 表 student Do While Not rs.EOF With ListView1.ListItems.Add() '添 加 记 录 .Text = rs.Fields("stu_num") '添 加 第 一列内 容 .SubItems(1) = rs.Fields("stu_name") '添 加 第 二列内 容 .SubItems(2) = rs.Fields("stu_class") '添 加 第 三列内 容 End With rs.MoveNext Loop rs.Close Set rs = Nothing cn.Close End Sub 读 取 listview 选 择 的 内 容 ： 将 选 中的 内 容 分别显示在 UserForm1 的 文本框中 With UserForm1 .stu_num.Value = ListView1.SelectedItem.Text '学号 .stu_name.Text = ListView1.SelectedItem.SubItems(1) '姓名 .stu_clas...