2012-02-08 10:07:07| 分类: PB | 标签:pb |字号大中小 订阅
一.定义实例变量
Boolean ib_flag = false
String is_OldColor
二.在constructor事件中写代码
is_OldColor = This.Describe("datawindow.detail.color")
三.创建鼠标左键单击事件pbm_dwnlbuttonclk,代码如下:
ib_flag = true
四.创建鼠标移动事件pbm_dwnmousemove,代码如下:
string ls_dwoname
string ls_temp
String ls_name
String modstring
if ib_flag = true then//鼠标左键是否按下
ls_dwoname=GetObjectAtPointer() //获取鼠标经过栏位的名称和行号
ls_name = trim(mid(ls_dwoname,1,Pos(ls_dwoname,'~t') - 1))//栏位名称
ls_temp = trim(Mid(ls_dwoname,Pos(ls_dwoname,'~t') + 1))//行号
//This.Modify("datawindow.detail.color='0~tif(getrow()=" + ls_temp + ",rgb(25,200,240)," + is_OldColor + ")'") //当前行整行变背景色
//dw_1.object.inputtime.background.mode=0//要设置模式为0或2,否则无法更改背景色
//dw_1.Modify(ls_name + ".background.mode=2~t" ) //要设置模式为0或2,否则无法更改背景色
modstring = ls_name + ".background.mode=2~t" + trim(ls_name)+".background.Color='0~tif(getrow()=" + ls_temp + ",rgb(25,200,240)," + is_OldColor + ")'"
dw_1.modify(modstring)
end if
五.创建鼠标左键被松开事件pbm_dwnlbuttonup,代码如下:
ib_flag = false
联系客服