改变TreeView控件的背景色
来源:互联网 发布:贴纸软件 编辑:程序博客网 时间:2024/04/30 17:22
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&
Dim frmlastForm As Form
Private Sub Form_Load()
Dim nodX As Node
Me.Show
DoEvents
For i = 1 To 100
Set nodX = treeview1.Nodes.Add(, , "R" & i, "Root")
nodX.ForeColor = RGB(80, 0, 255)
Next
nodX.EnsureVisible
treeview1.style = tvwTreelinesText ' Style 4.
treeview1.BorderStyle = vbFixedSingle
End Sub
Private Sub Command1_Click()
Dim lngStyle As Long
Call SendMessage(treeview1.hWnd, TVM_SETBKCOLOR, 0, ByVal RGB(255, 0, 0))
'改变背景到红色
lngStyle = GetWindowLong(treeview1.hWnd, GWL_STYLE)
Call SetWindowLong(treeview1.hWnd, GWL_STYLE, lngStyle - TVS_HASLINES)
Call SetWindowLong(treeview1.hWnd, GWL_STYLE, lngStyle)
End Sub
- 改变TreeView控件的背景色
- 改变控件的背景色
- 改变MFC中控件的背景色
- 改变radio控件背景色
- Edit控件改变背景色
- Silverlight控件使用(二)改变 控件的背景色
- 改变MFC对话框背景色、控件内的字体颜色和背景色
- 改变MFC对话框背景色、控件内的字体颜色和背景色
- MFC改变对话框中的CEdit控件的背景色
- 如何在VC中改变控件的背景色
- 如何改变窗口和控件的背景色
- 改变对话框中的CEdit控件的背景色
- 窗体和其子控件背景色的改变
- 如何在VC中改变控件的背景色
- MFC改变控件的背景色
- 改变对话框中的CEdit控件的背景色
- 改变对话框的背景色
- 改变Button的背景色
- 服务器系统支持
- 服务器网络控制器
- 服务器SCSI控制器
- 服务器最大热插拔硬盘数
- SHTML教程
- 改变TreeView控件的背景色
- SQL Server 2000中的触发器使用
- C#开发终端式短信的原理和方法
- 编写安全的SQL Server扩展存储过程
- Compiling... ,Error spawning cl.exe解决办法
- 轻松控制uClinux嵌入式开发过程一(图)
- 移植是痛苦的
- 让程序来猜猜那个传说中经典的概率题
- 建此博客的缘由