vbAccelerator - Contents of code file: frmSplitTest.frm

VERSION 5.00
Begin VB.Form frmSplitTest 
   Caption         =   "Splitter Demonstration"
   ClientHeight    =   6960
   ClientLeft      =   2610
   ClientTop       =   2715
   ClientWidth     =   6585
   Icon            =   "frmSplitTest.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   464
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   439
   Begin VB.PictureBox picStatusBar 
      Align           =   2  'Align Bottom
      BorderStyle     =   0  'None
      Height          =   435
      Left            =   0
      ScaleHeight     =   435
      ScaleWidth      =   6585
      TabIndex        =   6
      Top             =   6525
      Width           =   6585
   End
   Begin VB.PictureBox picToolbar 
      Align           =   1  'Align Top
      BorderStyle     =   0  'None
      Height          =   435
      Left            =   0
      ScaleHeight     =   435
      ScaleWidth      =   6585
      TabIndex        =   5
      Top             =   0
      Width           =   6585
   End
   Begin VB.PictureBox picSplitMain 
      BorderStyle     =   0  'None
      Height          =   4455
      Left            =   360
      ScaleHeight     =   297
      ScaleMode       =   3  'Pixel
      ScaleWidth      =   349
      TabIndex        =   0
      Top             =   1380
      Width           =   5235
      Begin VB.TextBox txtEditor 
         Height          =   4215
         Left            =   2100
         TabIndex        =   2
         Text            =   "Text1"
         Top             =   120
         Width           =   3015
      End
      Begin VB.PictureBox picSplitLeft 
         BorderStyle     =   0  'None
         Height          =   4215
         Left            =   120
         ScaleHeight     =   7.435
         ScaleMode       =   7  'Centimeter
         ScaleWidth      =   2.461
         TabIndex        =   1
         Top             =   120
         Width           =   1395
         Begin VB.CommandButton cmdTop 
            Caption         =   "&Click Me"
            Height          =   495
            Left            =   60
            MousePointer    =   1  'Arrow
            TabIndex        =   4
            Top             =   180
            Width           =   1215
         End
         Begin VB.ListBox lstTest 
            Height          =   2400
            IntegralHeight  =   0   'False
            Left            =   0
            MousePointer    =   1  'Arrow
            TabIndex        =   3
            Top             =   1620
            Width           =   1215
         End
      End
   End
End
Attribute VB_Name = "frmSplitTest"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private WithEvents m_cSplitMain As cSplitter
Attribute m_cSplitMain.VB_VarHelpID = -1
Private WithEvents m_cSplitLeft As cSplitter
Attribute m_cSplitLeft.VB_VarHelpID = -1

Private Sub Form_Load()
   
   Set m_cSplitLeft = New cSplitter
   m_cSplitLeft.Orientation = cSPLTOrientationHorizontal
   m_cSplitLeft.MinimumSize(cSPLTLeftOrTopPanel) =
    picSplitLeft.ScaleY(cmdTop.Height, picSplitLeft.ScaleMode, vbPixels)
   m_cSplitLeft.FullDrag = False
   m_cSplitLeft.Container = picSplitLeft
   m_cSplitLeft.Bind cmdTop, lstTest

   Set m_cSplitMain = New cSplitter
   m_cSplitMain.Orientation = cSPLTOrientationVertical
   m_cSplitMain.FullDrag = False
   m_cSplitMain.Container = picSplitMain
   m_cSplitMain.MinimumSize(cSPLTLeftOrTopPanel) =
    picSplitMain.ScaleX(picSplitLeft.Width, picSplitMain.ScaleMode, vbPixels)
   m_cSplitMain.Bind picSplitLeft, txtEditor
   
End Sub

Private Sub Form_Resize()
   picSplitMain.Move 2, picToolbar.Height, Me.ScaleWidth - 4, Me.ScaleHeight -
    picToolbar.Height - picStatusBar.Height
End Sub

Private Sub picSplitLeft_MouseDown(Button As Integer, Shift As Integer, x As
 Single, y As Single)
   m_cSplitLeft.MouseDown Button, Shift, x, y
End Sub

Private Sub picSplitLeft_MouseMove(Button As Integer, Shift As Integer, x As
 Single, y As Single)
   m_cSplitLeft.MouseMove Button, Shift, x, y
End Sub

Private Sub picSplitLeft_MouseUp(Button As Integer, Shift As Integer, x As
 Single, y As Single)
   m_cSplitLeft.MouseUp Button, Shift, x, y
End Sub

Private Sub picSplitLeft_Resize()
   m_cSplitLeft.Resize
End Sub


Private Sub picSplitMain_MouseDown(Button As Integer, Shift As Integer, x As
 Single, y As Single)
   m_cSplitMain.MouseDown Button, Shift, x, y
End Sub

Private Sub picSplitMain_MouseMove(Button As Integer, Shift As Integer, x As
 Single, y As Single)
   m_cSplitMain.MouseMove Button, Shift, x, y
End Sub

Private Sub picSplitMain_MouseUp(Button As Integer, Shift As Integer, x As
 Single, y As Single)
   m_cSplitMain.MouseUp Button, Shift, x, y
End Sub

Private Sub picSplitMain_Resize()
   m_cSplitMain.Resize
End Sub