VB6.0 listview有关的几个用法
1、首先，点击文件->新建->项目，打开项目创建视窗，切换到Visual Basic,选择Windows窗体应用程序，新建一个。
2、在左侧工具箱中找到ListView控件，单击并在右侧窗体中创建一个。
3、点击ListView控件右上角的小按钮，展开ListView任务面板，点击编辑项，打开ListViewItem集合编辑器。
4、新建一个按钮，在按钮的事件响应函数中写下MsgBox(ListView1.ToString())，ListView的ToString函数返回的是这个控件的信息，如图。
5、如果要获取所有item的信息，使用For Each循环遍历item如下。
6、这样把每个列表元素的ToString等信息存到tps字符串，显示出来如图。
只是从数据表中添加数据，如果你不从数据中添加数据，将如下代码稍作改动即可
Private Sub Form_Load()
'整行选择
ListView1.FullRowSelect = True
'显示表头ColumnHeaders
ListView1.HideColumnHeaders = False
'网格行
ListView1.GridLines = True
'采用报表显示模式
ListView1.View = lvwReport
Dim ListX As ListItem
Dim ListSubX As ListSubItem
Dim ColumnX As ColumnHeader
Dim i As Integer
'清除Listview的内容和表头
ListView1.ListItems.Clear
ListView1.ColumnHeaders.Clear
'填充表头
For i = 0 To rs.Fields.Count - 1
Set ColumnX = ListView1.ColumnHeaders.Add
ColumnX.Text = rs.Fields(i).Name
ColumnX.Width = ListView1.Width / rs.Fields.Count
Next i
'填充数据
Do Until rs.EOF
'添加一行
Set ListX = ListView1.ListItems.Add
ListX.Text = rs.Fields(0).Value
For i = 1 To rs.Fields.Count - 1
Set ListSubX = ListX.ListSubItems.Add
ListSubX.Text = rs.Fields(i).Value
Next i
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
cnn.Close
Set rs = Nothing
Exit Sub
myERR:
'错误处理程序
MsgBox Err.Description, vbCritical, "出错"
rs.Close
cnn.Close
End Sub
值 说明
1-LvwIcon 图标类型
2-LvwSmallIcon 小图标类型
3-LvwList 列表类型
4-LvwReport 报表类型
Arrange 设置后返回控件的图标排列方式(在图标视图下有效)
值 说明
1-LvwNone 不排列
2-LvwAutoLeft 自动靠右排列
3-LvwAutoTop 自动靠左排列
Icons、 SmallIcons、 ColumnHeaderIcons属性
Icons指定图标视图时的图标与ImageList的绑定
SmallIcons、 ColumnHeaderIcons指定列表视图时的图标与ImageList的绑定
PICTURE、PictureAlignment属性
分别指定ListView控件的背景图片和布局方式
ListItems(Index) 属性
ListItems 属性是ListView控件中列表项的集合。Index用于指定列表项集合中的一个对象，
我们可以把这个对象看作对一行的引用
ListItems集合的属性
1. Text 设置或返回显示文本
2. key 关键字
3. index 索引编号
4. icon , smallicon 不同视图时显示单元格的图标
5. checked 给checkboxes 打√
6. selected 使处于选定状态
7. ListSubitems（index） 集合 我们可以把这个集合看作对这行中单元格的引用
Text 设置或返回单元格显示的内容
Reporticon 设置单元格的图标
8． Subitems(index) 设置或返回单元格文本 == ListSubitems（index）.text
ColumnHeaders(index) 属性
ColumnHeaders 属性是ListView控件中列标头的集合
1. text 显示标题文本
2. key
3. index
4. icon 指定标题图标
5. alignment 指定index列的对齐方式 （注意：第一列也就是列表项不能指定）
6. position 返回当前列的索引
7. subitemindex 返回指定列的listsubitem索引
TextBackgroud 属性
决定text的背景是透明还是ListView的背景色
值 0 lvwTransparent 透明
1 lvw 不透明（用listview的背景色）
Ghosted 属性 logic
决定是否虚状
HideColumnHeaders 属性
隐藏表头
LabelWrap 属性
标签转行 View.LargeIcon 或 View.SmallIcon 时才使用该属性
FullRowSelect
整行显示
HotTracking
热点追踪 鼠标指针自动调整为手型
HoverSelection 属性
自动聚焦 鼠标指针自动调整为手型
AllowColumnReorder属性
值设置.t.时，用户可以用鼠标选中1列拖至其他地方进行重新排列
Sorted属性
看懂这些就行了。
申净当飞： 添加listview控件的方法如下: 1. 打开VB6.0 2. 按下CTRL+T3. 添加Microsoft Windows Common Controls 6.0部件 就会出现listview控件了
铁西区19678864394： VB6.0 listview有关的几个用法 - ？
申净当飞： View设置或返回控件的视图类型 值 说明 1-LvwIcon 图标类型 2-LvwSmallIcon 小图标类型 3-LvwList 列表类型 4-LvwReport 报表类型 Arrange 设置后返回控件的图标排列方式(在图标视图下有效) 值 说明 1-LvwNone 不排列 2-LvwAutoLeft 自动靠...
铁西区19678864394： 如何在VB6.0中添加ListView控件 - ？
申净当飞： 按菜单依次操作:【工程】-->【部件】,勾选【Microsoft Windows Common Controls 6.0】,【确定】即可看到
铁西区19678864394： 有关vb6中使用ListView控件的问题.？
申净当飞： 背景颜色设置BackColor属性,字体颜色设置ForeColor属性
铁西区19678864394： vb6.0 中 listview 控件 怎么样实现带表头复制 并且保持格式 直接粘贴到EXCEL上? - ？
申净当飞： listview 复制是不能带表的,因为表内的字符都是作为一个对象的,可以把对象直接向excel表格内写.vb6有例子的.
铁西区19678864394： 请高手帮忙,VB6.0的Listview控件.怎么实现我按按钮就把最新输入的数据显示在第一行,其它 - ？
申净当飞： 首先,你的图片看不清,要插入行,可以用代码 ListView1.ListItems.Add 1, , ＂文本内容＂ 这里1表示第一行 第二种办法是让listview的滚动条滚到最底行,也就是最后一行 ListView1.ListItems(ListView1.ListItems.Count).EnsureVisible 至于设置listview的选中行,这个不实用
铁西区19678864394： listview判断单元格是否为空vb6.0 - ？
申净当飞： If Listview1.ListItems(1).SubItems(1) = ＂＂ Then Msgbox ＂该单元格内容为空＂ End If'ListItems(1)是定位行,1是第一行,如果第2行就是2'SubItems(1)是定位列,如果是第一列应当改成Listview1.ListItems(1).Text,第二列才是Listview1.ListItems(...
铁西区19678864394： vb6.0中 dim itm as new listviewitem 显示错误:用户定义类型未定义 - ？
申净当飞： 如果你想使用ListView控件,需要在工程中添加部件,＂Microsoft windows common cotrols 5.0＂ 不可以用new动态声明控件
铁西区19678864394： listview 表格换行 VB6.0 - ？
申净当飞： 'VB 拖动 Dim ListView1_drop_Item As ListItem Private Sub Form_Load() Dim i As Integer ListView1.View = lvwReport ListView1.FullRowSelect = True ListView1.ColumnHeaders.Add , , ＂A＂ ListView1.ColumnHeaders.Add , , ＂B＂ For i = 1 To ...
铁西区19678864394： VB6.0 listview双击事件方法!!!高分!!! - ？
申净当飞： Private Sub ListView1_DblClick() 'listview的双击事件,当然,一般是配合选中的内容一起作用的,如你所说,可是你并没有其它要求,所以就这样了 Load Form2 '加载form2 Form2.Visible = True '显示form2 End Sub
