' MDI Form Example
'
' How to write MDI Applications
'
' Jon Vote, Idioma Software Inc.
'
' 02/2002
'
' www.idioma-software.com
'
' 1) Create a new project. Form1 will be created by default.
' 2) Set the MDIChild property of Form1 to TRUE.
' 3) From the menu select Project|Add MDI Form
' 4) Add a Picture Box to the MDI Form.
' 5) Set the Picture Box Height to 645.
' 6) Set the Picture Box Align property to 2 - Align Bottom
' 7) Place four Command Buttons on the Picture Box.
' Note you can not place them on the MDI Form - they must
' be placed on a Picture Box or other container control.
' 8) From the menu select Project|Properties.
' 9) Set the Startup Object to MDIForm1.
'10) Paste the following code into the declarations section of MDIForm1:
' --- Begin code for MDIForm1
Option Explicit
Const ARRANGE_CASCADE = 0
Const ARRANGE_HORIZONTAL = 1
Const ARRANGE_VERTICLE = 2
Private Sub Command1_Click()
Dim frmForm
Set frmForm = New Form1
frmForm.Show
End Sub
Private Sub Command2_Click()
Me.ARRANGE ARRANGE_HORIZONTAL
End Sub
Private Sub Command3_Click()
Me.ARRANGE ARRANGE_VERTICLE
End Sub
Private Sub Command4_Click()
Me.ARRANGE ARRANGE_CASCADE
End Sub
Private Sub MDIForm_Load()
Me.Caption = "MDI Form Example"
Command1.Caption = "Load"
Command2.Caption = "Horizontal"
Command3.Caption = "Verticle"
Command4.Caption = "Cascade"
End Sub
' --- End code for Form1 ---