treeview选中的结点的字体颜色如何设置为绿色？

简

两个问题：
1。treeview选中的结点的字体颜色如何设置为绿色？、
2。如何禁止修改结点值呢？

kangking

改变结点的颜色等可以通过改变node的forecolor属性和bold属性实现，如：
With Node
    .ForeColor = vbYellow
    .Bold = True
End With
禁止编辑标签可以设置控件的labeledit属性实现，如：
TreeView1.LabelEdit = tvwManual

简

先谢谢kangking .

但我还想问,如果我要求结点得到焦点时,其字体才变成绿色并加粗,如果没有得到焦点,其字体颜色及是否加粗就恢复缺省状态.

这个结点得到焦点的代码是怎么写的呢,access帮助里没有,不知在哪查找这方面的资料.

wanshan

treeview控件属性里有一项：热点，把这个钩打上后，鼠标移到的节点自动有一个下划线。

简

先谢谢kangking .

但我还想问,如果我要求结点得到焦点时,其字体才变成绿色并加粗,如果没有得到焦点,其字体颜色及是否加粗就恢复缺省状态.

这个结点得到焦点的代码是怎么写的呢,access帮助里没有,不知在哪查找这 ...
简 发表于 2009-9-29 15:20

wanshan说的方法还是没有实现我想要的效果,得到焦点后节点字体变颜色,这点达到了,问题是失去焦点后恢复常态,这点我就做不出来了,不知道该如何处理得到焦点和失去焦点之间的矛盾,555

kangking

Private Sub TreeView1_NodeClick(ByVal Node As Object)
    Dim nod As Node
    For Each nod In TreeView1.Nodes
        If Node = nod Then
            '改变颜色和粗细
            With Node
                .ForeColor = vbRed
                .Bold = True
                .BackColor = vbGreen

            End With
        Else
            '恢复原颜色和粗细
            With nod
                .ForeColor = vbBlack
                .Bold = False
                .BackColor = vbYellow

            End With
        End If

    Next



End Sub

上面的代码虽不尽人意，可以参考一下。

简

先谢谢kangking 朋友了。