home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Multimédia la Compil' 2
/
Sybex_Multimedia_La_Compil_2.iso
/
cooltool
/
midimixr
/
midiset.frm
< prev
next >
Wrap
Text File
|
1995-04-20
|
3KB
|
115 lines
VERSION 2.00
Begin Form MIDISetupForm
BackColor = &H00C0C0C0&
BorderStyle = 3 'Fixed Double
Caption = "MIDI Setup"
ClientHeight = 1200
ClientLeft = 1095
ClientTop = 1485
ClientWidth = 6315
ControlBox = 0 'False
Height = 1605
Left = 1035
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 1200
ScaleWidth = 6315
Top = 1140
Width = 6435
Begin CommandButton CmdCancel
Caption = "Cancel"
Height = 375
Left = 5010
TabIndex = 5
Top = 690
Width = 1005
End
Begin CommandButton CmdOk
Caption = "Ok"
Height = 375
Left = 5010
TabIndex = 4
Top = 240
Width = 1005
End
Begin ComboBox ComboMidiOut
Height = 300
Left = 2460
Style = 2 'Dropdown List
TabIndex = 1
Top = 540
Width = 2265
End
Begin ComboBox ComboMidiIn
Height = 300
Left = 120
Style = 2 'Dropdown List
TabIndex = 0
Top = 540
Width = 2265
End
Begin Label Label2
BackColor = &H00C0C0C0&
Caption = "MIDI Out Device"
Height = 255
Left = 2490
TabIndex = 3
Top = 240
Width = 2025
End
Begin Label Label1
BackColor = &H00C0C0C0&
Caption = "MIDI In Device"
Height = 255
Left = 150
TabIndex = 2
Top = 240
Width = 2115
End
End
Sub CmdCancel_Click ()
Unload MidiSetupForm
End Sub
Sub CmdOk_Click ()
MIDIInOpen
MIDIOutOpen
MidiSetupForm.Hide
End Sub
Sub Form_Load ()
' Center the form on the screen
'Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2
'
' Fill output device combo box
'
For i = -1 To FormMidiMixr.MIDIOutput1.DeviceCount - 1
FormMidiMixr.MIDIOutput1.DeviceID = i
ComboMidiOut.AddItem FormMidiMixr.MIDIOutput1.ProductName
Next
'
' Select first in list
'
ComboMidiOut.ListIndex = 0
FormMidiMixr.MIDIOutput1.DeviceID = -1
MIDIOutOpen
'
' Fill input device combo box
'
For i = 0 To FormMidiMixr.MIDIInput1.DeviceCount - 1
FormMidiMixr.MIDIInput1.DeviceID = i
ComboMidiIn.AddItem FormMidiMixr.MIDIInput1.ProductName
Next
'
' Select first in list
'
ComboMidiIn.ListIndex = 0
FormMidiMixr.MIDIInput1.DeviceID = 0
MIDIInOpen
End Sub