home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / vbmci / mcivbx.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-09-06  |  2.4 KB  |  74 lines
  1. VERSION 2.00
  2. Begin Form frmMCIVBX 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "MCI.VBX Standard Control"
  5.    ClientHeight    =   1230
  6.    ClientLeft      =   1530
  7.    ClientTop       =   3870
  8.    ClientWidth     =   7170
  9.    Height          =   1920
  10.    Left            =   1470
  11.    LinkTopic       =   "Form2"
  12.    ScaleHeight     =   1230
  13.    ScaleWidth      =   7170
  14.    Top             =   3240
  15.    Width           =   7290
  16.    Begin MMControl MMControl1 
  17.       EjectVisible    =   0   'False
  18.       Height          =   495
  19.       Left            =   2040
  20.       RecordVisible   =   0   'False
  21.       TabIndex        =   0
  22.       Top             =   600
  23.       Width           =   2760
  24.    End
  25.    Begin Label Label1 
  26.       BackColor       =   &H00C0C0C0&
  27.       Caption         =   "Select Open from the File menu to open a multimedia file."
  28.       Height          =   255
  29.       Left            =   120
  30.       TabIndex        =   1
  31.       Top             =   120
  32.       Width           =   5895
  33.    End
  34.    Begin Menu mnuFile 
  35.       Caption         =   "&File"
  36.       Begin Menu mnuFile_Open 
  37.          Caption         =   "&Open"
  38.       End
  39.    End
  40. Sub Form_Load ()
  41.     ' Set properties needed by MMControl
  42.     MMControl1.Notify = False
  43.     MMControl1.Wait = True
  44.     MMControl1.Shareable = False
  45.     ' Prompt user to open a multimedia file
  46.     Label1.Caption = "Select Open from the File menu."
  47. End Sub
  48. Sub Form_Unload (Cancel As Integer)
  49.     MMControl1.Command = "Close"
  50. End Sub
  51. Sub mnuFile_Open_Click ()
  52.     ' Display the File Open... dialog.
  53.     OpenDlg.CMDialog1.FilterIndex = 1
  54.     OpenDlg.CMDialog1.Filter = "AVI Files (*.avi)|*.avi|Wave Files (*.wav)|*.wav|All Files (*.*)|*.*"
  55.     OpenDlg.CMDialog1.Flags = OFN_READONLY Or OFN_FILEMUSTEXIST
  56.     OpenDlg.CMDialog1.CancelError = True
  57.     OpenDlg.CMDialog1.Filename = ""
  58.     On Error Resume Next
  59.     OpenDlg.CMDialog1.Action = 1
  60.     If Err <> 0 Then
  61.     ' No file selected from the "Open File..." dialog.
  62.     Exit Sub
  63.     End If
  64.     ' Close any open multimedia files that are
  65.     ' associated with MMControl1.
  66.     MMControl1.Command = "Close"
  67.     ' Pass the filename value into the MMControl
  68.     MMControl1.Filename = OpenDlg.CMDialog1.Filename
  69.     ' Open the MCI device.
  70.     MMControl1.Command = "Open"
  71.     ' Display the name of the opened file.
  72.     Label1.Caption = OpenDlg.CMDialog1.Filename
  73. End Sub
  74.