a亚洲精品_精品国产91乱码一区二区三区_亚洲精品在线免费观看视频_欧美日韩亚洲国产综合_久久久久久久久久久成人_在线区

首頁 > 學院 > 開發設計 > 正文

SendMessage函數巧應用

2019-11-18 17:44:02
字體：大 中 小
來源：轉載
供稿：網友
在這一期的SendMessage函數應用中，我將向大家介紹如何利用消息函數來擴展樹型列表(TreeView)控件的功能相信對于樹型列表控件大家十分的熟悉，典型的應用就是Windows資源管理器中的目錄列表。在VB中，樹型列表控件包含在MicrosoftWindowsCommonControl6.0（也可能是5.0，視你的VB或者系統版本而定）中。在WindowsAPI中，有一系列的以TVM_開頭的消息值，這些消息就是擴展樹型列表控件所特定的消息值，下面向大家介紹其中的一些應用。
1、設置樹型列表控件的背景顏色
首先做如下的定義：
調用：
CallSendMessage(TreeView1.hwnd,TVM－SETITEMHEIGHT,60,0)
上面的代碼將TreeView1的標題行高度設置到60像素高
3、為樹型列表控件中不同的標題行設置不同的提示
在第一期的ListBox控件介紹中，我向大家介紹了如何為列表中的每一個標題行設置不同的提示(ToolTEndSub
PrivateSubTreeView1_MouseMove(ButtonAsInteger,ShiftAsInteger,xAsSingle,yAsSingle)
DimptAAsTPoint
DimtfAsTVHITTESTINFO
DimtvAsTVITEM
DimhStrAsLong
DimhItemAsLong
DimastrAsString＊1024
Dimbstr
OnErrorGoToerrLab
`獲得當前光標所在的位置坐標
ptA.x=Int(x/Screen.TwipsPerPixelX)
ptA.y=Int(y/Screen.TwipsPerPixelY)
tf.pt=ptA
tf.flags=TVHT_ONITEMLABEL
`獲得光標所在的Item的句柄
hItem=SendMessageRef(TreeView1.hwnd,TVM_HITTEST,0,tf)
`如果未獲得句柄或者同上一次是同一個Item的句柄則退出
If((hItem<=0)Or(hItem=hItemPrv))ThenExitSub
hItemPrv=hItem
`分配一定的內存空間用以存儲Item的標題
hStr=GlobalAlloc(GMEM－FIXED,1024)
IfhStr>0Then
tv.mask=TVIF_TEXT
`獲取標題文本
tv.HTreeItem=hItem
`Item句柄
tv.pszText=hStr
tv.cchTextMax=1023
`發送TVM_GETITEM獲得標題文本
CallSendMessageRef(TreeView1.hwnd,TVM－GETITEM,0,tv)
`將標題文本拷貝到字符串astr中
CopyMemoryastr,hStr,1024
bstr=Left＄(astr,(InStr(astr,Chr(0))－1))
TreeView1.ToolTipText=bstr
`釋放分配的內存空間
GlobalFreehStr
EndIf
ExitSub
errLab:
ResumeNext
EndSub
運行上面的程序，當光標在TreeView1上面移動時，TreeView1的ToolTips就會根據光標所在的不同標題行而變動。
以上程序在Win98、Win2000，VB6下運行通過->

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 国产女人爽到高潮免费视频 | 精品一区二区三区不卡 | 婷婷色站| 亚洲午夜视频在线观看 | 亚洲中字幕 | 一区二区三区国产好 | 日韩av不卡在线播放 | 国产精品夜夜春夜夜爽久久电影 | 国产成人精品午夜 | 日韩成人在线免费视频 | 在线看黄色av | 看片国产 | aaaa网站| 在线免费黄色小视频 | 色综合天天| 黄色影片网址 | 天久久| 欧美亚洲国产一区 | 一区二区三区国产精品 | 日韩在线一区二区三区 | 色视频网站在线观看 | 欧美精品久久久 | 欧美日韩高清在线一区 | 米奇狠狠操 | 国产精品久久久久毛片软件 | 狠狠干美女 | 国产免费观看一区二区三区 | 韩国精品一区二区三区 | 国产高清精品一区二区三区 | 免费看片一区二区三区 | 九九天堂 | 午夜剧场欧美 | 国产精品一区二区三区在线 | 久草青青 | 欧美一区二区三区在线观看 | 国产成人精品网 | 91免费国产| 一级视频在线免费观看 | 久久精品播放 | 最近韩国日本免费高清观看 | 91社区在线观看高清 |