PC World Komputer 1996 December/PCWKCD1296.iso/wtest/micrsoft/vbasic4/vb4-1.cab/demo.mdb/FormTemplates/6_FileObject/6_FileObject.txt

Visual Basic Form | 1995-08-15 | 6.9 KB | 236 lines

VERSION 4.00
Begin VB.Form Form2
   Caption         =   "Form2"
   ClientHeight    =   4785
   ClientLeft      =   3930
   ClientTop       =   2025
   ClientWidth     =   5445
   Height          =   5475
   Left            =   3870
   LinkTopic       =   "Form2"
   ScaleHeight     =   4785
   ScaleWidth      =   5445
   Top             =   1395
   Width           =   5565
   Begin VB.Frame Frame1
      Caption         =   "Frame1"
      Height          =   1005
      Left            =   75
      TabIndex        =   17
      Top             =   1710
      Width           =   1095
      Begin VB.TextBox Text3
         Height          =   285
         Left            =   165
         TabIndex        =   18
         Text            =   "Text3"
         Top             =   660
         Width           =   825
      End
      Begin VB.Label Label3
         Caption         =   "Label3"
         Height          =   225
         Left            =   150
         TabIndex        =   19
         Top             =   330
         Width           =   855
      End
   End
   Begin VB.PictureBox Picture2
      Height          =   1245
      Left            =   90
      ScaleHeight     =   1155
      ScaleWidth      =   915
      TabIndex        =   14
      Top             =   120
      Width           =   1005
      Begin VB.TextBox Text2
         Height          =   330
         Left            =   195
         TabIndex        =   15
         Text            =   "Text2"
         Top             =   225
         Width           =   570
      End
      Begin VB.Label Label2
         Caption         =   "Label2"
         Height          =   240
         Left            =   210
         TabIndex        =   16
         Top             =   735
         Width           =   540
      End
   End
   Begin VB.Frame fraContains
      Caption         =   "Frame1"
      Height          =   2235
      Index           =   1
      Left            =   1260
      TabIndex        =   8
      Top             =   2280
      Width           =   2940
      Begin VB.CommandButton cmdCancel
         Cancel          =   -1  'True
         Caption         =   "Cancel"
         Height          =   420
         Index           =   2
         Left            =   330
         TabIndex        =   13
         Top             =   810
         Width           =   1080
      End
      Begin VB.CommandButton cmdOK
         Caption         =   "OK"
         Default         =   -1  'True
         Height          =   420
         Index           =   2
         Left            =   330
         TabIndex        =   12
         Top             =   345
         Width           =   1080
      End
      Begin VB.PictureBox Picture1
         Height          =   690
         Index           =   1
         Left            =   225
         ScaleHeight     =   600
         ScaleWidth      =   2520
         TabIndex        =   9
         Top             =   1395
         Width           =   2610
         Begin VB.TextBox Text1
            Height          =   315
            Index           =   1
            Left            =   1080
            TabIndex        =   10
            Text            =   "Text1"
            Top             =   150
            Width           =   1305
         End
         Begin VB.Label Label1
            Caption         =   "Label1"
            Height          =   165
            Index           =   1
            Left            =   90
            TabIndex        =   11
            Top             =   240
            Width           =   825
         End
      End
   End
   Begin VB.Frame fraContains
      Caption         =   "Frame1"
      Height          =   2235
      Index           =   0
      Left            =   1230
      TabIndex        =   2
      Top             =   -45
      Width           =   2940
      Begin VB.PictureBox Picture1
         Height          =   690
         Index           =   0
         Left            =   225
         ScaleHeight     =   600
         ScaleWidth      =   2520
         TabIndex        =   5
         Top             =   1395
         Width           =   2610
         Begin VB.TextBox Text1
            Height          =   315
            Index           =   0
            Left            =   1080
            TabIndex        =   7
            Text            =   "Text1"
            Top             =   150
            Width           =   1305
         End
         Begin VB.Label Label1
            Caption         =   "Label1"
            Height          =   165
            Index           =   0
            Left            =   90
            TabIndex        =   6
            Top             =   240
            Width           =   825
         End
      End
      Begin VB.CommandButton cmdOK
         Caption         =   "OK"
         Height          =   420
         Index           =   1
         Left            =   330
         TabIndex        =   4
         Top             =   345
         Width           =   1080
      End
      Begin VB.CommandButton cmdCancel
         Caption         =   "Cancel"
         Height          =   420
         Index           =   1
         Left            =   330
         TabIndex        =   3
         Top             =   810
         Width           =   1080
      End
   End
   Begin VB.CommandButton cmdCancel
      Caption         =   "Cancel"
      Height          =   420
      Index           =   0
      Left            =   4275
      TabIndex        =   1
      Top             =   2340
      Width           =   1080
   End
   Begin VB.CommandButton cmdOK
      Caption         =   "OK"
      Height          =   420
      Index           =   0
      Left            =   4245
      TabIndex        =   0
      Top             =   765
      Width           =   1080
   End
   Begin VB.Menu mnuFile
      Caption         =   "&File"
      Begin VB.Menu mnuOpen
         Caption         =   "&Open..."
      End
      Begin VB.Menu mnuNew
         Caption         =   "&New"
      End
      Begin VB.Menu mnuSep
         Caption         =   "-"
      End
      Begin VB.Menu mnuExit
         Caption         =   "E&xit"
      End
   End
   Begin VB.Menu mnuEdit
      Caption         =   "&Edit"
      Begin VB.Menu mnuCut
         Caption         =   "C&ut"
         Shortcut        =   ^X
      End
      Begin VB.Menu mnuCopy
         Caption         =   "&Copy"
         Shortcut        =   ^C
      End
      Begin VB.Menu mnuPaste
         Caption         =   "&Paste"
         Shortcut        =   ^V
      End
   End
Attribute VB_Name = "Form2"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Option Explicit
Private Sub cmdCancel_Click()
    PressedOK = False
    Unload Me
End Sub
Private Sub cmdOK_Click()
    PressedOK = True
    Unload Me
End Sub