- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [原创]开源一个"伪"分页控件 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=177674)
-- 发布时间：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
自定义函数写的很详细，新手看了也能明白啥意思：
如果你有更好更简洁的方式也可以指点一下，我就半桶水，希望多多指教
希望能给狐友们贡献点力量，做出更好看，更容易维护的系统
希望能给狐友们贡献点力量，做出更好看，更容易维护的系统
-- 发布时间：2022/5/30 18:57:00
--
-- 发布时间：2022/5/30 20:31:00
--
多谢分享。