VB5 MDI Splitter Code (21K)
VB5 MdiSplitter DLL (7K)
VB6 MDI Splitter Code (20K)
VB6 MdiSplitter DLL (7K)
6 Feb 2003
First Posted
Get the Desktop Device Context
Sophisticated Control Over Window Sizing and Moving
Restrict Mouse Movement to an Area of the Desktop
Subclassing Without The Crashes
Moving Forms and Creating Resize Gripper Boxes
Creating Single Pixel Dotted Lines
vbAccelerator - Contents of code file: mfrmMain.frm
VERSION 5.00
Begin VB.MDIForm mfrmMain
BackColor = &H80000015&
Caption = "vbAccelerator MDI Splitting Sample"
ClientHeight = 6045
ClientLeft = 1740
ClientTop = 2985
ClientWidth = 9210
Icon = "mfrmMain.frx":0000
LinkTopic = "MDIForm1"
Begin VB.PictureBox picRight
Align = 4 'Align Right
BorderStyle = 0 'None
Height = 4455
Left = 7755
ScaleHeight = 297
ScaleMode = 3 'Pixel
ScaleWidth = 97
TabIndex = 3
Top = 675
Width = 1455
Begin VB.Label lblRightBar
BackColor = &H80000010&
Height = 4275
Left = 0
TabIndex = 14
Top = 120
Width = 1635
End
End
Begin VB.PictureBox picLeft
Align = 3 'Align Left
BorderStyle = 0 'None
Height = 4455
Left = 0
ScaleHeight = 297
ScaleMode = 3 'Pixel
ScaleWidth = 97
TabIndex = 2
Top = 675
Width = 1455
Begin VB.PictureBox picProductBar
BackColor = &H80000010&
BorderStyle = 0 'None
Height = 5775
Left = -60
ScaleHeight = 385
ScaleMode = 3 'Pixel
ScaleWidth = 137
TabIndex = 4
Top = 0
Width = 2055
Begin VB.CommandButton cmdFind
BackColor = &H80000010&
Caption = "&Find..."
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 375
Left = 60
TabIndex = 11
Top = 1860
Width = 1215
End
Begin VB.ComboBox cboDemo
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Index = 0
Left = 60
TabIndex = 7
Top = 240
Width = 1515
End
Begin VB.ComboBox cboDemo
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Index = 1
Left = 60
TabIndex = 6
Top = 840
Width = 1515
End
Begin VB.ComboBox cboDemo
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 315
Index = 2
Left = 60
TabIndex = 5
Top = 1440
Width = 1515
End
Begin VB.Label lblDemo
BackStyle = 0 'Transparent
Caption = "Product:"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000014&
Height = 195
Index = 0
Left = 60
TabIndex = 10
Top = 0
Width = 1515
End
Begin VB.Label lblDemo
BackStyle = 0 'Transparent
Caption = "Category:"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000014&
Height = 195
Index = 1
Left = 60
TabIndex = 9
Top = 600
Width = 1515
End
Begin VB.Label lblDemo
BackStyle = 0 'Transparent
Caption = "Price Range:"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000014&
Height = 195
Index = 2
Left = 60
TabIndex = 8
Top = 1200
Width = 1515
End
End
End
Begin VB.PictureBox picBottom
Align = 2 'Align Bottom
BorderStyle = 0 'None
Height = 915
Left = 0
ScaleHeight = 61
ScaleMode = 3 'Pixel
ScaleWidth = 614
TabIndex = 1
Top = 5130
Width = 9210
Begin VB.TextBox txtLog
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 555
Left = 60
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 12
Top = 60
Width = 8895
End
Begin VB.Label lblStatusBarHere
Caption = "vbAccelerator MDI Splitting Sample"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 60
TabIndex = 13
Top = 660
Width = 8895
End
End
Begin VB.PictureBox picTop
Align = 1 'Align Top
BorderStyle = 0 'None
Height = 675
Left = 0
ScaleHeight = 45
ScaleMode = 3 'Pixel
ScaleWidth = 614
TabIndex = 0
Top = 0
Width = 9210
Begin VB.CheckBox chkFullDrag
Caption = "&Full Drag Mode"
BeginProperty Font
Name = "Tahoma"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 60
TabIndex = 15
Top = 60
Value = 1 'Checked
Width = 2475
End
End
End
Attribute VB_Name = "mfrmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private m_cSplitLeft As New cMDISplit
Private m_cSplitRight As New cMDISplit
Private m_cSplitTop As New cMDISplit
Private m_cSplitBottom As New cMDISplit
Private Sub chkFullDrag_Click()
m_cSplitLeft.FullDrag = (chkFullDrag.Value = vbChecked)
m_cSplitRight.FullDrag = (chkFullDrag.Value = vbChecked)
m_cSplitTop.FullDrag = (chkFullDrag.Value = vbChecked)
m_cSplitBottom.FullDrag = (chkFullDrag.Value = vbChecked)
End Sub
Private Sub MDIForm_Load()
m_cSplitLeft.Attach picLeft
m_cSplitLeft.MaxSize = 128
m_cSplitRight.Attach picRight
m_cSplitTop.Attach picTop
m_cSplitTop.MinSize = chkFullDrag.top + chkFullDrag.Height +
m_cSplitTop.SplitSize
m_cSplitBottom.Attach picBottom
m_cSplitBottom.MinSize = 40
Dim f As New frmDocument
f.Show
End Sub
Private Sub picBottom_Resize()
On Error Resume Next
txtLog.Move 2, m_cSplitBottom.SplitSize, picBottom.ScaleWidth - 4,
picBottom.ScaleHeight - 4 - lblStatusBarHere.Height -
m_cSplitBottom.SplitSize
lblStatusBarHere.Move 2, picBottom.ScaleHeight - lblStatusBarHere.Height - 2
End Sub
Private Sub picLeft_Resize()
On Error Resume Next
picProductBar.Move 2, 2, picLeft.ScaleWidth - 2 - m_cSplitLeft.SplitSize,
picLeft.ScaleHeight - 4
End Sub
Private Sub picProductBar_Resize()
On Error Resume Next
Dim i As Long
For i = 0 To 2
lblDemo(i).Width = picProductBar.ScaleWidth - lblDemo(i).left * 2
cboDemo(i).Width = lblDemo(i).Width
Next i
End Sub
Private Sub picRight_Resize()
On Error Resume Next
lblRightBar.Move m_cSplitRight.SplitSize, 2, picRight.ScaleWidth - 2 -
m_cSplitRight.SplitSize, picRight.ScaleHeight - 4
End Sub
