frmtoolbarex.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 frmToolbarEx 
   BorderStyle     =   3  'Fixed Dialog
   ClientHeight    =   720
   ClientLeft      =   2355
   ClientTop       =   3645
   ClientWidth     =   6075
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   720
   ScaleWidth      =   6075
   ShowInTaskbar   =   0   'False
   Begin Docking.FormDocker FormDocker1 
      Align           =   1  'Align Top
      Height          =   285
      Left            =   0
      Top             =   0
      Width           =   6075
      _ExtentX        =   10716
      _ExtentY        =   503
      Caption         =   "ToolBarEx"
   End
   Begin VB.ComboBox Combo3 
      Height          =   315
      Left            =   4320
      Style           =   2  'Dropdown List
      TabIndex        =   2
      Top             =   360
      Width           =   3135
   End
   Begin VB.ComboBox Combo2 
      Height          =   315
      Left            =   2280
      Style           =   2  'Dropdown List
      TabIndex        =   1
      Top             =   360
      Width           =   1935
   End
   Begin VB.ComboBox Combo1 
      Height          =   315
      Left            =   240
      Style           =   2  'Dropdown List
      TabIndex        =   0
      Top             =   360
      Width           =   1935
   End
End
Attribute VB_Name = "frmToolbarEx"
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()
FormDocker1.FormInitialize Me, fMainform, fMainform.picToolbarEx, dkTextMode
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, 20, Me.Width
End If
End Sub

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

Private Sub Form_Resize()
On Error Resume Next

    If Me.WindowState <> vbMinimized Then
        'Update the stored Values
        FormDocker1.StoreFormDimensions frmToolbarEx
        
    End If
End Sub

Private Sub FormDocker1_FormDocked()
Dim Control As Control, lTop As Long
FormDocker1.InsetLineTop = True

For Each Control In Me.Controls
    If Not TypeOf Control Is PictureBox And Not Control Is FormDocker1 Then
        lTop = Control.Top
        Control.Top = lTop - FormDocker1.Height
    End If
Next Control
FormDocker1.Mode = dkLineMode
FormDocker1.Align = vbAlignLeft
End Sub

Private Sub FormDocker1_FormUnDocked()
Dim Control As Control, lTop As Long
FormDocker1.InsetLineTop = False
FormDocker1.Mode = dctextmode
FormDocker1.Align = vbAlignTop

For Each Control In Me.Controls
    If Not TypeOf Control Is PictureBox And Not Control Is FormDocker1 Then
        lTop = Control.Top
        Control.Top = lTop + FormDocker1.Height
    End If
Next Control

Me.Width = Combo3.Width + Combo3.Left + 100
End Sub