C!T ROM 5/ctrom5b.zip/ctrom5b/PROGRAM/VISBASIC/EMED16A/SAMPLES/VB/FRMPAGES.FR_/FRMPAGES.FR

Text File | 1994-08-24 | 5KB | 164 lines

VERSION 2.00
Begin Form frmPageSetup
   BorderStyle     =   3  'Fixed Double
   Caption         =   "Page Setup"
   ClientHeight    =   2304
   ClientLeft      =   816
   ClientTop       =   1476
   ClientWidth     =   4992
   Height          =   2700
   Left            =   780
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   192
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   416
   Top             =   1116
   Width           =   5064
   Begin TextBox txtFooter
      Height          =   288
      Left            =   1224
      TabIndex        =   1
      Text            =   "Page &p"
      Top             =   612
      Width           =   1956
   End
   Begin TextBox txtHeader
      Height          =   300
      Left            =   1224
      TabIndex        =   0
      Text            =   "&f"
      Top             =   144
      Width           =   1956
   End
   Begin Frame Frame1
      Caption         =   "Margins"
      Height          =   1164
      Left            =   288
      TabIndex        =   8
      Top             =   1008
      Width           =   4368
      Begin TextBox txtTop
         Height          =   336
         Left            =   1008
         TabIndex        =   4
         Text            =   "1"
         Top             =   684
         Width           =   1020
      End
      Begin TextBox txtBottom
         Height          =   336
         Left            =   3132
         TabIndex        =   5
         Text            =   "1"
         Top             =   684
         Width           =   1020
      End
      Begin TextBox txtRight
         Height          =   336
         Left            =   3132
         TabIndex        =   3
         Text            =   ".75"
         Top             =   216
         Width           =   1020
      End
      Begin TextBox txtLeft
         Height          =   336
         Left            =   1008
         TabIndex        =   2
         Text            =   ".75"
         Top             =   216
         Width           =   1020
      End
      Begin Label Label4
         Alignment       =   1  'Right Justify
         Caption         =   "&Top:"
         Height          =   300
         Left            =   144
         TabIndex        =   12
         Top             =   720
         Width           =   804
      End
      Begin Label Label3
         Alignment       =   1  'Right Justify
         Caption         =   "&Left:"
         Height          =   264
         Left            =   324
         TabIndex        =   11
         Top             =   252
         Width           =   624
      End
      Begin Label Label2
         Alignment       =   1  'Right Justify
         Caption         =   "&Bottom:"
         Height          =   336
         Left            =   2340
         TabIndex        =   10
         Top             =   720
         Width           =   732
      End
      Begin Label Label1
         Alignment       =   1  'Right Justify
         Caption         =   "&Right:"
         Height          =   336
         Left            =   2304
         TabIndex        =   9
         Top             =   252
         Width           =   768
      End
   End
   Begin CommandButton cmdCancel
      Cancel          =   -1  'True
      Caption         =   "Cancel"
      Height          =   372
      Left            =   3456
      TabIndex        =   7
      Top             =   576
      Width           =   1236
   End
   Begin CommandButton cmdOK
      Caption         =   "OK"
      Default         =   -1  'True
      Height          =   372
      Left            =   3456
      TabIndex        =   6
      Top             =   108
      Width           =   1272
   End
   Begin Label Label6
      Alignment       =   1  'Right Justify
      Caption         =   "&Footer:"
      Height          =   300
      Left            =   288
      TabIndex        =   14
      Top             =   648
      Width           =   876
   End
   Begin Label Label5
      Alignment       =   1  'Right Justify
      Caption         =   "&Header:"
      Height          =   264
      Left            =   324
      TabIndex        =   13
      Top             =   180
      Width           =   840
   End
End
Option Explicit

Sub cmdCancel_Click ()
    cmdOK.Tag = "Cancel"
    Hide
End Sub

Sub cmdOK_Click ()
    cmdOK.Tag = "OK"
    Hide
End Sub

Sub Form_Load ()
    cmdOK.Tag = "Cancel"
End Sub