广告：
网页制作参考
千千学园
雨路开发频道
雨路技术文档
技术问答
编程技术

作者： unknow

此文章献给想美化程序界面的pb程序员。

一.载入位图资源并创建PatternBrush作为填充背景图的刷子
long ll_bmp
long h_deskdc
long ll_memDc

if ih_BkBrush>0 then
 deleteObject(ih_BkBrush)
 ih_BkBrush=0
end if

h_deskdc =GetDc(0)
//载入图片
ll_bmp = LoadImage(0,BMPBkName,0,0,0,16)
//失败
if ll_bmp = 0 then
 releaseDc(0,h_deskdc)
 return
end if
ll_memDC = CreateCompatibleDC(h_deskdc)
//选入到场景
SelectObject(ll_memDC,ll_bmp)
//创建绘制背景图的刷子
ih_BkBrush =CreatePatternBrush(ll_bmp)
//释放不需要的资源
releaseDc(0,h_deskdc)
Deleteobject(ll_bmp)
DeleteDc(ll_memDC)


二.给listview加背景图
1.得到listview客户区域矩形
getClientRect(handle(this),lvclientRect)

2.在listview中以pbm_erasebkgnd为事件id,自定义事件ue_erasebkgnd ,script如下 
if ih_BkBrush>0 then
 FillRect(hdc,lvClientrect,ih_BkBrush)
 return 1
end if

3.当listview的显示风格为listviewreport!,listviewlist!时候,拖动滚动条时候会出现挤压需要以pbm_vscroll和pbm_hscroll作为eventid自定义事件ue_vscroll，ue_hscroll。
if ih_BkBrush>0 and (View=listviewreport! or View=listviewlist!) then
 if (scrollcode<>SB_ENDSCROLL) and (scrollcode<>SB_THUMBPOSITION) then
  InvalidateRect(handle(this),lvclientRect,1)
 end if
end if
尽管如此，在上述两种风格中拖动滚动条依然有闪烁的情况，我还没有能够解决，欢迎大家提出意见。

4.如果想要listview中item的文本和图片背景透明，只需调用以下代码
Constant Long CLR_NONE = 4294967295
Constant Long LVM_FIRST   =4096
Constant Long LVM_SETTEXTBKCOLOR = (LVM_FIRST + 38)
Constant Long LVM_GETIMAGELIST = (LVM_FIRST + 2)
Constant Long LVM_SETBKCOLOR = (LVM_FIRST + 1)
Constant Long  LVSIL_NORMAL= 0
Constant Long  LVSIL_SMALL=1
Constant Long  LVSIL_STATE=2
//让文本的背景色透明
Send(handle(this),LVM_SETTEXTBKCOLOR,0,CLR_NONE)
//让图片的背景色透明
Send(handle(this),LVM_SETBKCOLOR,0,CLR_NONE)

此外，如果使用pb自带的图片，需要将PictureMaskColor设置为Silver。

三.给treeview加背景图
    如果按照上述listview的方法给treeview控件添加背景图，也可以基本实现，但是在树的子项展开，收缩时候以及拖动滚动条时会挤压图形，如果用setredraw控制会出现严重的闪烁情况。此外树的子项的文本和图片背景也不能透明。

1.我参考了其他程序语言实现的例程,基本都会在WM_PAINT事件中处理，因此我以pbm_paint作为eventid自定义事件ue_paint。但由于此事件的参数Hdc在任何情况下均为0，所以我猜测在pb中，此事件只是在调用WindowProc处理WM_PAINT消息前执行，并没有使用beginPaint开始进行绘图操作。
   要让树的子项的文本和图片背景透明，只需要做一些光栅运算就可以了
   相关代码如下：
if ih_BkBrush>0 then

 if message.WordParm >0 then
  //由send函数带WordParm参数触发，不执行下面的操作
  return 0
 end if
 
 tagPAINTSTRUCT ps
 //开始paint操作
 HDC=BEGINPAINT(handle(this),ps)
 long memdc,maskdc,ResultDc;
 long hbitmap;
 long li_RCWidth,li_RCHeight
 
 li_RCWidth=tvclientRect.right -tvclientRect.left
 li_RCHeight=tvclientRect.bottom -tvclientRect.top
 ResultDc=CreateCompatibleDC(hdc);
 hbitmap=CreateCompatibleBitmap(hdc,li_RCWidth,li_RCHeight);
 SelectObject(ResultDc, hbitmap );
 deleteObject(hbitmap)
 
 //将背景图绘制到设备场景ResultDc上
 FillRect(ResultDc,tvclientRect,ih_BkBrush)
 
 // create a compatible memory dc
 memdc=CreateCompatibleDC(hdc);
 hbitmap=CreateCompatibleBitmap(hdc,li_RCWidth,li_RCHeight);
 SelectObject(memdc, hbitmap );
 deleteObject(hbitmap)
 //将tv的内容绘制到设备场景memdc上
 send(handle(this),WM_PAINT,memdc, 0)
 
 // create mask dc
 maskdc=CreateCompatibleDC(hdc);
 hbitmap=CreateBitmap(li_RCWidth,li_RCHeight,1, 1,0);
 SelectObject(maskdc, hbitmap );
 deleteObject(hbitmap)
 //只有单色
 BitBlt(maskdc,0,0,li_RCWidth,li_RCHeight,memdc,0,0,SRCCOPY);
 
 SetBkColor(memdc,RGB(0,0,0));
 SetTextColor(memdc,RGB(255,255,255))
 //白色替换为黑色
 BitBlt(memdc,0,0,li_RCWidth,li_RCHeight,maskdc,0,0,SRCAND);
 
 //通过and操作，将item和文本置为黑色添加到背景图上
 BitBlt(ResultDc,0,0,li_RCWidth,li_RCHeight,maskdc,0,0,SRCAND);
 //通过or操作，将treeitem替换为原有颜色
 BitBlt(ResultDc,0,0,li_RCWidth,li_RCHeight,memdc,0,0,SRCPAINT);
 
 //将合并后的图copy到hdc上
 BitBlt(hDc,0,0,li_RCWidth,li_RCHeight,ResultDc,0,0,SRCCOPY);

 deleteDc(memdc)
 deleteDc(maskdc)
 deleteDc(ResultDc)
 //结束paint操作
 endpaint(handle(this),ps)
end if

由于做了多次的位图处理操作，在配置较低的机器上可能会有延迟的现象，所以treeview控件的长度和宽度不要太大，子项的数目应该控制在合理的范围内。

2、由于我们在ue_paint事件中已经对背景进行了绘制，因此需要屏蔽默认的刷新背景操作。
ue_erasebkgnd：
if ih_BkBrush>0 then
 //不执行默认的消息处理程序
 return 1
end if

3.对于treeview由于子项展开，收缩时候会挤压图形，需要itemcollapsin、itemexpanding和selectchanging事件控制从而使整个控件重画。
if ih_BkBrush>0 then InvalidateRect(handle(this),tvclientRect,0)
 
4、对于由于滚动条拖动产生的图形积压，也需要做类似处理。
pbm_vscroll和pbm_hscroll：
if ih_BkBrush>0 and (scrollcode<>SB_ENDSCROLL) and (scrollcode<>SB_THUMBPOSITION) then
 InvalidateRect(handle(this),tvclientRect,0)
end if

在这里我只对程序的关键实现部分作了说明，省略了相关的变量、外部函数、结构声明和其他部分。完整的pb8例程可在 
http://www.tiantiansoft.com/dispbbs.asp?boardID=23&ID=934下载，欢迎大家作进一步探讨：）