主题：2014年8月11日更新，史上最快的Foxtable问世(第三次上传)。

Dim CmdDock As C1Command.C1CommandDock
Dim tbc As WinForm.TabControl = Args(0)
Dim TabCtl As C1Command.C1DockingTab = tbc.BaseControl
Dim f As WinForm.Form = tbc.Form
Dim Location As String = "b"
Dim AutoHide As Boolean = Args(1)
Dim ParentControl As WinForm.Control = Nothing
Dim cnm As String
Dim dindex As Byte = 0
'-----获得变量-----
Select Case Args.Length
    Case 3
        Location = Args(2)
    Case 4
        Location = Args(2)
        ParentControl = Args(3)
    Case 5
        Location = Args(2)
        ParentControl = Args(3)
        dindex = Args(4)
End Select
CmdDock = New C1Command.C1CommandDock
CmdDock.Name = rand.NextString(8)
CmdDock.BackColor = System.Drawing.SystemColors.Control
'CmdDock.DockingStyle = C1Command.DockingStyle.VS2005
CmdDock.AutoDockTop = False
CmdDock.AutoDockBottom = False
'-----停靠位置-----
Select Case Location
    Case "l"
        CmdDock.Dock = Windows.Forms.DockStyle.Left
    Case "r"
        CmdDock.Dock = Windows.Forms.DockStyle.Right
    Case "b"
        CmdDock.Dock = Windows.Forms.DockStyle.Bottom
End Select
'-----父停靠控件-----
If ParentControl IsNot Nothing Then
    cnm = ParentControl.Name
End If
If ParentControl Is Nothing Then
    f.Panel.Controls.Add(CmdDock)
ElseIf Typeof ParentControl Is winform.Panel Then
    f.Controls(cnm).BaseControl.Controls.Add(CmdDock)
ElseIf Typeof ParentControl Is winform.SplitContainer Then
    f.Controls(cnm).BaseControl.Panel2.Controls.Add(CmdDock)
ElseIf Typeof ParentControl Is winform.TabControl Then
    f.Controls(cnm).BaseControl.Tabpages(dindex).Controls.add(CmdDock)
End If
TabCtl.VisualStyle = C1Command.VisualStyle.Office2007Blue
TabCtl.HotTrack = True
TabCtl.ShowCaption = True
'TabCtl.ShowTabList = True
TabCtl.CanAutoHide = True
TabCtl.CanMoveTabs = False
CmdDock.Controls.Add(TabCtl)
TabCtl.AutoHiding = AutoHide

刚刚升级到8.12，发布没问题，速度刷刷的，狐爸威武

最新版，8.12，顶呱呱。

给力，顶

请恢复一下全局变量的精灵功能，写代码的过程中很好用，也非常实用。

 

此主题相关图片如下：老的全局代码精灵.jpg


此主题相关图片如下：新的全局代码精灵.jpg

先顶下

更新的很愉快的啊

 bug？开发版

 

 http://foxtable.com/bbs/dispbbs.asp?boardid=2&Id=55171