您所在位置：主题：[原创]今天用TreeView有感
zhanghanyn
[专家分：220] 发布于 2008-04-18 17:07:00
今天开发程序用到了TreeView这个控件.
按客户的要求要其他的背景,和字体颜色,才发现居然不能通过属性设置!
搞了一个小时终于弄出来了.现在把代码附上.
声明API
Private Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long
Private Const TVM_SETBKCOLOR = 4381&
然后用
Call SendMessage(TreeView1.hWnd, TVM_SETBKCOLOR, 0, ByVal RGB(58, 110, 165)),
后面的 byval RGB(,,)就是你要的颜色了,这个前面必须要加 byval.不然的话颜色不对.
dim node1 as node
字体背景色node1.BackColor = RGB(58, 110, 165)
字体颜色node1.ForeColor = RGB(208, 231, 255)
哈哈,希望对新人有用
按客户的要求要其他的背景,和字体颜色,才发现居然不能通过属性设置!
搞了一个小时终于弄出来了.现在把代码附上.
声明API
Private Declare Function SendMessage Lib "User32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Long) As Long
Private Const TVM_SETBKCOLOR = 4381&
然后用
Call SendMessage(TreeView1.hWnd, TVM_SETBKCOLOR, 0, ByVal RGB(58, 110, 165)),
后面的 byval RGB(,,)就是你要的颜色了,这个前面必须要加 byval.不然的话颜色不对.
dim node1 as node
字体背景色node1.BackColor = RGB(58, 110, 165)
字体颜色node1.ForeColor = RGB(208, 231, 255)
哈哈,希望对新人有用