可显示/隐藏左边控件的Splitter
来源:互联网 发布:什么拼图软件好用 编辑:程序博客网 时间:2024/05/01 13:11
有些软件中的splitter中间有一个按钮,点击后可显示/隐藏左边的控件,如WPS就是这样。在.NET中也自定义了一个。
类代码:
Public Class mySplitter
Public Shared Sub AddShowHideEvent(ByVal sl As Splitter)
Dim lbl As New Label
lbl.Text = "3"
lbl.Font = New System.Drawing.Font("Marlett", 7.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(2, Byte))
lbl.AutoSize = True
lbl.Location = New Point(-3.5, sl.Height / 2 - lbl.Height)
lbl.Cursor = Cursors.Hand
lbl.ForeColor = Color.Red
sl.Controls.Add(lbl)
sl.Width = 3.5
AddHandler lbl.Click, AddressOf lbl_Click
AddHandler sl.Resize, AddressOf splitter_Resize
Dim tt As New ToolTip
tt.SetToolTip(lbl, "隐藏左边的的控件")
lbl.Tag = tt
End Sub
Private Shared Sub lbl_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Dim lbl As Label = CType(sender, Label)
Dim targetctrl As Control
Dim sl As Splitter = CType(lbl.Parent, Splitter)
Dim pctrl As Control = sl.Parent
For Each temp As Control In pctrl.Controls
If Not temp.Equals(sl) Then
If sl.Dock = DockStyle.Left Then
If temp.Dock = DockStyle.Left AndAlso _
(Not temp.Visible OrElse temp.Left < sl.Left) Then
targetctrl = temp
Exit For
End If
ElseIf sl.Dock = DockStyle.Top Then
If temp.Dock = DockStyle.Top AndAlso _
(Not temp.Visible OrElse temp.Top < sl.Top) Then
targetctrl = temp
Exit For
End If
End If
End If
Next
If Not targetctrl Is Nothing Then
Dim tt As ToolTip = CType(lbl.Tag, ToolTip)
If lbl.Text = "3" Then
lbl.Text = 4
tt.SetToolTip(lbl, "显示左边的的控件")
targetctrl.Visible = False
Else
lbl.Text = 3
tt.SetToolTip(lbl, "隐藏左边的的控件")
targetctrl.Visible = True
End If
End If
End Sub
Private Shared Sub splitter_Resize(ByVal sender As Object, ByVal e As System.EventArgs)
Dim sl As Splitter = CType(sender, Splitter)
Dim lbl As Label = sl.Controls(0)
lbl.Location = New Point(-3.5, sl.Height / 2 - lbl.Height)
End Sub
End Class
使用时,在窗体的初始化代码中加入如下所示的红色代码即可:
Public Sub New()
MyBase.New()
'该调用是 Windows 窗体设计器所必需的。
InitializeComponent()
'在 InitializeComponent() 调用之后添加任何初始化
mySplitter.AddShowHideEvent(Me.Splitter1)
End Sub
类代码:
Public Class mySplitter
Public Shared Sub AddShowHideEvent(ByVal sl As Splitter)
Dim lbl As New Label
lbl.Text = "3"
lbl.Font = New System.Drawing.Font("Marlett", 7.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(2, Byte))
lbl.AutoSize = True
lbl.Location = New Point(-3.5, sl.Height / 2 - lbl.Height)
lbl.Cursor = Cursors.Hand
lbl.ForeColor = Color.Red
sl.Controls.Add(lbl)
sl.Width = 3.5
AddHandler lbl.Click, AddressOf lbl_Click
AddHandler sl.Resize, AddressOf splitter_Resize
Dim tt As New ToolTip
tt.SetToolTip(lbl, "隐藏左边的的控件")
lbl.Tag = tt
End Sub
Private Shared Sub lbl_Click(ByVal sender As Object, ByVal e As System.EventArgs)
Dim lbl As Label = CType(sender, Label)
Dim targetctrl As Control
Dim sl As Splitter = CType(lbl.Parent, Splitter)
Dim pctrl As Control = sl.Parent
For Each temp As Control In pctrl.Controls
If Not temp.Equals(sl) Then
If sl.Dock = DockStyle.Left Then
If temp.Dock = DockStyle.Left AndAlso _
(Not temp.Visible OrElse temp.Left < sl.Left) Then
targetctrl = temp
Exit For
End If
ElseIf sl.Dock = DockStyle.Top Then
If temp.Dock = DockStyle.Top AndAlso _
(Not temp.Visible OrElse temp.Top < sl.Top) Then
targetctrl = temp
Exit For
End If
End If
End If
Next
If Not targetctrl Is Nothing Then
Dim tt As ToolTip = CType(lbl.Tag, ToolTip)
If lbl.Text = "3" Then
lbl.Text = 4
tt.SetToolTip(lbl, "显示左边的的控件")
targetctrl.Visible = False
Else
lbl.Text = 3
tt.SetToolTip(lbl, "隐藏左边的的控件")
targetctrl.Visible = True
End If
End If
End Sub
Private Shared Sub splitter_Resize(ByVal sender As Object, ByVal e As System.EventArgs)
Dim sl As Splitter = CType(sender, Splitter)
Dim lbl As Label = sl.Controls(0)
lbl.Location = New Point(-3.5, sl.Height / 2 - lbl.Height)
End Sub
End Class
使用时,在窗体的初始化代码中加入如下所示的红色代码即可:
Public Sub New()
MyBase.New()
'该调用是 Windows 窗体设计器所必需的。
InitializeComponent()
'在 InitializeComponent() 调用之后添加任何初始化
mySplitter.AddShowHideEvent(Me.Splitter1)
End Sub
- 可显示/隐藏左边控件的Splitter
- 可显示/隐藏左边控件的Splitter
- Splitter 控件的使用
- 点击隐藏显示左边菜单
- android api 中setVisibility( )的用法(可显示或隐藏布局或控件...)
- 客户端控件的显示/隐藏
- 显示隐藏控件的属性
- 控件的显示隐藏方法
- Android中PopupWindow显示在控件的左边
- javascript 控制frameset左边显示与隐藏
- jquery - 左边栏菜单隐藏/显示
- javascript 控制frameset左边显示与隐藏
- jquery - 左边栏菜单滑动隐藏/显示
- 隐藏MOSS2010 左边的导航
- JS-点击隐藏显示div里面的内容和改变左边icon
- swt/jface控件的隐藏与显示
- SWT控件的隐藏和显示
- 显示/隐藏指定id的html控件
- C/C++中的函数参数传递机制
- 女神假日插画2
- 女神假日插画3
- 女神假日插画4
- Oracle 常用SQL函数
- 可显示/隐藏左边控件的Splitter
- 设计模式的例子
- 2005/3.12/snow
- Oracle常用技巧和脚本
- Asp.net中Treeview终极解决方案!!
- 如何给表、列加注释?http://www.oradb.net
- UDP穿越NAT原理(转载)
- 浅谈ASP中Request对象获取客户端数据的顺序
- SQLPlus中的复制和粘贴技巧 http://www.oradb.net/sql/sqlplus_007.htm