以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]关于页面集合事件及切换效果  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=143713)
--  作者：工匠
--  发布时间：2019/12/2 15:28:00
--  [求助]关于页面集合事件及切换效果
老师好!
现计划用页面集合做看板,需要在多个页面集合之间按一定时间不间断反复循环切换显示,有个问题,请帮看看怎么优化
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:页面集合效果 - 副本.foxdb
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:ymjh.rar



1.在切换时,允许暂停切换,现按帮助在窗口做了个按钮开关,打开起作用了,关闭有时候不起作用,有时候连续点关闭多次才起作用(不能暂停循环切换显示)
2.在切换到第一个页面时需要执行A段代码,切换到第二个页面时执行B段代码....
3.现在切换页面时,页面会闪烁(需要不要闪烁),能不能实现切换页面,是那种从右往左移动效果
4.不同的页签标题位置,能不能设置不同的背景色+当前页面标题字体设置加粗/加大(设置需要字体)

图片点击可在新窗口打开查看此主题相关图片如下：搜狗截图20191202152627.jpg
图片点击可在新窗口打开查看

谢谢!

[此贴子已经被作者于2019/12/2 15:47:34编辑过]
--  作者：有点蓝
--  发布时间：2019/12/2 15:59:00
--  
1、到计时器里处理循环
2、根据当前页名称或者索引执行对应的代码即可，如：
Select Case tab.SelectedIndex
    Case 0
        代码1
    Case 1
        代码2
    Case 2
        代码3
    ……
End Select
4、页签一些设置，如果看不懂就不要用。页签的字体和大小只能统一设置

Dim t As WinForm.TabControl = e.Form.Controls("TabControl1")

Dim c1tab As C1.Win.C1Command.C1DockingTab = t.BaseControl
c1tab.CanAutoHide = True
c1tab.CanCloseTabs = True \'开启关闭按钮
c1tab.CanMoveTabs = True \'开启移动页面功能
c1tab.CloseBox = C1.Win.C1Command.CloseBoxPositionEnum.AllPages \'关闭按钮在所有页面显示
c1tab.SelectedTabBold = True \'选中页面标题文字加粗
c1tab.ShowTabList = True \'显示页面下拉列表
c1tab.TabSizeMode = C1.Win.C1Command.TabSizeModeEnum.Fit
c1tab.BorderStyle = System.Windows.Forms.BorderStyle.None \'去掉边框
c1tab.TabStyle= C1.Win.C1Command.TabStyleEnum.Rounded \'标题栏圆角效果
c1tab.VisualStyle = C1.Win.C1Command.VisualStyle.Custom \'使用自定义模式
\'c1tab.VisualStyleBase = C1.Win.C1Command.VisualStyle.WindowsXP
c1tab.TabAreaBackColor = Color.LightSteelBlue \'标题区域的背景色
c1tab.BackColor = Color.skyblue \'控件背景色

dim pg  = t.tabpages(0)
    pg.TabForeColorSelected= Color.Red \'选定项的标题颜色
    pg.TabBackColor = Color.Wheat \'标题背景色
    pg.TabBackColorSelected = Color.skyblue \'选定项的背景色
    pg.BackColor = Color.skyblue \'页面背景色