home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / midiplay / mci1.bas < prev    next >
Encoding:
BASIC Source File  |  1995-10-23  |  1.9 KB  |  58 lines
  1.  Global Midiname As String
  2.  Global i As Long
  3.  
  4. '*** Global Constants ***
  5. Global Const MCIERR_INVALID_DEVICE_ID = 30257
  6. Global Const MCIERR_DEVICE_OPEN = 30263
  7. Global Const MCIERR_CANNOT_LOAD_DRIVER = 30266
  8. Global Const MCIERR_UNSUPPORTED_FUNCTION = 30274
  9. Global Const MCIERR_INVALID_FILE = 30304
  10. Global Const MCI_MODE_NOT_OPEN = 524
  11. Global Const MCI_MODE_PLAY = 526
  12. Global Const MCI_FORMAT_MILLISECONDS = 0
  13. Global Const MCI_FORMAT_TMSF = 10
  14.  
  15. Sub midi2play ()
  16.            
  17.          On Error GoTo Midi2Error
  18.            form1.MMControl1.Command = "CLOSE"
  19.            form1.MMControl1.Notify = False
  20.            form1.MMControl1.Wait = True
  21.            form1.MMControl1.Shareable = False
  22.            form1.MMControl1.DeviceType = "Sequencer"
  23.            form1.MMControl1.FileName = Midiname
  24.            form1.MMControl1.Command = "Open"
  25.            form1.MMControl1.Command = "PLAY"
  26.            Exit Sub
  27. Midi2Error:
  28.     Exit Sub
  29.    
  30. End Sub
  31.  
  32.  Sub midiplay ()
  33.          On Error GoTo MidiError
  34.            Midiname = "ragtime.mid"
  35.            form1.PlayingName(0).Caption = "Midi file: " & Midiname
  36.            form1.EnableName.Enabled = False
  37.            form1.MMControl1.Notify = False
  38.            form1.MMControl1.Wait = False
  39.            form1.MMControl1.Shareable = False
  40.            form1.MMControl1.DeviceType = "Sequencer"
  41.            form1.MMControl1.FileName = Midiname
  42.            form1.MMControl1.Command = "Open"
  43.            form1.MMControl1.Command = "PLAY"
  44.            If Not form1.MMControl1.Mode = MCI_MODE_PLAY Then
  45.                  form1.PlayingName(0).Caption = "Midi file: None"
  46.                  form1.NoName.Enabled = False
  47.                  form1.EnableName.Enabled = False
  48.                  form1.PlayingName(0).Enabled = False
  49.                  form1.SkipName.Enabled = False
  50.            Else
  51.            End If
  52.            Exit Sub
  53. MidiError:
  54.    
  55.     Exit Sub
  56.  End Sub
  57.  
  58.