home *** CD-ROM | disk | FTP | other *** search
/ Stars of Shareware: Programmierung / SOURCE.mdf / programm / windows / basic / scgdem / main.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1993-10-04  |  2.8 KB  |  108 lines
  1. VERSION 2.00
  2. Begin Form frmMain 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "Main"
  5.    ClientHeight    =   5790
  6.    ClientLeft      =   105
  7.    ClientTop       =   1485
  8.    ClientWidth     =   2160
  9.    Height          =   6195
  10.    Icon            =   0
  11.    Left            =   45
  12.    LinkTopic       =   "Form2"
  13.    ScaleHeight     =   5790
  14.    ScaleWidth      =   2160
  15.    Top             =   1140
  16.    Width           =   2280
  17.    Begin CommandButton Resize 
  18.       Caption         =   "Resize"
  19.       Height          =   375
  20.       Left            =   120
  21.       TabIndex        =   6
  22.       Top             =   1200
  23.       Width           =   1935
  24.    End
  25.    Begin CommandButton Print 
  26.       Caption         =   "Print Current Form"
  27.       Height          =   375
  28.       Left            =   120
  29.       TabIndex        =   5
  30.       Top             =   4560
  31.       Width           =   1935
  32.    End
  33.    Begin CommandButton Composite 
  34.       Caption         =   "Composite Shapes"
  35.       Height          =   375
  36.       Left            =   120
  37.       TabIndex        =   4
  38.       Top             =   480
  39.       Width           =   1935
  40.    End
  41.    Begin CommandButton Exit 
  42.       Caption         =   "Exit"
  43.       Height          =   375
  44.       Left            =   120
  45.       TabIndex        =   3
  46.       Top             =   5280
  47.       Width           =   1935
  48.    End
  49.    Begin CommandButton SimpMove 
  50.       Caption         =   "Simple Move"
  51.       Height          =   375
  52.       Left            =   120
  53.       TabIndex        =   2
  54.       Top             =   1560
  55.       Width           =   1935
  56.    End
  57.    Begin CommandButton AccMove 
  58.       Caption         =   "Accurate Move"
  59.       Height          =   375
  60.       Left            =   120
  61.       TabIndex        =   1
  62.       Top             =   840
  63.       Width           =   1935
  64.    End
  65.    Begin CommandButton Samples 
  66.       Caption         =   "Sample Shapes"
  67.       Height          =   375
  68.       Left            =   120
  69.       TabIndex        =   0
  70.       Top             =   120
  71.       Width           =   1935
  72.    End
  73. Option Explicit
  74. Dim frmCurrent As Form
  75. Sub AccMove_Click ()
  76.     frmAccMove.Show
  77.     Set frmCurrent = frmAccMove
  78. End Sub
  79. Sub Composite_Click ()
  80.     frmComp.Show
  81.     Set frmCurrent = frmComp
  82. End Sub
  83. Sub Exit_Click ()
  84.     End
  85. End Sub
  86. Sub Form_Unload (Cancel As Integer)
  87.     End
  88. End Sub
  89. Sub Print_Click ()
  90.     If Not (frmCurrent Is Nothing) Then
  91.         Screen.MousePointer = 11  ' hourglass
  92.         PrintFrm frmCurrent
  93.         Screen.MousePointer = 0   ' default
  94.     End If
  95. End Sub
  96. Sub Resize_Click ()
  97.     frmResize.Show
  98.     Set frmCurrent = frmResize
  99. End Sub
  100. Sub Samples_Click ()
  101.     frmSamples.Show
  102.     Set frmCurrent = frmSamples
  103. End Sub
  104. Sub SimpMove_Click ()
  105.     frmSimpMove.Show
  106.     Set frmCurrent = frmSimpMove
  107. End Sub
  108.