You can create an audio player that enables you to play midi and wave files in your hard drives or DVDROM. It allows you to change drives and search for the particular sound file that you wish to play.
In this program, you have to add a Combo box, a List Box, a Text Box, a Drive List Box and three command buttons. Change the label of one of the buttons to "PLAY", another command button to "STOP", and the last command button to "EXIT". Besides, you need to add the MMControl and make it invisible.
The code
Sub Combo1_Change( ) if ListIndex=0 Then File1.Pattern=("*.wav") ElseIf ListIndex=1 Then File1.Pattern=("*.mid") Else File1.Pattern=("*.*) End If End Sub If Right(File1.Path,1) <>"\" Then filenam=File1.Path +"\"+File1.Filename Else filenam=File1.Path+File1.FilenameEnd If Text1.Text=filenam End Sub Private Sub Play_Click( ) If Combo1.ListIndex=0 Then MMControl1.DeviceType="WaveAudio" ElseIf Combo1.ListIndex=1 Then MMControll.DeviceType="Sequencer" End If MMControl1.FileName=Text1.Text MMControl1.Command="Open" MMControl1.Command="Play" End Sub Private Sub Stop_Click( ) If MMControl1.Mode=524 Then Exit Sub If MMControl1.Mode<>525 Then MMControl1.Wait=True MMControl1.Command="Close" End Sub Private Sub Dir1_Change( ) File1.Path=Dir1.Path If Combo1.ListIndex=0 Then File1.Pattern=("*.wav") ElseIf Combo1.ListIndex=1 Then File1.Pattern=("*.mid") Else File1.Pattern=("*.*) End If End Sub Private Sub Drive1.Change( ) Dir1.Path=Drive1.Drive End Sub Private Sub Form_Load( ) Top=(Screen.Height-Height)\2 Left=(Screen.Width-Width)\2 Combo1.Text="*.wav" Combo1.AddItem "*.wav" Combo1.AddItem "*.mid" Combo1.AddItem "All files" End Sub
0 comments