[求助]关于页面集合事件及切换效果 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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 '页面背景色

主题：[求助]关于页面集合事件及切换效果