pb用纯函数实现在数据窗口中模拟资源管理器鼠标单击动作动态排序,并显示排序箭头

原创 2001年08月06日 02:21:00
//函数名:f_dwsort(datawindow fdw_dw,dwobject fdwo_dwo) return none
//说明:用于在数据窗口中模拟资源管理器鼠标单击动作动态排序,并显示排序箭头
//调用规则:在数据窗口控件clicked!中写入f_dwsort(this,dwo)
//参数:fdw_dw datawindow
//    fdwo_dwo dwobject
//返回值:无
//autor:xiaoluoxy萧云

String ls_clicked_pos,ls_col,ls_format,ls_tag
Long ll_pos
string ls_text,ls_column[]
int li_i

ls_clicked_pos = fdwo_dwo.Name
ll_pos = Pos(ls_clicked_pos,'_t')

If ll_pos >0 Then
//设置排序
ls_col = Left(ls_clicked_pos,ll_pos -1)
ls_tag = fdwo_dwo.tag
If ls_tag = ls_col + "A"  Then
fdwo_dwo.tag = ls_col + "D"
ls_format = ls_col+" A"
ELSEIF ls_tag = ls_col + "D"  Then
fdwo_dwo.tag = ls_col + "A"
ls_format = ls_col+" D"
Else
fdwo_dwo.tag = ls_col + "D"
ls_format = ls_col+" A"
End If

//设置列标题
for li_i = 1 to long(fdw_dw.object.datawindow.column.count)
ls_column[li_i] = fdw_dw.describe("#" + string(li_i) + ".Name") //得到列名
ls_text =  fdw_dw.Describe(ls_column[li_i] + "_t.text")
if right(ls_text,2)="▽" or right(ls_text,2)="△" then
ls_text = left(ls_text,len(ls_text) - 2)
end if
fdw_dw.modify(ls_column[li_i] + "_t.text='"+ls_text + "'")
next

ls_text = fdw_dw.Describe(ls_clicked_pos + ".text")
if right(ls_text,2)="▽" or right(ls_text,2)="△" then
ls_text = left(ls_text,len(ls_text) - 2)
end if
if right(ls_format,1) = 'A' then
fdw_dw.modify(ls_clicked_pos + ".text='"+ls_text + "△'")
elseif right(ls_format,1) = 'D' then
fdw_dw.modify(ls_clicked_pos + ".text='"+ls_text + "▽'")
end if
fdw_dw.SetSort(ls_format)
fdw_dw.Sort()
End If

//本程序在pb6.5下通过测试

C++实现鼠标控制 封装常见的模拟鼠标、键盘的操作函数

API 或 MFC 视窗程序 里 有 函数, 例如 API 函数 设位置: BOOL SetCursorPos( int x, int y); 参数是屏幕坐标x,y 头文件 Winuse...
  • lxj434368832
  • lxj434368832
  • 2017年03月08日 16:46
  • 3635

Asp.net中,点击GridView表头实现数据的排序

一、实现该功能的基本工作。 1、  先添加一个GridView,取名为gvData。 2、  设置该控件的属性: 操作步骤如下。 设置属性:    ...
  • hxj135812
  • hxj135812
  • 2014年03月10日 10:57
  • 7171

OwlCarousel演示10种不同的调用方法

更多 >推荐特效 /Recommed 03-04Thinkphp定时执行任务 01-17PHP支持手势的手机端图片裁剪上传 01-12jQuery仿win10桌面QQ聊天ui 01-09boo...
  • gubacon
  • gubacon
  • 2016年03月05日 20:42
  • 3891

用纯pb实现资源管理器.rar

  • 2006年02月23日 09:05
  • 119KB
  • 下载

如何让窗口左边默认显示资源管理器

设定Windows Explorer的默认打开目录为资源管理器 转自:http://dannysheng.blog.163.com/blog/static/1308941892011111103...
  • hw_henry2008
  • hw_henry2008
  • 2011年08月24日 19:25
  • 4395

Java EE实现模拟一个资源管理器

进项目组,经理给培训。             任务描述:使用Java和JSP作出一个模拟资源管理器的东西,点击指定文件,文件则下载,文件夹则进入下一级目录。             遇到问题:1、使...
  • u010243452
  • u010243452
  • 2015年07月13日 13:52
  • 336

PB中实现数据窗口动态排序的三种方法

  • 2011年11月22日 11:20
  • 41KB
  • 下载

JTree实现资源管理器,过滤文件和动态监听

Api 1.6 JTree1. Summary:树中特定的节点可以由 TreePath(封装节点及其所有祖先的对象)标识, 或由其显示行(其中显示区域中的每一行都显示一个节点)标识。 展开 节点是...
  • oz965557340
  • oz965557340
  • 2016年08月13日 21:26
  • 143

模拟资源管理器-数据结构

  • 2011年05月31日 17:02
  • 1.05MB
  • 下载

数据结构模拟资源管理器

  • 2014年06月09日 17:26
  • 741KB
  • 下载
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:pb用纯函数实现在数据窗口中模拟资源管理器鼠标单击动作动态排序,并显示排序箭头
举报原因:
原因补充:

(最多只允许输入30个字)