资源描述:
《sendmessage函数巧应用》由会员上传分享,免费在线阅读,更多相关内容在教育资源-天天文库。
1、在这一期的SendMessage函数应用中,我将向大家介绍如何利用消息函数来扩展树型列表(TreeView)控件的功能相信对于树型列表控件大家十分的熟悉,典型的应用就是Windows资源管理器中的目录列表。在VB中,树型列表控件包含在MicrosoftWindowsCommonControl6.0(也可能是5.0,视你的VB或者系统版本而定)中。在WindowsAPI中,有一系列的以TVM_开头的消息值,这些消息就是扩展树型列表控件所特定的消息值,下面向大家介绍其中的一些应用。1、设置树型列表控件的背景颜色首先做如下的定义:PrivateD
2、eclareFunctionSendMessageLib"user32"Alias"SendMessageA"(ByValhwndAsLong,ByValwMsgAsLong,ByValwParamAsLong,ByVallParamAsLong)AsLongConstTV-FIRST=&H1100ConstTVM-SETBKCOLOR=TV_FIRST+29然后再作如下调用:CallSendMessage(TreeView1.hwnd,TVM-SETBKCOLOR,0,RGB(255,0,0))上面的SendMessage调用将TreeV
3、iew1的背景颜色设置为红色。大家可能注意到了。在上面的Sendmessage函数定义中,我们将lParam定义为ByVallParamAsLong,而不是象前面的那些范例那样定义为Any或者String类型,关于这个问题,我会在最后的一章中做介绍。2、设置树型列表控件标题行高度利用TVM_SETITEMHEIGHT消息可以设定控件的标题行的高度,该消息的定义及调用方法如下:定义:ConstTV_FIRST=&H1100ConstTVM-SETITEMHEIGHT=TV_FIRST+27PrivateDeclareFunctionSendM
4、essageLib"user32"Alias"SendMessageA"(ByValhwndAsLong,ByValwMsgAsLong,ByValwParamAsLong,lParamAsAny)AsLong调用:CallSendMessage(TreeView1.hwnd,TVM-SETITEMHEIGHT,60,0)上面的代码将TreeView1的标题行高度设置到60像素高3、为树型列表控件中不同的标题行设置不同的提示在第一期的ListBox控件介绍中,我向大家介绍了如何为列表中的每一个标题行设置不同的提示(ToolTips),在这里
5、为要向大家介绍如何为树型列表控件中的每一个标题设置不同的提示。同ListBox控件不通,树型列表控件中并没有根据光标位置获得标题行索引的消息,我们需要另外想办法。在TVM类消息中有一个TVM_HITTEST消息,发送该消息可以检测控件表面上的某一点,如果该点位于一个标题上,则返回该标题的句柄。而利用TVM_GETITEM消息,则可以根据标题句柄返回该标题行的文本。所以结合利用这两个消息可以获取光标所在标题行的标题文本。具体的范例代码如下:OptionExplicitPrivateTypeTPointxAsLongyAsLongEndType
6、PrivateTypeTVHITTESTINFOptAsTPointflagsAsLonghItemAsLongEndTypePrivateTypeTVITEMmaskAsLongHTreeItemAsLongstateAsLongstateMaskAsLongpszTextAsLongcchTextMaxAsLongiImageAsLongiSelectedImageAsLongcChildrenAsLonglParamAsLongEndTypeConstTV-FIRST=&H1100ConstTVM_HITTEST=TV-FIRST+1
7、7ConstTVM_GETITEM=TV-FIRST+12ConstTVHT-ONITEMLABEL=&H4ConstTVIF-TEXT=&H1ConstGMEM-FIXED=&H0PrivateDeclareFunctionSendMessageRefLib"user32"Alias"SendMessageA"(ByValhwndAsLong,ByValwMsgAsLong,ByValwParamAsLong,lParamAsAny)AsLongPrivateDeclareSubCopyMemoryLib"kernel32"Alias"R
8、tlMoveMemory"(ByValDestinationAsString,ByValSourceAsLong,ByValLengthAsLong)PrivateDeclare