您现在的位置是： 软件 > 开发者网络 > 程序方舟 > 开发专栏 > VB开发 > 正文
·速成电脑精英（包分配）白领高薪一族从这里开始



T O P 排 行
-Java套接字编程（下）
-MediaStudio Pro 6.5教程
-三款卸载软件最新试用
-基于Visual C++的Winsock API研究

网 校 热 门
SENDMESSAGE函数巧应用
2001-11-24· ·陈锐··yesky

1 2 3  下一页


　　在这一期的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类型，关于这个问题，我会在最后的一章中做介绍。

1 2 3  下一页

■ 相关内容
　API实现完美的图片出现效果
感谢 访问天极网，如果您觉得该文章涉及版权问题，请看这里！