Windows Media player : affiche le titre de la musique joué

Question

Bonjour.

J'ai décidé, car j'écoute souvent la musique que j'ai sur mon pc, de créer un script qui pourrait me lire mes playlists créés (via le même script).

Etant utilisateur de visual studio code, j'ai décidé d'ajouter l'outil "WindowsMediaPlayer".


J'ai réussi à faire ce que je voulais.

J'arrive à afficher le titre de la musique via un l'icone de notification (Un petit NotifyIcon et un contextmenustrip).
Mais via les contrôles directs de windows media player ; non.

Les fameux contrôles en image : 




Voici le code :
Imports System.IO

Public Class Form1

Dim dossier_media = ""
    ReadOnly plist = Environment.GetFolderPath(Environment.SpecialFolder.Desktop) + "\Playlist.m3u"
    ReadOnly plist_a = Environment.GetFolderPath(Environment.SpecialFolder.Desktop) + "\Playlist[AL].m3u"
    Dim media_imp = ""

Protected Overrides Sub OnFormClosing(e As FormClosingEventArgs)
        If e.CloseReason = CloseReason.UserClosing Then
            Me.WindowState = FormWindowState.Minimized
            Me.Visible = False
            e.Cancel = True
        End If
        MyBase.OnFormClosing(e)
    End Sub

Private Sub frmConsole_Move(sender As Object, e As EventArgs) Handles MyBase.Move
        If Me.WindowState = FormWindowState.Minimized Then
            Me.WindowState = FormWindowState.Minimized
            Me.Visible = False
        End If
    End Sub

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.Text = "MonAutreLecteurMultimedia"
    End Sub

Private Sub creer_pl_Click(sender As Object, e As EventArgs) Handles creer_pl.Click

FolderBrowserDialog1.Description = "Choisissez le dossier où se situe votre musique"

If (FolderBrowserDialog1.ShowDialog() = DialogResult.OK) Then

dossier_media = FolderBrowserDialog1.SelectedPath
            If File.Exists(plist) Then File.Delete(plist)
            If File.Exists(plist_a) Then File.Delete(plist_a)
            Dim mamusique = ""

For Each filename As String In IO.Directory.GetFiles(dossier_media, "*.*", IO.SearchOption.AllDirectories)
                If filename.EndsWith(".ac3") _
                    Or filename.EndsWith(".flac") _
                    Or filename.EndsWith(".mp3") _
                    Or filename.EndsWith(".wav") Then
                    mamusique &= filename + vbCrLf
                End If
            Next

If mamusique <> "" Then
                Dim afile As New StreamWriter(plist, True)
                afile.Write(mamusique)
                afile.Close()
            End If

If File.Exists(plist) Then
                File.Copy(plist, plist_a)
                Dim linesList As New List(Of String)(IO.File.ReadAllLines(plist_a))
                Dim newLinesList As New List(Of String)
                Randomize()
                While linesList.Count > 0
                    Dim randomIndex As Integer = Math.Floor(Rnd() * linesList.Count)
                    newLinesList.Add(linesList(randomIndex))
                    linesList.RemoveAt(randomIndex)
                End While
                File.WriteAllLines(plist_a, newLinesList.ToArray)
            End If

End If

End Sub

Private Sub importer_media_Click(sender As Object, e As EventArgs) Handles importer_media.Click

Dim extensions = ""

