在这一期的SendMessage函数应用中，我将向大家介绍如何利用消息函数来扩展树型列表(TreeView)控件的功能相信对于树型列表控件大家十分的熟悉，典型的应用就是Windows资源管理器中的目录列表。在VB中，树型列表控件包含在Microsoft
Windows Common Control 6.0（也可能是5.0，视你的VB或者系统版本而定）中。在Windows API中，有一系列的以TVM_
开头的消息值，这些消息就是扩展树型列表控件所特定的消息值，下面向大家介绍其中的一些应用。
1、设置树型列表控件的背景颜色
首先做如下的定义：
Private Declare Function SendMessage Lib "user32" Alias "Send
MessageA" (ByVal hwnd As Long,ByVal wMsg As Long, ByVal wParam As
Long,ByVal lParam As Long) As Long
Const TV－FIRST = ＆H1100
Const
TVM－SETBKCOLOR = TV_FIRST ＋ 29
然后再作如下调用：
Call SendMessage(TreeView1.hwnd, TVM－SETBKCOLOR, 0, RGB(255, 0,
0))
上面的SendMessage调用将TreeView1的背景颜色设置为红色。
大家可能注意到了。在上面的Sendmessage函数定义中，我们将lParam定义为
ByVal lParam As Long，而不是象前面的那些范例那样定义为Any或者String类型，关于这个问题，我会在最后的一章中做介绍。
|
