如何选中treeview中的一个节点,该节点的子结点,包括子结点的子结点也同时选中?
解决方案 »
- 最小化的窗体真的就无法截取到图象么?
- 用GetFileTime 对user32.dll 、gdi32.dll 等API相关的几个DLL创建日期 取得结果不正确?
- MSHFlexGrid列设置问题请教,怎么显示百分比,限制小数位数等 急!!
- 帮忙用什么SQL语句得到这样的结果
- combobox的问题?
- 想学习VB
- 言出必行,zxs218(Frank Zhou)请进
- 看看你想要什么?我给你~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
- 如何用VB远程修改ACCESS数据库?
- 请问如何是使用dim a as new mscomm 的事件 onComm()?
- VB中如何从不同数据库文件(ACCESS)中倒入数据.
- 谁能转换如下代码?(100分相送)
我是想做一个数据库搜索功能,用Treeview列出数据库中的分类信息,通过Checkbox选择要显示的内容。]
参考office的自定义安装方式吧
Dim obj As Node
Dim k() As Integer
Dim iCount As Integer
Dim temp As String
Dim i, j As Integer
temp = Node.Key
j = 1
For Each obj In ltvClient.Nodes
If Not (obj.Parent Is Nothing) Then
If obj.Parent.Key = temp Then
ReDim Preserve k(iCount)
k(iCount) = j
iCount = iCount + 1
End If
End If
j = j + 1
Next obj
For i = 0 To iCount - 1
If Node.Checked = False Then
ltvClient.Nodes(Val(k(i))).Checked = False
Else
ltvClient.Nodes(Val(k(i))).Checked = True
End If
NextEnd Sub