home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l405 / 4.ddi / MCITEST.FR_ / MCITEST.bin (.txt)
Encoding:
Visual Basic Form  |  1993-04-28  |  2.6 KB  |  86 lines
  1. VERSION 2.00
  2. Begin Form MCITest 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "MCI Control Application"
  5.    ClientHeight    =   870
  6.    ClientLeft      =   2595
  7.    ClientTop       =   2580
  8.    ClientWidth     =   3765
  9.    Height          =   1560
  10.    Icon            =   MCITEST.FRX:0000
  11.    Left            =   2535
  12.    LinkMode        =   1  'Source
  13.    LinkTopic       =   "Form2"
  14.    MaxButton       =   0   'False
  15.    ScaleHeight     =   870
  16.    ScaleWidth      =   3765
  17.    Top             =   1950
  18.    Width           =   3885
  19.    Begin Menu AL_DEVICES 
  20.       Caption         =   "&Devices"
  21.       Begin Menu AI_ANIMATION 
  22.          Caption         =   "&Animation..."
  23.       End
  24.       Begin Menu AI_CDAUDIO 
  25.          Caption         =   "&CDAudio..."
  26.       End
  27.       Begin Menu AI_SEQUENCER 
  28.          Caption         =   "&Sequencer..."
  29.       End
  30.       Begin Menu AI_WAVEAUDIO 
  31.          Caption         =   "&WaveAudio..."
  32.       End
  33.    End
  34.    Begin Menu AL_HELP 
  35.       Caption         =   "&Help"
  36.       Begin Menu AI_ABOUT 
  37.          Caption         =   "&About..."
  38.       End
  39.    End
  40. Sub AI_ABOUT_Click ()
  41.     ' Display the "About Box".  Then allow Windows messages
  42.     ' to be processed before setting the focus to the
  43.     ' OK button.
  44.     AboutBox.Show
  45.     WaitForEventsToFinish 50
  46.     On Error Resume Next
  47.     AboutBox.BTN_OK.SetFocus
  48. End Sub
  49. Sub AI_ANIMATION_Click ()
  50.     DialogCaption = "MCI Animation Theater - "
  51.     Animate.Caption = "MCI Animation Theater"
  52.     ' Set the "Open File..." dialog to display *.mmm files.
  53.     OpenDlg.CMDialog1.Filter = "Movie File (*.mmm)|*.mmm"
  54.     Animate.MMControl1.Wait = True
  55.     Animate.MMControl1.DeviceType = "MMMovie"
  56.     Animate.Show
  57.     MCITest.Hide
  58. End Sub
  59. Sub AI_CDAUDIO_Click ()
  60.     CD.Show
  61.     MCITest.Hide
  62. End Sub
  63. Sub AI_SEQUENCER_Click ()
  64.     DialogCaption = "MIDI Sequencer - "
  65.     Wave.Caption = "MIDI Sequencer"
  66.     ' Set the "Open File..." dialog to display *.mid files.
  67.     OpenDlg.CMDialog1.Filter = "MIDI File (*.mid)|*.mid"
  68.     Wave.MMControl1.DeviceType = "Sequencer"
  69.     Wave.Show
  70.     MCITest.Hide
  71. End Sub
  72. Sub AI_WAVEAUDIO_Click ()
  73.     DialogCaption = "WaveAudio - "
  74.     Wave.Caption = "WaveAudio"
  75.     ' Set the "Open File..." dialog to display *.wav files.
  76.     OpenDlg.CMDialog1.Filter = "WaveForm File (*.wav)|*.wav"
  77.     Wave.MMControl1.DeviceType = "WaveAudio"
  78.     Wave.Show
  79.     MCITest.Hide
  80. End Sub
  81. Sub Form_Unload (Cancel As Integer)
  82.     ' Remember to unload the OpenDlg form since it is
  83.     ' only "hidden" when it is removed.
  84.     Unload OpenDlg
  85. End Sub
  86.