浅谈如何利用PB实现树型列表动态半透明提示（二）（原

作者：BALLOONMAN2002 2004年6月26日 二、如何获取当前鼠标坐标对应NODE结点信息 1、新建一窗口，内含一TREEVIEW控件； 2、声明本地外部函数： Function ulong SendMessage1(ulong hwnd,ulong wMsg,ulong wParam,ref TVHITTESTINFO lParam) LIBRARY "user32.dll" ALIAS FOR "SendMessageA" Function ulong SendMessage2(ulong hwnd,ulong wMsg,ulong wParam,ref TVITEM lParam) LIBRARY "user32.dll" ALIAS FOR "SendMessageA" SUBROUTINE CopyMemory (ref string Destination , long Source, long Length) LIBRARY "kernel32" Alias for "RtlMoveMemory" Function ulong GlobalFree(ulong hMem) LIBRARY "kernel32.dll" Function ulong GlobalAlloc(ulong wFlags,ulong dwBytes) LIBRARY "kernel32.dll"注：上述API声明涉及到的结构请查阅MSDN或其他技术资料。 3、对于该TREEVIEW控件自定义用户事件UE_MOUSEMOVE（PBM_MOUSEMOVE），在此事件当中处理鼠标移动事件，发送TVM_HITTEST消息： tpoint ptA tvhittestinfo tf TVITEM tv ulong hItem,ll_1,ll_2,ll_3,hStr long ret,ll_x,ll_y string astr,bstr,ls_help ptA.x = UnitsToPixels(xpos, XUnitsToPixels!) ptA.y = UnitsToPixels(ypos, YUnitsToPixels!) tf.pt = ptA tf.flags = 4 hItem = SendMessage1(handle(tv_1),4369,0,tf) //注：上述4369为TVM_HITTEST //通过发送TVM_HITTEST消息来获取当前对应的NODE的句柄，，将当前NODE结点信息保存到结构变量 TF当中 If ((hItem <= 0) Or (hItem = hItemPrv)) Then return hItemPrv = hItem hStr = GlobalAlloc(0,1024) If hStr > 0 Then tv.mask = 1 tv.HTreeItem = hItem tv.pszText = hStr tv.cchTextMax = 1023 ret = SendMessage2(handle(tv_1), 4364, 0, tv) //注：上述4364为TVM_GETITEM //通过对当前NODE发送TVM_GETITEM消息，将当前NODE结点信息保存到结构变量 TV当中 astr = space(1024) //注：此处一定要分配足够空间，否则易非法操作 CopyMemory(astr, hStr, 1024) //bstr = Left(astr, (pos(astr, Char(0)) - 1)) ret = GlobalFree(hStr) ids_ds.setfilter("") ids_ds.filter() ret = ids_ds.find("name_gn = '" + astr + "'",1,ids_ds.rowcount()) if ret > 0 then ls_help = ids_ds.getitemstring(ret,"help") if (isnull(ls_help) or trim(ls_help) = "") then timer(0) iuo_tips.hide() else if is_help = ls_help then return end if iuo_tips.hide() iuo_tips.uf_set_text(ls_help,astr) ib_tipshow = false Timer(1) end if is_help = ls_help else timer(0) iuo_tips.hide() end if else timer(0) iuo_tips.hide() end if