数据窗口中鼠标拖曳选择数据栏位  

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