SENDMESSAGE函数巧应用

在这一期的SendMessage函数应用中&＃xff0c;我将向大家介绍如何利用消息函数来扩展树型列表(TreeView)控件的功能相信对于树型列表控件大家十分的熟悉&＃xff0c;典型的应用就是Windows资源管理器中的目录列表。在VB中&＃xff0c;树型列表控件包含在Microsoft Windows Common Control 6.0&＃xff08;也可能是5.0&＃xff0c;视你的VB或者系统版本而定&＃xff09;中。在Windows API中&＃xff0c;有一系列的以TVM_ 开头的消息值&＃xff0c;这些消息就是扩展树型列表控件所特定的消息值&＃xff0c;下面向大家介绍其中的一些应用。



　　
1、设置树型列表控件的背景颜色



　　首先做如下的定义&＃xff1a;

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&＃xff0d;FIRST &＃61; &＃xff06;H1100 　　Const TVM&＃xff0d;SETBKCOLOR &＃61; TV_FIRST &＃xff0b; 29

　　然后再作如下调用&＃xff1a;

Call SendMessage(TreeView1.hwnd, TVM&＃xff0d;SETBKCOLOR, 0, RGB(255, 0, 0))

　　上面的SendMessage调用将TreeView1的背景颜色设置为红色。

　　大家可能注意到了。在上面的Sendmessage函数定义中&＃xff0c;我们将lParam定义为 ByVal lParam As Long&＃xff0c;而不是象前面的那些范例那样定义为Any或者String类型&＃xff0c;关于这个问题&＃xff0c;我会在最后的一章中做介绍。

　　2、设置树型列表控件标题行高度

　　利用TVM_SETITEMHEIGHT消息可以设定控件的标题行的高度&＃xff0c;该消息的定义及调用方法如下&＃xff1a;

　　定义&＃xff1a;

Const TV_FIRST &＃61; &＃xff06;H1100 　　Const TVM&＃xff0d;SETITEMHEIGHT &＃61; TV_FIRST &＃xff0b; 27 　　Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long,ByVal wMsg As Long,ByVal wParam As Long,lParam As Any) As Long

　

　　调用&＃xff1a;



　　

CallSendMessage(TreeView1.hwnd, TVM&＃xff0d;SETITEMHEIGHT, 60, 0)

　　上面的代码将TreeView1的标题行高度设置到60像素高



　　3、为树型列表控件中不同的标题行设置不同的提示



　　在第一期的ListBox控件介绍中&＃xff0c;我向大家介绍了如何为列表中的每一个标题行设置不同的提示(ToolTips)&＃xff0c;在这里为要向大家介绍如何为树型列表控件中的每一个标题设置不同的提示。



　　同ListBox控件不通&＃xff0c;树型列表控件中并没有根据光标位置获得标题行索引的消息&＃xff0c;我们需要另外想办法。在TVM类消息中有一个TVM_HITTEST消息&＃xff0c;发送该消息可以检测控件表面上的某一点&＃xff0c;如果该点位于一个标题上&＃xff0c;则返回该标题的句柄。而利用TVM_GETITEM消息&＃xff0c;则可以根据标题句柄返回该标题行的文本。所以结合利用这两个消息可以获取光标所在标题行的标题文本。具体的范例代码如下&＃xff1a;



Option Explicit Private Type TPoint

　　x As Long

　　y As Long

　　End Type

　　Private Type TVHITTESTINFO

　　pt As TPoint

　　flags As Long

　　hItem As Long

　　End Type

　　Private Type TVITEM

　　mask As Long

　　HTreeItem As Long

　　state As Long

　　stateMask As Long

　　pszText As Long

　　cchTextMax As Long

　　iImage As Long

　　iSelectedImage As Long

　　cChildren As Long

　　lParam As Long

　　End Type

　　Const TV&＃xff0d;FIRST &＃61; &＃xff06;H1100

　　Const TVM_HITTEST &＃61; TV&＃xff0d;FIRST &＃xff0b; 17

　　Const TVM_GETITEM &＃61; TV&＃xff0d;FIRST &＃xff0b; 12

