- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]如何页签的拖动？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=87594)
-- 发布时间：2016/7/14 11:22:00
-- [求助]如何页签的拖动？
如题 ：怎么在TabControl中实施 页签 的 拖动 或 前移、后移效果？
请大侠帮忙解答
-- 发布时间：2016/7/14 11:31:00
--
Dim tab = e.form.controls("TabControl1").BaseControl
tab.CloseBox = 1
tab.CanMoveTabs = True
tab.CanCloseTabs = True
-- 发布时间：2016/7/14 11:43:00
--
非常感谢谢
-- 发布时间：2016/7/14 11:51:00
--
大师还有一个问题 ，怎么让第一个页签是固定的？
-- 发布时间：2016/7/14 11:51:00
--
让第一个页签不能关，也不能移动
-- 发布时间：2016/7/14 12:08:00
--
去编写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
-- 发布时间：2016/7/14 13:49:00
--
刨根：
主窗口的页签与并列窗口的页签，如何不让主窗口页签移动，如何写代码？
-- 发布时间：2016/7/14 14:19:00
--
做一个计划任务，写同样的代码。
获取tab这样写
Dim tab = forms("窗口1").parent.parent