Lesson 20: Creating an Audio Player in VB6

Private Sub Form_Load() 
    ' Center the form on screen
    Left = (Screen.Width - Width) \ 2 
    Top = (Screen.Height - Height) \ 2 
    
    ' Initialize file type options
    Combo1.Text = "*.wav"
    Combo1.AddItem "*.wav"
    Combo1.AddItem "*.mid"
    Combo1.AddItem "All files"
End Sub 

Private Sub Combo1_Change() 
    ' Set file pattern based on selection
    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 Dir1_Change() 
    ' Update file list when directory changes
    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() 
    ' Update directory when drive changes
    Dir1.Path = Drive1.Drive
End Sub 

Private Sub File1_Click() 
    ' Handle file selection
    If Right(File1.Path, 1) <> "\" Then
        filenam = File1.Path & "\" & File1.FileName
    Else
        filenam = File1.Path & File1.FileName
    End If
    Text1.Text = filenam
    ' Update now playing display
    songTitle.Caption = File1.FileName
End Sub 

Private Sub play_Click() 
    ' Play the selected audio file
    If Combo1.ListIndex = 0 Then
        AudioPlayer.DeviceType = "WaveAudio"
    ElseIf Combo1.ListIndex = 1 Then
        AudioPlayer.DeviceType = "Sequencer"
    End If
    AudioPlayer.FileName = Text1.Text
    AudioPlayer.Command = "Open"
    AudioPlayer.Command = "Play"
End Sub 

Private Sub stop_Click() 
    ' Stop audio playback
    If AudioPlayer.Mode = 524 Then ' 524 means not open
        Exit Sub
    End If
    
    If AudioPlayer.Mode <> 525 Then ' 525 means stopped
        AudioPlayer.Wait = True
        AudioPlayer.Command = "Stop"
    End If
    AudioPlayer.Wait = True
    AudioPlayer.Command = "Close"
End Sub