浅谈如何利用PB实现树型列表动态半透明提示.docxVIP

浅谈如何利用PB实现树型列表动态半透明提示4、创建用户函数wf_maketrans，用于实现半透明效果：Long hDCscr,bhandle,hdest,frmdc,BlendLng,copywidth,copyheight,copyleft,copytop,retlong copywidth2,copyheight2,copyleft2,copytop2,mledcLong xDeviation,yDeviationblendfunction BlendWindow lw_tmp//BlendLng =lend.SourceConstantAlpha = char(trans)CopyMemory2(BlendLng, Blend, 4)lw_tmp=frm.getparent()//lw_tmp.setredraw(true)copywidth = UnitsToPixels(frm.Width, XUnitsToPixels!)copyheight = UnitsToPixels(frm.Height, YUnitsToPixels!)copywidth2 = UnitsToPixels(mle.Width, XUnitsToPixels!)copyheight2 = UnitsToPixels(mle.Height, YUnitsToPixels!)//上述代码用于坐标体系转换frm.x = xposfrm.y = yposIf lw_tmp.Border false Then yDeviation = GetSystemMetrics(SM_CYCAPTION) + GetSystemMetrics(SM_CYFRAME) xDeviation = GetSystemMetrics(SM_CXFRAME)Else yDeviation = 0 xDeviation = 0End Ifif trim(lw_tmp.menuname) then yDeviation = yDeviation + GetSystemMetrics(SM_CYMENU)end if//也可以用CLIENTTOSCREEN进行转换copyleft = UnitsToPixels((lw_tmp.x + xpos), XUnitsToPixels!) + xDeviationcopytop = UnitsToPixels((lw_tmp.y + ypos), YUnitsToPixels!) + yDeviationcopyleft2 = UnitsToPixels(mle.x, XUnitsToPixels!)copytop2 = UnitsToPixels(mle.y, YUnitsToPixels!)//上述代码用于坐标体系转换hDCscr = GetDC(0)//获取屏幕的设备句柄hdest = CreateCompatibleDC(hDCscr)bhandle = CreateCompatibleBitmap(hDCscr, copywidth, copyheight)ret = SelectObject(hdest,bhandle)frmdc = getdc(handle(frm))mledc = getdc(handle(mle))//此句可加可不加，主要是起清除原来图象目的，防止图象重叠，VB中此处必须要.cls，因为它具有AUTOREDRAW能力//frm.setredraw(true)//mle.setredraw(true)//此处一定要等待一段时间，否则窗体来不及hide，就已经被重新抓屏了Sleep(100)ret = BitBlt(hdest, 0, 0, copywidth, copyheight, hDCscr, copyleft , copytop ,//上述代码即将屏幕的截图拷贝到内存缓存区域//VB中FORM具有AUTOREDRAW的属性可以自动重画，PB无此能力，只好在此处就得显示出来if ib_first then wf_setrgn(frm)end iffrm.Visible = Trueif ib_first then wf_setrgn(frm) ib_first = falseend ifret = AlphaBlend(frmdc, 0, 0, copywidth, copyheight, hdest, 0, 0, copywidth, copyheight, BlendLng)ret = AlphaBlend(mledc, 0, 0, copywidth2, copyheight2, hdest,