VB 版 (精华区)

发信人: Dream (伤情), 信区: VB
标  题: 一个小问题.
发信站: 哈工大紫丁香 (2000年07月09日21:48:58 星期天), 站内信件

本人初学 VB, 不知道 ListView 中的 CheckBox 怎样控制，我想设置某一行（Report模
式）的 CheckBox 为 Checked，不知道怎样实现，还有，怎样响应 CheckBox 的 Check 事
件？

--
※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.244.244]
发信人: bloom (又臭又硬小石头), 信区: VB
标  题: Re: 一个小问题.
发信站: 哈工大紫丁香 (2000年07月11日08:57:19 星期二), 转信

listview控件经常和treeview一起使用。
最典型的例子就是regedit.你可用
add 方法加入listitem对象。在report模式下还可和imaglist关联。
用finditem方法查找对象。
找到后用ensuervisible方法将项目显示在滚动视窗中。
剩下的工作你可以参阅具体的资料。这个控件的用法
稍微复杂一些。
【 在 Dream (伤情) 的大作中提到: 】
: 本人初学 VB, 不知道 ListView 中的 CheckBox 怎样控制，我想设置某一行（Report模
: 式）的 CheckBox 为 Checked，不知道怎样实现，还有，怎样响应 CheckBox 的 Check 事
: 件？

--

     又臭，又硬。
           小石头

※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.226.226]
发信人: pretty (我是疯儿，谁是傻？), 信区: VB
标  题: Re: 斑竹，能不能帮帮我解决问题？
发信站: 哈工大紫丁香 (2000年07月11日09:39:49 星期二), 站内信件

开个玩笑！//sorry

vb6.0 支持listview的checked特性
vb5.0 可能不支持listview的checked特性

Private Sub Command1_Click()
For i = 1 To ListView1.ListItems.Count
If ListView1.ListItems(i).Checked = True Then '这一步是关键，不是ListView1.L
istItems.Item(i).Selected =True
MsgBox "you have select " & ListView1.ListItems.Item(i).Text
End If
Next i
End Sub
-------------------------------
Private Sub ListView1_ItemCheck(ByVal Item As MSComctlLib.ListItem)
If Item.Checked = True Then
MsgBox Item.Text & " is True"
Else
MsgBox Item.Text & " is False"
End If
End Sub
---------------------------
Private Sub Form_Load()
Dim clmX As ColumnHeader
   Set clmX = ListView1.ColumnHeaders.Add(, , "id", ListView1.Width / 2)
   Set clmX = ListView1.ColumnHeaders.Add(, , "name", ListView1.Width / 2)
   ListView1.View = lvwReport
   ListView1.Checkboxes = True   '这一步是关键
   Dim itmX As ListItem
        Set itmX = ListView1.ListItems.Add(, , "A")
        itmX.SubItems(1) = "Aname"
     Set itmX = ListView1.ListItems.Add(, , "B")
        itmX.SubItems(1) = "Bname"
     Set itmX = ListView1.ListItems.Add(, , "C")
        itmX.SubItems(1) = "Cname"
End Sub

【 在 Dream (伤情) 的大作中提到: 】
: Wo faint, just a sentence?
: It is really a pity to me, so big a question that asked by me???
: May u have good feelings to chat, bye.
: 【 在 pretty (我是疯儿，谁是傻？) 的大作中提到: 】
: : 基本上，这个问题挺难。

--
※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.235.248]