Programming Tool Box/SIMS_2.iso/vb_code2/scg_demo/main.frm

Text File | 1993-10-04 | 3KB | 118 lines

VERSION 2.00
Begin Form frmMain
   BackColor       =   &H00C0C0C0&
   Caption         =   "Main"
   ClientHeight    =   5790
   ClientLeft      =   105
   ClientTop       =   1485
   ClientWidth     =   2160
   Height          =   6195
   Icon            =   0
   Left            =   45
   LinkTopic       =   "Form2"
   ScaleHeight     =   5790
   ScaleWidth      =   2160
   Top             =   1140
   Width           =   2280
   Begin CommandButton Resize
      Caption         =   "Resize"
      Height          =   375
      Left            =   120
      TabIndex        =   6
      Top             =   1200
      Width           =   1935
   End
   Begin CommandButton Print
      Caption         =   "Print Current Form"
      Height          =   375
      Left            =   120
      TabIndex        =   5
      Top             =   4560
      Width           =   1935
   End
   Begin CommandButton Composite
      Caption         =   "Composite Shapes"
      Height          =   375
      Left            =   120
      TabIndex        =   4
      Top             =   480
      Width           =   1935
   End
   Begin CommandButton Exit
      Caption         =   "Exit"
      Height          =   375
      Left            =   120
      TabIndex        =   3
      Top             =   5280
      Width           =   1935
   End
   Begin CommandButton SimpMove
      Caption         =   "Simple Move"
      Height          =   375
      Left            =   120
      TabIndex        =   2
      Top             =   1560
      Width           =   1935
   End
   Begin CommandButton AccMove
      Caption         =   "Accurate Move"
      Height          =   375
      Left            =   120
      TabIndex        =   1
      Top             =   840
      Width           =   1935
   End
   Begin CommandButton Samples
      Caption         =   "Sample Shapes"
      Height          =   375
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   1935
   End
End
Option Explicit
Dim frmCurrent As Form

Sub AccMove_Click ()
    frmAccMove.Show
    Set frmCurrent = frmAccMove
End Sub

Sub Composite_Click ()
    frmComp.Show
    Set frmCurrent = frmComp
End Sub

Sub Exit_Click ()
    End
End Sub

Sub Form_Unload (Cancel As Integer)
    End
End Sub

Sub Print_Click ()
    If Not (frmCurrent Is Nothing) Then
        Screen.MousePointer = 11  ' hourglass
        PrintFrm frmCurrent
        Screen.MousePointer = 0   ' default
    End If
End Sub

Sub Resize_Click ()
    frmResize.Show
    Set frmCurrent = frmResize
End Sub

Sub Samples_Click ()
    frmSamples.Show
    Set frmCurrent = frmSamples
End Sub

Sub SimpMove_Click ()
    frmSimpMove.Show
    Set frmCurrent = frmSimpMove
End Sub