.NET开发

本类阅读TOP10

·NHibernate快速指南(翻译)
·vs.net 2005中文版下载地址收藏
·【小技巧】一个判断session是否过期的小技巧
·VB/ASP 调用 SQL Server 的存储过程
·?dos下编译.net程序找不到csc.exe文件
·通过Web Services上传和下载文件
·学习笔记(补)《.NET框架程序设计(修订版)》--目录
·VB.NET实现DirectDraw9 (2) 动画
·VB.NET实现DirectDraw9 (1) 托管的DDraw
·建站框架规范书之——文件命名

分类导航
VC语言Delphi
VB语言ASP
PerlJava
Script数据库
其他语言游戏开发
文件格式网站制作
软件工程.NET开发
可显示/隐藏左边控件的Splitter

作者:未知 来源:月光软件站 加入时间:2005-2-28 月光软件站

有些软件中的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





相关文章

相关软件