怎样让DW的列在点击时标题的边框由3D raise改为 3D lower？

来源： 作者： 出处：巧巧读书 2006-09-02 进入讨论组

• 关 键 词：
• excel

　　问：我想做一个象excel那样能当鼠标点一下那列时,标题的边框由3D raise改为 3D lower,请问怎么实现？

答：
1、首先定义Instance变量用于保存上次的点击对象，这样便可以恢复样式。

string is_objectname

2、在数据窗口中利用GetObjectAtPointer函数得到当前用户点击的对象，然后改变相应的样式，具体代码如下：

//数据窗口Clicked事件

String dwobjectname

//得到当前点击的对象
dwobjectname = this.GetObjectAtPointer()

//恢复上次点击对象的样式
if not isnull(is_objectname) and trim(is_objectname) <> "" then
dw_1.modify(is_objectname + ".border = 6")
end if

long ll_pos

//分别读取对象名称与行数
ll_pos = pos(dwobjectname,'~t')

is_objectname = left(dwobjectname,ll_pos - 1)

//如果用户点击文本，则返回。
if right(is_objectname,2) = "_t" then return

string ls_row

ls_row = right(dwobjectname,len(dwobjectname) - ll_pos)

//修改点击对象当前行的样式
dw_1.modify(is_objectname + ".border = '6~tIf(getrow()=" + ls_row + ",5,6)'")

本方法可以应用到别的风格设计上，如果用户使用别的方式切换焦点时，还必须在相应的实践中编程。

摆渡人工作室有例子下载 http://www.pbsite.com

此题由摆渡人工作室站长ferryman回答

请保留地址 http://www.qqread.com/dreamweaver/2006/10/e241558.html进入讨论组讨论。

【收藏此文】【大 中 小】【打印】【关闭】

较早的文章：在网页中做出一根竖的线有几种办法

较新的文章：怎样用好DREAMWEAVER