extensions &= "Audio AAC (*.aac)|*.aac" + "|"
        extensions &= "Audio ADT (*.adt)|*.adt" + "|"
        extensions &= "Audio ADTS (*.adts)|*.adts" + "|"
        extensions &= "Audio AU (*.au)|*.au" + "|"
        extensions &= "Audio FLAC (*.flac)|*.flac" + "|"
        extensions &= "Audio M4A (*.m4a)|*.m4a" + "|"
        extensions &= "Audio MID/MIDI (*.mid;*.midi)|*.mid; *.midi" + "|"
        extensions &= "Audio MP1 (*.mp1)|*.mp1" + "|"
        extensions &= "Audio MP2 (*.mp2)|*.mp2" + "|"
        extensions &= "Audio MP3 (*.mp3)|*.mp3" + "|"
        extensions &= "Audio MPA (*.mpa)|*.mpa" + "|"
        extensions &= "Audio MPE (*.mpe)|*.mpe" + "|"
        extensions &= "Audio OGG (*.ogg)|*.ogg" + "|"
        extensions &= "Audio RMI (*.rmi)|*.rmi" + "|"
        extensions &= "Audio SND (*.snd)|*.snd" + "|"
        extensions &= "Audio WAV (*.wav)|*.wav" + "|"
        extensions &= "Audio WMA (*.wma)| *.wma" + "|"
        extensions &= "Digital Video Recording (*.dvr-ms)|*.dvr-ms" + "|"
        extensions &= "Echange audio AIF (*.aif)|*.aif" + "|"
        extensions &= "Echange audio AIFC (*.aifc)|*.aifc" + "|"
        extensions &= "Echange audio AIFF (*.aiff)|*.aiff" + "|"
        extensions &= "Méta-fichier au format texte ASX (*.asx)|*.asx" + "|"
        extensions &= "Playlist M3U (*.m3u)|*.m3u" + "|"
        extensions &= "Piste CD CDA (*.cda)|*.cda" + "|"
        extensions &= "Raccourci Internet WAX (*.wax)|*.wax" + "|"
        extensions &= "Vidéo 3G2 (*.3g2)|*.3g2" + "|"
        extensions &= "Vidéo 3GP (*.3gp)|*.3gp" + "|"
        extensions &= "Vidéo 3GP2 (*.3gp2)|*.3gp2" + "|"
        extensions &= "Vidéo 3GPP (*.3gpp)|*.3gpp" + "|"
        extensions &= "Vidéo ASF (*.asf)|*.asf" + "|"
        extensions &= "Vidéo AVI (*.avi)|*.avi" + "|"
        extensions &= "Vidéo Indeo IVF, (*.ivf)|*.ivf" + "|"
        extensions &= "Vidéo M4V (*.m4v)|*.m4v" + "|"
        extensions &= "Vidéo MKV (*.mkv)|*.mkv" + "|"
        extensions &= "Vidéo MOV (*.mov)|*.mov" + "|"
        extensions &= "Vidéo MP4 (*.mp4)|*.mp4" + "|"
        extensions &= "Vidéo MP4V (*.mp4v)|*.mp4v" + "|"
        extensions &= "Vidéo MPEG (*.mpg)|*.mpg" + "|"
        extensions &= "Vidéo MPEG (*.mpeg)|*.mpeg" + "|"
        extensions &= "Vidéo MPEG (*.m1v)|*.m1v" + "|"
        extensions &= "Video TS MPEG2 (*.m2ts)|*.m2ts" + "|"
        extensions &= "WVX (*.wvx)|*.wvx" + "|"
        extensions &= "WMX (*.wmx)|*.wmx;" + "|"
        extensions &= "WPL (*.wpl)|*.wpl"

OpenFileDialog1.InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
        OpenFileDialog1.FileName = ""
        OpenFileDialog1.Filter = extensions
        OpenFileDialog1.FilterIndex = 1
        OpenFileDialog1.RestoreDirectory = True
        Dim result As DialogResult = OpenFileDialog1.ShowDialog()
        OpenFileDialog1.Title = "Choissiez le media que vous souhaitez importer"
        If result = Windows.Forms.DialogResult.OK Then
            media_imp = OpenFileDialog1.FileName
            WindowsMediaPlayer1.settings.autoStart = True
            WindowsMediaPlayer1.URL = (Path.Combine(media_imp))
            Me.Text = WindowsMediaPlayer1.currentMedia.getItemInfo("Title")
        End If

End Sub

Private Sub PauseToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles pause.Click
        WindowsMediaPlayer1.Ctlcontrols.pause()
        Me.Text = WindowsMediaPlayer1.currentMedia.getItemInfo("Title")
    End Sub

Private Sub reprise_Click(sender As Object, e As EventArgs) Handles reprise.Click
        WindowsMediaPlayer1.Ctlcontrols.play()
        Me.Text = WindowsMediaPlayer1.currentMedia.getItemInfo("Title")
    End Sub

Private Sub precedent_Click(sender As Object, e As EventArgs) Handles precedent.Click
        WindowsMediaPlayer1.Ctlcontrols.previous()
        Me.Text = WindowsMediaPlayer1.currentMedia.getItemInfo("Title")
    End Sub

Private Sub suivant_Click(sender As Object, e As EventArgs) Handles suivant.Click
        WindowsMediaPlayer1.Ctlcontrols.next()
        Me.Text = WindowsMediaPlayer1.currentMedia.getItemInfo("Title")
    End Sub

Private Sub stop_lect_Click(sender As Object, e As EventArgs) Handles stop_lect.Click
        WindowsMediaPlayer1.Ctlcontrols.stop()
        Me.Text = "MonAutreLecteurMultimedia"
    End Sub

Private Sub quitter_app_Click(sender As Object, e As EventArgs) Handles quitter_app.Click
        Application.Exit()
    End Sub

Private Sub AfficherLeProgrammeToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AfficherLeProgrammeToolStripMenuItem.Click
        Me.Visible = True
        Me.WindowState = FormWindowState.Normal

End Sub

End Class
 
Savez-vous s'il est possible de mettre à jour le titre de l'interface (Form) par le titre de la musique joué ?
Si oui, comment ?


Merci et bonne journée à tous.
++

little boy62 · Answer

Yo.

P'tit UP

:)
++

Windows Media player : affiche le titre de la musique joué

1 réponse

Votre réponse

Discussions similaires