　　Const TVHT&＃xff0d;ONITEMLABEL &＃61; &＃xff06;H4

　　Const TVIF&＃xff0d;TEXT &＃61; &＃xff06;H1

　　Const GMEM&＃xff0d;FIXED &＃61; &＃xff06;H0

　　Private Declare Function Send MessageRef Lib"user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long,ByVal wParam As Long,lParam As Any) As Long

　　Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (ByVal Destination As String&＃xff0c;ByVal Source As Long,ByVal Length As Long)

　　Private Declare Function GlobalAlloc Lib "kernel32" (ByVal wFlags As Long, ByVal dwBytes As Long) As Long

　　Private Declare Function GlobalFree Lib "kernel32" (ByVal hMem As Long) As Long

　　Dim hItemPrv As Long

　　Private Sub Form_Load()

　　Dim ndX As Node

　　&＃39;加入若干Item

　　Set ndX &＃61; TreeView1.Nodes.Add(, , "R", "Root")

　　Set ndX &＃61; TreeView1.Nodes.Add("R", tvwChild, "Key1", "Node1")

　　Set ndX &＃61; TreeView1.Nodes.Add("Key1", tvwChild, "SubKey1", "SubNode1")

　　Set ndX &＃61; TreeView1.Nodes.Add("SubKey1", tvwChild, "SubKeys1", "SubNode1")

　　Set ndX &＃61; TreeView1.Nodes.Add("Key1", tvwChild, "SubKey2", "SubNode2")

　　Set ndX &＃61; TreeView1.Nodes.Add("Key1", tvwChild, "SubKey3", "SubNode3")

　　Set ndX &＃61; TreeView1.Nodes.Add("Key1", tvwChild, "SubKey4", "SubNode4")

　　End Sub

　　Private Sub TreeView1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)

　　Dim ptA As TPoint

　　Dim tf As TVHITTESTINFO

　　Dim tv As TVITEM

　　Dim hStr As Long

　　Dim hItem As Long

　　Dim astr As String &＃xff0a; 1024

　　Dim bstr

　　On Error GoTo errLab

　　&＃39;获得当前光标所在的位置坐标

　　ptA.x &＃61; Int(x / Screen.TwipsPerPixelX)

　　ptA.y &＃61; Int(y / Screen.TwipsPerPixelY)

　　tf.pt &＃61; ptA

　　tf.flags &＃61; TVHT_ONITEMLABEL

　　&＃39;获得光标所在的Item的句柄

　　hItem &＃61; SendMessageRef(TreeView1.hwnd, TVM_HITTEST, 0, tf)

　　&＃39;如果未获得句柄或者同上一次是同一个Item的句柄则退出

　　If ((hItem <&＃61; 0) Or (hItem &＃61; hItemPrv)) Then Exit Sub

　　hItemPrv &＃61; hItem

　　&＃39;分配一定的内存空间用以存储Item的标题

　　hStr &＃61; GlobalAlloc(GMEM&＃xff0d;FIXED, 1024)

　　If hStr > 0 Then

　　tv.mask &＃61; TVIF_TEXT

　　&＃39;获取标题文本

　　tv.HTreeItem &＃61; hItem

　　&＃39;Item句柄

　　tv.pszText &＃61; hStr

　　tv.cchTextMax &＃61; 1023

　　&＃39;发送TVM_GETITEM获得标题文本

　　CallSendMessageRef(TreeView1.hwnd, TVM&＃xff0d;GETITEM, 0, tv)

　　&＃39;将标题文本拷贝到字符串astr中

　　CopyMemory astr, hStr, 1024

　　bstr &＃61; Left&＃xff04;(astr, (InStr(astr, Chr(0)) &＃xff0d; 1))

　　TreeView1.ToolTipText &＃61; bstr

　　&＃39;释放分配的内存空间

　　GlobalFree hStr

　　End If

　　Exit Sub

　　errLab:

　　Resume Next

　　End Sub

运行上面的程序&＃xff0c;当光标在TreeView1上面移动时&＃xff0c;TreeView1的ToolTips就会根据光标所在的不同标题行而变动。