- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 筛选目录树靠右边代吗出错 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=123132)
-- 发布时间：2018/8/8 15:44:00
-- 筛选目录树靠右边代吗出错
我的需求：把“TabControl”放倒“Controls("SplitContainer1").Panel2”这个里面，而不是放倒整个界面上。
\'筛选设置左侧停靠-------------------------------
Dim CmdDock As New C1Command.C1CommandDock
CmdDock.Name = "CmdDock"
CmdDock.BackColor = System.Drawing.SystemColors.Control
CmdDock.Dock = Windows.Forms.DockStyle.Left
CmdDock.AutoDockTop = False
CmdDock.AutoDockBottom = False
CmdDock.DockingStyle = C1Command.DockingStyle.VS2005
e.Form.Panel.Controls.Add(CmdDock)
Dim tbc As WinForm.TabControl = e.Form.Controls("TabControl")
e.Form.Controls("SplitContainer1").Panel2.AddControl(tbc)
Dim TabCtl As C1Command.C1DockingTab = e.Form.Controls("TabControl").BaseControl
TabCtl.VisualStyle = C1Command.VisualStyle.Office2007Blue
TabCtl.HotTrack = True
TabCtl.ShowCaption = True
TabCtl.ShowTabList = True
TabCtl.CanAutoHide = True
CmdDock.Controls.Add(TabCtl)
TabCtl.Autohiding = True \'关闭页面集合
-- 发布时间：2018/8/8 15:46:00
--
具体实例发上来测试
-- 发布时间：2018/8/8 16:04:00
--
e.Form.Panel.Controls.Add(CmdDock)
改成
e.Form.Controls("SplitContainer1").basecontrol.Panel2.Controls.Add(CmdDock)
-- 发布时间：2018/8/8 16:08:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:aaaadddd.table |
-- 发布时间：2018/8/8 16:35:00
--
认认真真看3楼。