home *** CD-ROM | disk | FTP | other *** search
/ Multimédia la Compil' 2 / Sybex_Multimedia_La_Compil_2.iso / cooltool / songplay / midiset.frm next >
Text File  |  1995-04-20  |  2KB  |  86 lines
  1. VERSION 2.00
  2. Begin Form MIDISetupForm 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   3  'Fixed Double
  5.    Caption         =   "MIDI Setup"
  6.    ClientHeight    =   1020
  7.    ClientLeft      =   1095
  8.    ClientTop       =   1485
  9.    ClientWidth     =   4110
  10.    ControlBox      =   0   'False
  11.    Height          =   1425
  12.    Left            =   1035
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    ScaleHeight     =   1020
  16.    ScaleWidth      =   4110
  17.    Top             =   1140
  18.    Width           =   4230
  19.    Begin MIDIOutput MIDIOutput1 
  20.       DeviceID        =   0
  21.       Left            =   2490
  22.       Top             =   60
  23.       VolumeLeft      =   0
  24.       VolumeRight     =   0
  25.    End
  26.    Begin CommandButton CmdCancel 
  27.       Caption         =   "Cancel"
  28.       Height          =   375
  29.       Left            =   2970
  30.       TabIndex        =   1
  31.       Top             =   480
  32.       Width           =   1005
  33.    End
  34.    Begin CommandButton CmdOk 
  35.       Caption         =   "Ok"
  36.       Height          =   375
  37.       Left            =   2970
  38.       TabIndex        =   3
  39.       Top             =   90
  40.       Width           =   1005
  41.    End
  42.    Begin ComboBox ComboMidiOut 
  43.       Height          =   300
  44.       Left            =   120
  45.       Style           =   2  'Dropdown List
  46.       TabIndex        =   0
  47.       Top             =   480
  48.       Width           =   2685
  49.    End
  50.    Begin Label Label2 
  51.       BackColor       =   &H00C0C0C0&
  52.       Caption         =   "MIDI Out Device"
  53.       Height          =   255
  54.       Left            =   150
  55.       TabIndex        =   2
  56.       Top             =   180
  57.       Width           =   2025
  58.    End
  59. End
  60. Sub CmdCancel_Click ()
  61.     Unload MIDISetupForm
  62. End Sub
  63.  
  64. Sub CmdOk_Click ()
  65.     MIDISetupForm.Hide
  66. End Sub
  67.  
  68. Sub Form_Load ()
  69.     ' Center the form on the screen
  70.     Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2
  71.  
  72.     '
  73.     ' Fill output device combo box
  74.     '
  75.     For I = -1 To MIDIOutput1.DeviceCount - 1
  76.         MIDIOutput1.DeviceID = I
  77.         ComboMidiOut.AddItem MIDIOutput1.ProductName
  78.     Next
  79.     '
  80.     ' Select first in list
  81.     '
  82.     ComboMidiOut.ListIndex = 0
  83.     MIDIOutput1.DeviceID = -1
  84. End Sub
  85.  
  86.