改变 TreeView 的背景
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
Set nodX = TreeView1.Nodes.Add(, , "R", "Root")
Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C1", "Child 1")
Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C2", "Child 2")
Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C3", "Child 3")
Set nodX = TreeView1.Nodes.Add("R", tvwChild, "C4", "Child 4")
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
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
分享到:
相关推荐
使用VB进行TreeView目录树背景颜色以及文字样式进行设置。
treeview节点在鼠标放上去时可以设置变色,但是选中后鼠标离开不能保持变色,本资源用javascript脚步实现选中离开后依然保持变色,直到选中另一个节点
摘要:VB源码,界面编程,TreeView,树控菜单 ...VB调节TreeView树控菜单控件的背景色,改变树控菜单的颜色值,通过右侧的滑块来调节TreeView控件的颜色值,不常用,不过作为一项VB技巧,应该掌握。 运行环境:Windows/VB6
为TreeView定义背景图像VB应用实例,可生成一些外观漂亮的树形菜单
更改滚动条背景色,此代码来自别人,非本人所写,本人看后觉得不错,发上来贡献下,小拿点下载分。
C# Winform TreeView控件焦点消失,背景色丢失重绘
TreeView的基本操作 1.增加顶节点 2.增加分节点 3.删除所选节点 4.预防错误的发生 5.补充说明: 6.添加弹出式菜单(有点难) 7.改变背景颜色(调用 API 函数)
详细介绍VB6.0中TreeView控制的使用方法
23,listtips.ZIP listbox中使每一item有不同的tip(2KB) 24,newctl.ZIP 动态创建控件的例子,解决了vb5中不能"无中生有"的毛病(2KB) 25,colourdg.ZIP 调用windows的颜色对话框, 不需用到...
利用它,你可以抓下屏幕上的任何东西(293KB) 49,URSample.ZIP 一个系统权限控制控件UserRight(113KB) 50,coolbutton.ZIP 具有IE风格的按钮控件,可设置边框式样,背景 的透明特性,字体的大小颜色(34...
本DataGridView打印控件和.NET打印控件5.6版(含报表模板设计组件)2014年6月22日修改完成,完全免费,在.NET2.0及以上环境下都可以使用(VB打印、C#打印都是可以的),有帮助文档与使用实例。 与上一版本的5.5版...
利用它,你可以抓下屏幕上的任何东西(293KB) 49,URSample.ZIP 一个系统权限控制控件UserRight(113KB) 50,coolbutton.ZIP 具有IE风格的按钮控件,可设置边框式样,背景 的透明特性,字体的大小颜色(34...
1、强大的DataGridView打印功能,不仅可以以多种形式(普通打印、分栏打印、跨页打印、工资条打印)打印DGV表格,基本上能完全按DGV控件本身设置的格式如字体、字号、背景颜色、前景颜色、单元格对齐方式等打印出来...
1、强大的DataGridView打印功能,不仅可以以多种形式(普通打印、分栏打印、跨页打印、工资条打印)打印DGV表格,基本上能完全按DGV控件本身设置的格式如字体、字号、背景颜色、前景颜色、单元格对齐方式等打印出来...
利用它,你可以抓下屏幕上的任何东西(293KB) 49,URSample.ZIP 一个系统权限控制控件UserRight(113KB) 50,coolbutton.ZIP 具有IE风格的按钮控件,可设置边框式样,背景 的透明特性,字体的大小颜色(34...
1、强大的DataGridView打印功能,不仅可以以多种形式(普通打印、分栏打印、跨页打印、工资条打印)打印DGV表格,基本上能完全按DGV控件本身设置的格式如字体、字号、背景颜色、前景颜色、单元格对齐方式等打印出来...
HttpModule 实现 ASP.Net (*.aspx) 中文简繁体的自动转换,不用修改原有的任何代码,直接部署即可! 服务器自定义开发二之客户端脚本回发 Web开发: 使用URL重写WEB主题切换 如何在Asp.Net1.1中实现页面模板(所谓的...
1、强大的DataGridView打印功能,不仅可以以多种形式(普通打印、分栏打印、跨页打印、工资条打印)打印DataGridView表格,基本上能完全按DataGridView控件本身设置的格式如字体、字号、背景颜色、前景颜色、单元格...