Lesson 22: Creating a Multimedia Player in VB6

Private Sub Form_Load()
    ' Center the form on screen
    Left = (Screen.Width - Width) \ 2
    Top = (Screen.Height - Height) \ 2
    
    ' Initialize media type options
    Combo1.Text = "*.wav"
    Combo1.AddItem "*.wav"
    Combo1.AddItem "*.mid"
    Combo1.AddItem "*.avi;*.mpg"
    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")
    ElseIf Combo1.ListIndex = 2 Then
        File1.Pattern = ("*.avi;*.mpg")
    Else
        File1.Pattern = ("*.*")
    End If
End Sub

Private Sub Dir1_Change()
    ' Update file list when directory changes
    File1.Path = Dir1.Path
    ' Maintain current pattern setting
    Call Combo1_Change
End Sub

Private Sub Drive1_Change()
    ' Update directory when drive changes
    On Error Resume Next ' Handle possible drive errors
    Dir1.Path = Drive1.Drive
    If Err.Number <> 0 Then
        MsgBox "Drive error: " & Err.Description, vbExclamation
        Drive1.Drive = Dir1.Path ' Revert to previous drive
    End If
End Sub

Private Sub File1_Click()
    ' Handle file selection
    Dim filenam As String
    
    If Right(File1.Path, 1) <> "\" Then
        filenam = File1.Path & "\" & File1.FileName
    Else
        filenam = File1.Path & File1.FileName
    End If
    Text1.Text = filenam
End Sub

Private Sub play_Click()
    ' Play the selected media file
    If Text1.Text = "" Then
        MsgBox "Please select a media file first!", vbExclamation
        Exit Sub
    End If
    
    ' Close any previous media
    MMPlayer.Command = "Close"
    
    ' Set the file to play
    MMPlayer.FileName = Text1.Text
    
    ' Open the media file
    MMPlayer.Command = "Open"
    
    ' Set video display to PictureBox
    MMPlayer.hWndDisplay = videoscreen.hWnd
    
    ' Start playback
    MMPlayer.Command = "Play"
End Sub

Private Sub stop_Click()
    ' Stop playback and close media
    If MMPlayer.Mode = 524 Then Exit Sub ' Already stopped
    If MMPlayer.Mode <> 525 Then
        MMPlayer.Wait = True
        MMPlayer.Command = "Stop"
    End If
    MMPlayer.Wait = True
    MMPlayer.Command = "Close"
End Sub