frmexplorer.frm

This ActiveX control and Demo will allow you to dock your toolbars/forms to a mdiform much in the wa

VERSION 5.00
Object = "{AFC277E4-A825-11D4-ABF8-502B61C10000}#3.0#0"; "DOCKING.OCX"
Begin VB.Form frmExplorer 
   BorderStyle     =   5  'Sizable ToolWindow
   ClientHeight    =   3195
   ClientLeft      =   3150
   ClientTop       =   4305
   ClientWidth     =   4680
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   ShowInTaskbar   =   0   'False
   Begin Docking.FormDocker FormDocker1 
      Align           =   1  'Align Top
      Height          =   285
      Left            =   0
      Top             =   0
      Width           =   4680
      _ExtentX        =   8255
      _ExtentY        =   503
      Caption         =   "Explorer"
   End
   Begin VB.PictureBox picDrag 
      Align           =   4  'Align Right
      BorderStyle     =   0  'None
      Height          =   2910
      Left            =   4605
      ScaleHeight     =   2910
      ScaleWidth      =   75
      TabIndex        =   1
      Top             =   285
      Width           =   75
   End
   Begin VB.ListBox List1 
      Height          =   1035
      Left            =   0
      TabIndex        =   0
      Top             =   360
      Width           =   1815
   End
End
Attribute VB_Name = "frmExplorer"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False





Private Sub Form_DblClick()
FormDocker1.SnapForm
End Sub

Private Sub Form_Load()
Dim X As Integer
FormDocker1.FormInitialize frmExplorer, fMainform, fMainform.picExplorer, dkTextMode
For X = 0 To 25
List1.AddItem "List Item " & X
Next X
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
FormDocker1.DragForm Button
End Sub

Private Sub Form_Paint()
If FormDocker1.Docked = True Then
    FormDocker1.DrawBevelLine Me, dkLeftRight, 0, Me.Height - 150, Me.Width
End If
End Sub

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Call FormDocker1.ResetOwner 'Unload
End Sub

Private Sub Form_Resize()
On Error Resume Next
If Me.WindowState <> vbMinimized Then
    List1.Move 75, FormDocker1.Height + 25, Me.Width - 300, Me.Height - 400
    FormDocker1.StoreFormDimensions Me
End If
Me.Cls 'Clears the form of all drawings
Form_Paint 'Redraw the bottom line after we resize
End Sub

Private Sub FormDocker1_FormDocked()
FormDocker1.InsetLineTop = True

FormDocker1.Mode = dkLineMode

End Sub

Private Sub FormDocker1_FormUnDocked()
FormDocker1.InsetLineTop = False
FormDocker1.Mode = dkTextMode
End Sub

Private Sub picDrag_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
FormDocker1.DragDirection dkDirRight
End Sub

Private Sub picDrag_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    FormDocker1.ChangeCursor picDrag, dkLeftRight
End Sub

Private Sub picDrag_Paint()
'This here is to continue drawing the inset line
'at the bottom of the form, if you remove this code
'the line will look incomplete.
If FormDocker1.Docked = True Then
    FormDocker1.DrawBevelLine picDrag, dkLeftRight, 0, Me.Height - 150 - FormDocker1.Height, Me.Width
End If
End Sub

Private Sub picDrag_Resize()
picDrag.Cls
picDrag_Paint
End Sub