Collapsible Panel [Resolved]

[teamdad]

Looking for any good examples of a collapsible panel control / module
that will work with vb.net 2002. The list below are one I have found
that don't work.

http://codeproject.com/cs/miscctrl/c...lepanelbar.asp

http://www.codeproject.com/aspnet/my...siblepanel.asp

http://www.thecodeproject.com/cs/miscctrl/TgXPPanel.asp


Any help is greatly appreciated.

[RichardAtherton]

define collapsible as setting the visible property to false would make it disappear

[igorsky]

Hello Teamdad,

I was looking for similar thing a wile ago I stumble across MS Visual Basic Power Pack. It has 7 controls in it one of them is TaskPane Control I believe this is what you are looking for. This link shows how to use the controls.

You can download the controls from Here

[teamdad]

Oops, forgot to add that one to my list. Thanks for the info though igorsky.
my problem is that I run VB.NET 2002 and though I wish I had VB.NET 2003
I havent found a free upgrade for it yet either.

Applies to:
Microsoft Visual Basic .NET version 2003

[igorsky]

The last link on the right hand side is VB Power Pack for VS 2002



Link

[teamdad]

Sweet!!! i'll be checking it out. I forgot to mention that I am a slow reader. I have been working on this bit of code but I am missing a way to set the bounds of the panel.

It lets you move the panel all right but it will let you pull it all the way off the forms edge or all the way back into itself and either case it disapears. It needs to have a way to set a limit like a form has MaximumSize and MinimumSize type limits.

Any thoughts?

Dim _mouseDown As Boolean = False


    Private Sub Panel1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseMove

        If _mouseDown = True Then
            Panel1.Width = e.X
        Else
            If e.X >= Panel1.Width - 3 Then
                Panel1.Cursor = Cursors.VSplit
            Else
                Panel1.Cursor = Me.Cursor
            End If
        End If

    End Sub

    Private Sub Panel1_MouseDown(ByVal sender As Object, _
    ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseDown

        _mouseDown = True
        Panel1.Cursor = Cursors.VSplit
    End Sub

    Private Sub Panel1_MouseUp(ByVal sender As Object, _
    ByVal e As System.Windows.Forms.MouseEventArgs) Handles Panel1.MouseUp

        _mouseDown = False
        Panel1.Cursor = Me.Cursor
    End Sub