Private Sub Command1_Click()
Dim ret As Long
Dim bk As Long
bk = RGB(11, 11, 11)ret = SendMessage(TreeView1.hwnd, TVM_SETBKCOLOR, 0, bk)
ret = SendMessage(TreeView1.hwnd, TVM_GETBKCOLOR, 0, 0)
End Sub
Dim ret As Long
Dim bk As Long
bk = RGB(11, 11, 11)ret = SendMessage(TreeView1.hwnd, TVM_SETBKCOLOR, 0, bk)
ret = SendMessage(TreeView1.hwnd, TVM_GETBKCOLOR, 0, 0)
End Sub
解决方案 »
- 大家都用哪些工具改善VB界面?网上有人说用DuiLib,我看了一下,效果是不错。
- 新手请教asc函数问题
- 请教VB中接收VC自定义消息的地址变量(指针)
- 请问怎样操作xml
- ~~~~~~~~~~~~~~~~~~~~~~~~~~我快要疯了!~~~~~~~~~~~~~~~~~~~~~
- 一个关于存储过程的问题!
- 请教高人:在VB里如何编程实现在某个目录下创建Access数据库?
- 如何从一个过程跳转到另一个过程的某一段代码?
- ListView的ListItem的Key属性不能为数字组成的字符串?
- 谁能提供一个将图片写入Access数据库的例子(不是写入图片保存路径,而是写入库中)?
- 请问如何能实现这个功能?
- 在MSDN中找不到的错误号,谁知道,,,急 ¥¥¥¥¥¥¥¥¥
如何控制TreeView的各种属性(提供背景色、前景色、字体等效果)
http://support.microsoft.com/default.aspx?scid=kb;en-us;Q178491