home *** CD-ROM | disk | FTP | other *** search
/ Master 95 #1 / MASTER95_1.iso / microsof / vbasic4 / vb4-6.cab / mcitest.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-07-26  |  2.6 KB  |  86 lines
  1. VERSION 4.00
  2. Begin VB.Form MCITest 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "MCI Control Application"
  5.    ClientHeight    =   870
  6.    ClientLeft      =   2040
  7.    ClientTop       =   2040
  8.    ClientWidth     =   3765
  9.    Height          =   1560
  10.    Icon            =   "MCITEST.frx":0000
  11.    Left            =   1980
  12.    LinkMode        =   1  'Source
  13.    LinkTopic       =   "Form2"
  14.    MaxButton       =   0   'False
  15.    ScaleHeight     =   870
  16.    ScaleWidth      =   3765
  17.    Top             =   1410
  18.    Width           =   3885
  19.    Begin VB.Menu AL_DEVICES 
  20.       Caption         =   "&Devices"
  21.       Begin VB.Menu AI_CDAUDIO 
  22.          Caption         =   "&CDAudio..."
  23.       End
  24.       Begin VB.Menu AI_SEQUENCER 
  25.          Caption         =   "&Sequencer..."
  26.       End
  27.       Begin VB.Menu AI_WAVEAUDIO 
  28.          Caption         =   "&WaveAudio..."
  29.       End
  30.    End
  31.    Begin VB.Menu AL_HELP 
  32.       Caption         =   "&Help"
  33.       Begin VB.Menu AI_ABOUT 
  34.          Caption         =   "&About..."
  35.       End
  36.    End
  37. Attribute VB_Name = "MCITest"
  38. Attribute VB_Creatable = False
  39. Attribute VB_Exposed = False
  40. Private Sub AI_ABOUT_Click()
  41.     ' Display the About Box.  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. Private Sub AI_ANIMATION_Click()
  50.     DialogCaption = "MCI Animation Theater - "
  51.     Animate.Caption = "MCI Animation Theater"
  52.     ' Set the Open File dialog box 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. Private Sub AI_CDAUDIO_Click()
  60.     CD.Show
  61.     MCITest.Hide
  62. End Sub
  63. Private Sub AI_SEQUENCER_Click()
  64.     DialogCaption = "MIDI Sequencer - "
  65.     Wave.Caption = "MIDI Sequencer"
  66.     ' Set the Open File dialog box 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. Private Sub AI_WAVEAUDIO_Click()
  73.     DialogCaption = "WaveAudio - "
  74.     Wave.Caption = "WaveAudio"
  75.     ' Set the Open File dialog box 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. Private 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.