Foxtable(狐表)用户栏目专家坐堂 → [原创]开源一个"伪"分页控件


  共有4597人关注过本帖树形打印复制链接

主题:[原创]开源一个"伪"分页控件

帅哥哟,离线,有人找我吗?
昱飞哥
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:327 积分:2524 威望:0 精华:0 注册:2020/3/2 23:15:00
[原创]开源一个"伪"分页控件  发帖心情 Post By:2022/5/30 18:24:00 [只看该作者]

写给新手朋友,高手勿喷图片点击可在新窗口打开查看
相信大家都见过这种分页控件:图片点击可在新窗口打开查看,可能有些新手朋友是画按钮,但是好丑
其实完全可以用工具栏来做。这样好看,而且可以简单复用。



成品如下图:
图片点击可在新窗口打开查看

这个怎么做呢?

第一步:首先,咱们新增一个全局变量: _LoadPageToolBar,用来接收生成的分页加载工具栏,自定义函数里面要用
图片点击可在新窗口打开查看

第二步:将文件夹《Images》下的图片考到你的项目的《Images》文件夹下
图片点击可在新窗口打开查看

第三步:新增3个内部函数:
图片点击可在新窗口打开查看

这3个内部函数的作用:
GenerateLoadPageToolBar:用于在窗口中生成分页加载工具栏,一般在窗口的AfterLoad事件中调用,调用方法:
'生成分页工具栏
Functions.Execute("GenerateLoadPageToolBar",e.Form,Tables(e.Form.Name & "_Table1"))
e.Form.Strips("LoadPageToolBar").BaseControl.dock = System.Windows.Forms.DockStyle.Bottom


LoadPageToolBarCode:分页加载工具栏的每个Item的Click代码,一般在窗口的ItemClick事件中调用,调用方法:
Functions.Execute("LoadPageToolBarCode",e.StripItem,Tables(e.Form.Name & "_Table1"))

CurrentPageTextChanged :'分页加载工具栏的"CurrentPage"组合框的Text改变后触发的代码,一般在窗口的全局TextChanged事件中调用,调用方法:
Select Case e.Sender.Name
    Case "CurrentPage"
        Functions.Execute("CurrentPageTextChanged", Tables(e.Form.Name & "_Table1"))
End Select

自定义函数写的很详细,新手看了也能明白啥意思:
图片点击可在新窗口打开查看

如果你有更好更简洁的方式也可以指点一下,我就半桶水,希望多多指教图片点击可在新窗口打开查看希望能给狐友们贡献点力量,做出更好看,更容易维护的系统
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:开源分页控件.rar




 回到顶部
帅哥哟,离线,有人找我吗?
rjh4078
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐精 帖子:3360 积分:24780 威望:0 精华:0 注册:2012/3/26 21:47:00
  发帖心情 Post By:2022/5/30 18:57:00 [只看该作者]

图片点击可在新窗口打开查看

 回到顶部
帅哥,在线噢!
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:109347 积分:556379 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/5/30 20:31:00 [只看该作者]

多谢分享。

 回到顶部