|
楼主 |
发表于 2006-6-21 13:07
|
显示全部楼层
请问红色文字是什么意思?<br/>rivate Sub UserForm_Activate()<br/>Dim rng As Range<br/>Dim i As Integer<br/>With ListView1<br/>.Gridlines = True '显示表格线<br/>LabelEdit = lvwManual <font color="#5c5cd6">'LabelEdit的值确定是否可以编辑在 ListView 控件中的 ListItem 对象的标签。当为lvwManual 时手动的。BeforeLabelEdit 事件只发生在调用 StartLabelEdit 方法时。</font> <br/>.FullRowSelect = True '<font color="#4141cf">可以整行选取</font><br/>.GetFirstVisible <font color="#4e69d3">'ListView 控件可包含的 ListItem 对象数目比在其内部区域中可视的 ListItem 对象数目多。可以使用由 GetFirstVisible 方法返回的引用决定在列表或在报表视图中的第一个可视的 ListItem 对象。</font><br/>.FlatScrollBar = True <font color="#4e4ed3">'设置滚动条的外观</font><br/>.FullRowSelect = True <br/>.View = lvwReport <font color="#3352cc">'样式为报表格式</font><br/>With .ColumnHeaders<br/>.Add Text:="编号", Width:=ListView1.Width / 4<br/>.Add Text:="名称", Width:=ListView1.Width / 4<br/>.Add Text:="规格", Width:=ListView1.Width / 4<br/>.Add Text:="颜色", Width:=ListView1.Width / 4<br/>End With<br/>Set rng = Range("A2:D12")<br/>For i = 1 To rng.Rows.Count<br/>With .ListItems.Add(Text:=rng.Cells(i, 1) <font color="#3154df">'在ListView控件中添加新的记录,标签(第1列标题)为rng.Cells(i, 1) 的值</font><br/>.SubItems(1) = rng.Cells(i, 2) <font color="#3131df">'设置ListView控件第2列内容</font><br/>.SubItems(2) = rng.Cells(i, 3) <font color="#4141cf">'设置ListView控件第3列内容</font><br/>.SubItems(3) = rng.Cells(i, 4) <font color="#4765db">'设置ListView控件第4列内容</font><br/>End With <br/>Next<br/>Set rng = Nothing<br/>End With<br/>End Sub |
|