木子屋
 

标题: VB6.0 ListView控件添加数据

作者: dnawo

日期: 2009-09-28 07:57 PM

分类: Win编程

内容: 复制内容到剪贴板 程序代码'添加 Microsoft Windows Common Controls 6.0 部件才能使用ListView
Dim item As ListItem
'添加表头
With ListView1
    .GridLines = True '显示网格
    .Checkboxes = True '添加复选框
    .View = lvwReport '按报表方式显示
    .ColumnHeaders.Add , "Name", "名称"
    .ColumnHeaders.Add , "Domain", "　域名"
    .ColumnHeaders.Add , "Webmaster", "管理员"
End With
'添加记录
Set item = ListView1.ListItems.Add(, "", "木子屋")
item.SubItems(ListView1.ColumnHeaders("Domain").SubItemIndex) = "mzwu.com"
item.SubItems(ListView1.ColumnHeaders("Webmaster").SubItemIndex) = "dnawo"
Set item = ListView1.ListItems.Add(, "", "手机酷酷")
item.SubItems(ListView1.ColumnHeaders("Domain").SubItemIndex) = "sjkuku.com"
item.SubItems(ListView1.ColumnHeaders("Webmaster").SubItemIndex) = "dnawo"
1).怎么获取选中行文本？
复制内容到剪贴板 程序代码Dim i As Integer
For i = 1 To ListView1.ListItems.Count
    If ListView1.ListItems.item(i).Checked Then
        MsgBox ListView1.ListItems.item(i).Text
    End If
Next

+ 查看当前日志评论 (0)

 

登录

────────────

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 0.047 ms

标题: VB6.0 ListView控件添加数据

你没有权限发表评论

────────────

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 0.047 ms

暂无评论

返回

────────────

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 0.047 ms