如何修改treeview的背景色
来源:互联网 发布:淘宝双十一计入销量吗 编辑:程序博客网 时间:2024/05/01 16:43
在通常情况下,treeview的背景色是不可以修改的,我们可以通过API实现,源码如下
Option Explicit
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 Declare Function GetWindowLong Lib "User32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "User32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Const GWL_STYLE = -16&
Private Const TVM_SETBKCOLOR = 4381&
Private Const TVM_GETBKCOLOR = 4383&
Private Const TVS_HASLINES = 2&
Private Sub Form_Load()
Dim nodex As Node
Dim i As Integer
Dim lStyle As Long
Call SendMessage(treeview1.hWnd, TVM_SETBKCOLOR, 0, ByVal RGB(255, 0, 0))
lStyle = GetWindowLong(treeview1.hWnd, GWL_STYLE)
Call SetWindowLong(treeview1.hWnd, GWL_STYLE, lStyle - TVS_HASLINES)
Call SetWindowLong(treeview1.hWnd, GWL_STYLE, lStyle)
treeview1.Style = tvwTreelinesPlusMinusPictureText
treeview1.BorderStyle = ccFixedSingle
With treeview1.Nodes
Set nodex = .Add(, , "R", "Root")
nodex.BackColor = RGB(255, 0, 0)
For i = 1 To 10
Set nodex = .Add("R", tvwChild, "C" & i, "Child " & i)
nodex.BackColor = RGB(255, 0, 0)
nodex.EnsureVisible
Next
End With
End Sub
完
- 如何修改treeview的背景色
- 如何修改treeview的背景色
- 如何修改treeview的背景色
- VB中如何修改treeview的背景色
- 如何修改对话框的背景色
- 改变TreeView控件的背景色
- 如何修改android studio背景色(包括project view的背景色)保护眼睛人人有责
- 如何修改DOJO的dijit.Dialog的背景色
- 我是如何实现UIalertView背景色的修改的
- 修改command的背景色
- RichEdit背景色的修改
- 修改eclipse的背景色
- 修改chrome的背景色
- 修改eclipse的背景色
- 修改eclipse的背景色
- 修改eclipse的背景色
- 修改eclipse的背景色
- 修改eclipse的背景色
- 使用JavaScript访问XML数据
- 如何用VB编写你自己的MSN即时通讯软件
- 对XML数据使用XMLConvert
- 如何制作平面式的listview列头
- XML在语音合成中的应用
- 如何修改treeview的背景色
- 用XSL翻译Web服务应用程序
- VB与Flash联合打造你的魅力程序
- XML数据库中几个容易混淆的概念
- 图形旋转
- 真正的公农历转换类for VB
- RFC 1982 SOCKS5 说明
- 利用XML开发留言板简单的例子
- 想用就用,VB基础代码