Excel中VBAlistview、imagelist控件.doc

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 WithDim cn As ADODB.ConnectionDim rs As ADODB.RecordsetSet cn = New ADODB.Connection 连接数据库Set rs = New ADODB.Recordsetcn.Open provider=microsoft.jet.oledb.4.0;data source=D:/db1.mdbrs.Open student, cn, adOpenKeyset, adLockBatchOptimistic 数据表studentDo While Not rs.EOFWith ListView1.ListItems.Add() 添加记录.Text = rs.Fields(stu_num) 添加第一列内容.SubItems(1) = rs.Fields(stu_name) 添加第二列内容.SubItems(2) = rs.Fields(stu_class) 添加第三列内容End Withrs.MoveNextLooprs.CloseSet rs = Nothingcn.CloseEnd Sub读取listview选择的内容：将选中的内容分别显示在UserForm1的文本框中With UserForm1.stu_num.Value = ListView1.SelectedItem.Text 学号.stu_name.Text = ListView1.SelectedItem.SubItems(1) 姓名.stu_class.Text = ListView1.SelectedItem.SubItems(2) 班级End With--------------------------------------------------------------------------------------------------------------------Private Sub UserForm_Initialize()定义变量数据类型Dim ITM As ListItemListView1.ColumnHeaders.Add 1, , QQ号, ListView1.Width / 3 添加QQ号列ListView1.ColumnHeaders.Add 2, , 呢称, ListView1.Width / 3, lvwColumnCenter 添加呢称列ListView1.ColumnHeaders.Add 3, , 来自何处, ListView1.Width / 3 添加来自何处列ListView1.View = lvwReport 设置显示格式为报表格式ListView1.Gridlines = True 显示网格线ListView1.SmallIcons = ImageList1 建立控件和ImageList