共5 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：界面分割条左侧默认隐藏
1楼
yxl2012 发表于：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
2楼
有点蓝 发表于：2024/1/30 21:20:00试试
sp.SplitterDistance = 0 '分隔条的初始位置
3楼
yxl2012 发表于：2024/1/30 21:24:00设置为0，就在也打不开了呀。
4楼
有点蓝 发表于：2024/1/30 21:28:00请上传实例测试
5楼
cd_tdh 发表于：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编辑过]
共5 条记录, 每页显示 10 条, 页签:
[1]