以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  自定义分页求助  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=177588)

--  作者:chen_sheng
--  发布时间:2022/5/27 14:54:00
--  自定义分页求助
用什么控件可以做类似下面的自定义分页


[此贴子已经被作者于2022/5/27 16:38:43编辑过]

--  作者:有点蓝
--  发布时间:2022/5/27 15:06:00
--  
普通按钮就可以了。样式设置为无,去掉边框,加上图标即可
--  作者:chen_sheng
--  发布时间:2022/5/27 17:33:00
--  
如何把状态栏插入到Panel的底部呢
e.Form.Controls(Panel).basecontrol.controls.Add(Strip.basecontrol)
上面的代码默认插入到Panel的顶部

--  作者:有点蓝
--  发布时间:2022/5/27 17:35:00
--  
Strip.basecontrol.dock  = system.Windows.Forms.DockStyle.Bottom

--  作者:chen_sheng
--  发布时间:2022/5/30 10:10:00
--  
如何把插入到Panel的底部的状态栏上方有边框可以和表明确的区域分割

图片点击可在新窗口打开查看此主题相关图片如下:1.png
图片点击可在新窗口打开查看


--  作者:cd_tdh
--  发布时间:2022/5/30 10:23:00
--  

可以设置Panel的边框啊,设置为这个样式:FixedSingle

比如:Forms("窗口1").Controls("Panel1").BorderStyle = BorderStyle.FixedSingle

[此贴子已经被作者于2022/5/30 10:27:47编辑过]

--  作者:chen_sheng
--  发布时间:2022/5/30 10:30:00
--  
谢谢指点  想分页的工具栏和表格直接有个线条区分,经过指点测试面板有线条看起来更加舒服,没有完全满足下分页工具栏和表的区分效果

Functions.Execute("addstrip", e, "工具栏1", "Panel1","_table1")
Functions.Execute("addstrip", e, "工具栏2", "Panel2","_table2")
e.Form.BaseForm.windowstate = 2  \'0:保持原窗口大小?1:最小化   2:满屏最大化

更加奇怪的事情发生了  运行了两个函数增加工具栏后发现独立窗体   在窗体设计模式下预览 打开最大化的代码没有生效  不起作用了


图片点击可在新窗口打开查看
[此贴子已经被作者于2022/5/30 10:46:51编辑过]

--  作者:chen_sheng
--  发布时间:2022/5/30 10:50:00
--  
问题2  预览模式下的传统有个分割线  发布后窗体没有了

图片点击可在新窗口打开查看此主题相关图片如下:429a304f-c772-4473-80fd-c97d0d454ea0.png
图片点击可在新窗口打开查看


--  作者:有点蓝
--  发布时间:2022/5/30 11:48:00
--  
请上传实例说明
--  作者:chen_sheng
--  发布时间:2022/5/30 18:37:00
--  

以下内容是专门发给有点蓝浏览



请用2020开发版打开  由于需求灵活的应用场景 需要用到动态编译


图片点击可在新窗口打开查看此主题相关图片如下:dingtalk_20220530190019.jpg
图片点击可在新窗口打开查看

上图为编译后效果


图片点击可在新窗口打开查看此主题相关图片如下:dingtalk_20220530190220.jpg
图片点击可在新窗口打开查看

[此贴子已经被作者于2022/5/30 19:03:04编辑过]