cyber.net 2/cybernet2.ISO/qtw111/samples/eachmovd.frm

Text File | 1993-01-13 | 2KB | 96 lines

VERSION 2.00
Begin Form frmEachMovDir
   Caption         =   "Play Each Movie"
   Height          =   3555
   Left            =   1425
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3150
   ScaleWidth      =   4275
   Top             =   1140
   Visible         =   0   'False
   Width           =   4395
   Begin DriveListBox drvMovie
      Height          =   315
      Left            =   120
      TabIndex        =   6
      Top             =   2700
      Width           =   2355
   End
   Begin DirListBox dirMovie
      Height          =   1605
      Left            =   120
      TabIndex        =   4
      Top             =   720
      Width           =   2355
   End
   Begin CommandButton cmdCancel
      Cancel          =   -1  'True
      Caption         =   "Cancel"
      Height          =   375
      Left            =   2940
      TabIndex        =   1
      Top             =   600
      Width           =   1215
   End
   Begin CommandButton cmdOK
      Caption         =   "OK"
      Default         =   -1  'True
      Height          =   375
      Left            =   2940
      TabIndex        =   0
      Top             =   120
      Width           =   1215
   End
   Begin TextBox txtDirMovie
      BorderStyle     =   0  'None
      Height          =   225
      Left            =   180
      TabIndex        =   3
      TabStop         =   0   'False
      Top             =   420
      Width           =   2715
   End
   Begin Label lblDrvMovie
      Caption         =   "Dri&ves"
      Height          =   195
      Left            =   180
      TabIndex        =   5
      Top             =   2460
      Width           =   1035
   End
   Begin Label lblDirMovie
      Caption         =   "&Directories:"
      Height          =   195
      Left            =   180
      TabIndex        =   2
      Top             =   180
      Width           =   1035
   End
End
Option Explicit

Sub cmdCancel_Click ()
    End
End Sub

Sub cmdOK_Click ()
    MoviePath = frmEachMovDir.txtDirMovie
    ChDir MoviePath
    Unload frmEachMovDir
End Sub

Sub dirMovie_Change ()
    txtDirMovie.Text = dirMovie.Path
End Sub

Sub drvMovie_Change ()
    dirMovie.Path = drvMovie.Drive
End Sub

Sub Form_Load ()
    txtDirMovie.Text = dirMovie.Path
End Sub