主题：[求助]如何页签的拖动？

如题 ：怎么在TabControl中实施 页签 的 拖动 或 前移、后移效果？

Dim tab = e.form.controls("TabControl1").BaseControl

tab.CloseBox = 1
tab.CanMoveTabs = True
tab.CanCloseTabs = True

非常感谢谢

大师还有一个问题 ，怎么让第一个页签是固定的？

让第一个页签不能关，也不能移动

去编写Timertick事件

 

Dim tab = e.form.controls("TabControl1").BaseControl

If tab.TabPages(0).name <> "主菜单" Then
Dim p As C1.Win.C1Command.C1DockingTabPage = tab.TabPages("主菜单")
    tab.TabPages.Insert(0, p)
End If

If tab.SelectedIndex = 0 Then
    tab.CloseBox = 0
    tab.CanMoveTabs = False
    tab.CanCloseTabs = False
else
    tab.CloseBox = 1
    tab.CanMoveTabs = True
    tab.CanCloseTabs = True
End If

 

http://www.foxtable.com/webhelp/scr/1322.htm

 

刨根：

 做一个计划任务，写同样的代码。

 

 获取tab这样写

 

Dim tab = forms("窗口1").parent.parent