麻豆小视频在线观看_中文黄色一级片_久久久成人精品_成片免费观看视频大全_午夜精品久久久久久久99热浪潮_成人一区二区三区四区

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

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下運行通過->

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板： 亚洲精品一区国产精品丝瓜 | 毛片大全免费看 | 国产福利视频在线观看 | 日韩黄色免费在线观看 | 精品国产呦系列在线看 | 国产91在线免费 | 午夜亚洲视频 | 精品人人人人 | 99热久草 | 一区二区三区在线观看免费视频 | 欧美爱爱视频免费看 | 九九久久视频 | 一区二区三区欧美在线观看 | 久久久精品视频免费看 | 免费日本一区二区 | 一色桃子av大全在线播放 | 99精品视频免费看 | 精品久久久av | 免费午夜网站 | 成人wxx视频免费 | xxxxhd86日本护士hd | 日本黄色免费观看视频 | 国产精品久久久久久久久久久久久久久 | 羞羞网站在线观看入口免费 | 国产免费片 | 欧美成人黄色小视频 | 欧美日韩一 | 国产精品久久久久久久久久大牛 | 中文在线观看www | 欧美性受xxxx人人本视频 | 色中色在线播放 | 黄色av电影在线 | 免费99热在线观看 | 深夜视频在线 | 日韩视频在线不卡 | 91久久另类重口变态 | 黄网站在线免费 | 久久久久久久久浪潮精品 | 国产精品久久久久久久久久久久久久久久 | av在线观| 成人黄视频在线观看 |