在这一期的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 然后再作如下调用: