7,763
社区成员
发帖
与我相关
我的任务
分享高手帮忙啊，急啊！关于Treeview的。
我要在Treeview中实现以下效果：
1 每个节点前的复选框可选，但不能人为地打上钩，或者去掉钩，即不能点击前面的复选框
2 改变节点上字的颜色，不同的节点要有不同的颜色，或者一种突出某一节点的方法，比如高亮，变颜色，打钩不行，改变钩的颜色等等。
急啊！！
高手帮忙啊！
谢谢！
在线等
1 每个节点前的复选框可选，但不能人为地打上钩，或者去掉钩，即不能点击前面的复选框
2 改变节点上字的颜色，不同的节点要有不同的颜色，或者一种突出某一节点的方法，比如高亮，变颜色，打钩不行，改变钩的颜色等等。
急啊！！
高手帮忙啊！
谢谢！
在线等
...全文
请发表友善的回复…
发表回复
aohan 2004-08-12
- 打赏
- 举报
加载Image，然后看一下treeview的add帮助
zhangt2001 2004-08-12
- 打赏
- 举报
那怎样加载图标？
谢谢！
谢谢！
fishmans 2004-08-12
- 打赏
- 举报
同意用图片，可以做的很好看，我一直那么用
starsoulxp 2004-08-12
- 打赏
- 举报
同意狼行天下的方法
楼上的也不错。
楼上的也不错。
zhujiechang 2004-08-12
- 打赏
- 举报
不用checkbox,改用象checkbox的图标,使用图标加载给他看,样式很象checkbox,实际不是.
zhangt2001 2004-08-12
- 打赏
- 举报
我再顶啊！！
northwolves 2004-08-12
- 打赏
- 举报
用数组记录TREEVIEW 的初始状态：
Option Explicit
Dim c() As Boolean
Dim num As Integer
Private Sub Command1_Click()
Dim i As Integer
With TreeView1
.Style = tvwTextOnly
.LineStyle = tvwTreeLines
.Checkboxes = True
.Nodes.Add , , "root", "ALL"
.Nodes(1).Expanded = True
For i = 1 To 10
.Nodes.Add "root", 4, Chr(i + 64), Chr(i + 64)
.Nodes(i).ForeColor = RGB(i * 5, i * 10, i * 20)
Next
.Nodes(7).Checked = True
num = TreeView1.Nodes.Count
ReDim c(1 To num)
For i = 1 To num
c(i) = .Nodes(i).Checked
Next
End With
End Sub
Private Sub TreeView1_Click()
Dim i As Integer
For i = 1 To num
TreeView1.Nodes(i).Checked = c(i)
Next
End Sub
Option Explicit
Dim c() As Boolean
Dim num As Integer
Private Sub Command1_Click()
Dim i As Integer
With TreeView1
.Style = tvwTextOnly
.LineStyle = tvwTreeLines
.Checkboxes = True
.Nodes.Add , , "root", "ALL"
.Nodes(1).Expanded = True
For i = 1 To 10
.Nodes.Add "root", 4, Chr(i + 64), Chr(i + 64)
.Nodes(i).ForeColor = RGB(i * 5, i * 10, i * 20)
Next
.Nodes(7).Checked = True
num = TreeView1.Nodes.Count
ReDim c(1 To num)
For i = 1 To num
c(i) = .Nodes(i).Checked
Next
End With
End Sub
Private Sub TreeView1_Click()
Dim i As Integer
For i = 1 To num
TreeView1.Nodes(i).Checked = c(i)
Next
End Sub
jordi2014 2004-08-12
- 打赏
- 举报
第二个问题：
用node.forecolor可改变其字的颜色。
用node.forecolor可改变其字的颜色。
