VB6.0 ListView控件添加数据 - 木子屋 和另外 4 个页面 - 用户配置 1

VB6.0 ListView控件添加数据编辑:dnawo 日期:2009-09-28字体大小: 小 中 大

复制内容到剪贴板程序代码'添加 Microsoft Windows Common Controls 6.0 部件才能使用ListViewDim 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 IntegerFor i = 1 To ListView1.ListItems.CountIf ListView1.ListItems.item(i).Checked ThenMsgBox ListView1.ListItems.item(i).TextEnd IfNext