- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 界面分割条左侧默认隐藏 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=190310)
-- 发布时间：2024/1/30 21:19:00
-- 界面分割条左侧默认隐藏
请教下，我想界面一进去时，分割条左侧就处于隐藏状态（如下图），点击后在展开，该怎么操作？
afterload 代码如下：
_MainTab = e.Form.Controls("TabControl1")
Dim t As C1Command.C1DockingTab = e.Form.Controls("TabControl1").BaseControl
t.CanCloseTabs = True
t.VisualStyle = C1.Win.C1Command.VisualStyle.Office2007Silver
t.CloseBox = 2
AddHandler t.TabPageClosing, AddressOf _TabPageClosing
Dim sp As New SplitFormEx
_MainSplitFormEx = sp
e.Form.Panel.Controls.Add(sp)
sp.Dock = 5
sp.FixedPanel = 1 \'尺寸变化时,Panel保持不动
sp.SplitterDistance = 150 \'分隔条的初始位置
sp.panel1.Controls.Add(e.Form.Controls("NavBar1").BaseControl)
e.Form.Controls("NavBar1").Dock = 5
sp.panel2.Controls.Add(e.Form.Controls("TabControl1").BaseControl)
e.Form.Controls("TabControl1").Dock = 5
-- 发布时间：2024/1/30 21:20:00
--
试试
sp.SplitterDistance = 0 \'分隔条的初始位置
-- 发布时间：2024/1/30 21:24:00
--
设置为0，就在也打不开了呀。
-- 发布时间：2024/1/30 21:28:00
--
请上传实例测试
-- 发布时间：2024/1/31 9:06:00
--
此主题相关图片如下：qq截图20240131090748.jpg
If Forms("主窗口").Controls("SplitContainer1").Panel1.Collapsed = True Then
Forms("主窗口").Controls("SplitContainer1").Panel1.Collapsed = False
Else
Forms("主窗口").Controls("SplitContainer1").Panel1.Collapsed = True
End If
此主题相关图片如下：qq截图20240131090946.jpg
[此贴子已经被作者于2024/1/31 9:10:02编辑过]