Microsoft Silverlight 4 - Tutoriel 15 : mPlayer

Démarrez Microsoft Visual Web Developer 2010 Express, puis sélectionnez Fichier puis Nouveau Projet... Sélectionnez Visual Basic puis Application Silverlight dans les modèles installés, sélectionnez un emplacement si vous le souhaitez, puis entrez un nom pour le projet et appuyez sur OK :

Une nouvelle fenêtre Nouvelle application Silverlight devrait apparaître, décochez la case Héberger l'application Silverlight sur un nouveau site Web, puis sélectionnez la Version de Silverlight ciblée :

Une page vierge nommée MainPage.xaml devrait alors apparaître :

Puis dans la section Tous les contrôles Silverlight de la Boîte à outils, sélectionnez le contrôle Canvas :

Dessinez deux Canvas sur la page, ensuite dans le volet XAML au-dessus de </Grid> modifiez les lignes <Canvas> comme ceci :

<Canvas Height="35" Width="400" VerticalAlignment="Top" HorizontalAlignment="Left" Name="Toolbar"></Canvas>
<Canvas Height="35" Width="400" Margin="0,265,0,0" VerticalAlignment="Top" HorizontalAlignment="Left" Name="Playback"></Canvas>

Voir ci-dessous :

Puis dans la section Contrôles Silverlight communs de la Boîte à outils, sélectionnez le contrôle Button :

Dessinez trois boutons sur la « barre d'outils » du Canvas en glissant les boutons de la Boîte à outils sur le Canvas, ensuite dans le volet XAML entre les balises <Canvas> et </Canvas>, modifiez les lignes <Button> comme ceci :

<Button Canvas.Left="6" Canvas.Top="6" Height="23" Width="75" Name="Open" Content="Open..."/>
<Button Canvas.Left="87" Canvas.Top="6" Height="23" Width="75" Name="PlayPause" Content="Play Pause"/>
<Button Canvas.Left="168" Canvas.Top="6" Height="23" Width="75" Name="Stop" Content="Stop"/>

Voir ci-dessous :

Puis dans la section Tous les contrôles Silverlight de la Boîte à outils, sélectionnez le contrôle Slider :

Dessinez un Slider sur le Canvas supérieur (barre d'outils) avec les boutons, et modifiez la ligne <Slider> comme ceci :

<Slider Canvas.Left="249" Canvas.Top="6" Height="23" Width="75" Minimum="-1" Maximum="1" Value="0" Name="Balance"/>

Ensuite dessinez deux Sliders de plus sur le Canvas inférieur (lecture), et modifiez les lignes <Slider> comme ceci :

<Slider Canvas.Left="6" Canvas.Top="6" Height="23" Width="237" Name="Position"/>
<Slider Canvas.Left="249" Canvas.Top="6" Height="23" Width="75" Minimum="0" Maximum="1" Value="0.5" Name="Volume"/>

Voir ci-dessous :

Puis dans la section Tous les contrôles Silverlight de la Boîte à outils, sélectionnez le contrôle MediaElement :

Dessinez un MediaElement sur la page entre les Canvas et dans le volet XAML modifiez la ligne <MediaElement> comme ceci :

<MediaElement Height="230" Width="400" Margin="0,35,0,0" HorizontalAlignment="Left" VerticalAlignment="Top" Stretch="Uniform" Name="Player"/>

Voir ci-dessous :

Faites un clic droit sur la page ou sur l'entrée pour MainPage.xaml dans l'Explorateur de solutions et choisissez l'option Afficher le code.

Dans la vue de code, en dessous de la ligne End Sub pour le constructeur Public Sub New() tapez les gestionnaires d'événements suivants :

Private Sub Player_MediaOpened(ByVal sender As Object, _
    ByVal args As RoutedEventArgs) _
    Handles Player.MediaOpened
  Position.Maximum = Player.NaturalDuration.TimeSpan.TotalMilliseconds
End Sub

Private Sub Player_MediaEnded(ByVal sender As Object, _
    ByVal args As RoutedEventArgs) _
    Handles Player.MediaEnded
  Player.Stop()
End Sub

Retournez au concepteur de vues en sélectionnant l'onglet MainPage.xaml, ou faites un clic droit sur la page ou sur l'entrée pour MainPage.xaml dans l'Explorateur de solutions et choisissez l'option Concepteur de vues.

Double-cliquez sur le bouton Open... et tapez ceci dans le Sub Open_Click Sub :

Dim OpenDialog As New OpenFileDialog
OpenDialog.Filter = "Audio|*.wma;*.mp3|Video|*.wmv;*mp4"
If OpenDialog.ShowDialog Then
  Try
    If OpenDialog.File.Exists Then
      Player.SetSource(OpenDialog.File.OpenRead())
    End If
  Catch ex As Exception
    'Ignore Errors
  End Try
End If

Retournez au concepteur de vues en sélectionnant l'onglet MainPage.xaml, ou faites un clic droit sur la page ou sur l'entrée pour MainPage.xaml dans l'Explorateur de solutions et choisissez l'option Concepteur de vues.

Double-cliquez sur le bouton Play Pause et tapez ceci dans le Sub PlayPause_Click :

If Player.CurrentState = MediaElementState.Playing Then
    Player.Pause()
Else
    Player.Play()
End If

Retournez au concepteur de vues en sélectionnant l'onglet MainPage.xaml, ou faites un clic droit sur la page ou sur l'entrée pour MainPage.xaml dans l'Explorateur de solutions et choisissez l'option Concepteur de vues.

Double-cliquez sur le bouton Stop et tapez ceci dans le Sub Stop_Click :

Player.Stop()

Retournez au concepteur de vues en sélectionnant l'onglet MainPage.xaml, ou faites un clic droit sur la page ou sur l'entrée pour MainPage.xaml dans l'Explorateur de solutions et choisissez l'option Concepteur de vues.

Double-cliquez sur le contrôle Slider « Balance », à la fin des boutons sur la barre d'outils Canvas et tapez ceci dans le Sub Balance_ValueChanged :

Player.Balance = Balance.Value

Retournez au concepteur de vues en sélectionnant l'onglet MainPage.xaml, ou faites un clic droit sur la page ou sur l'entrée pour MainPage.xaml dans l'Explorateur de solutions et choisissez l'option Concepteur de vues.

Double-cliquez sur le contrôle Slider « Position », qui est le plus grand Slider sur le Canvas Playback et tapez ceci dans le Sub Position_ValueChanged Sub :

Player.Position = TimeSpan.FromMilliseconds(CInt(Position.Value))

Retournez au concepteur de vues en sélectionnant l'onglet MainPage.xaml, ou faites un clic droit sur la page ou sur l'entrée pour MainPage.xaml dans l'Explorateur de solutions et choisissez l'option Concepteur de vues.

Double-cliquez sur le contrôle Slider « Volume », qui est à côté du Slider « Position » et tapez ceci dans le Sub Volume_ValueChanged :

Player.Volume = Volume.Value

Enregistrez le projet maintenant que vous avez terminé l'application Silverlight. Sélectionnez Debug ensuite Démarrer le débogage ou cliquez sur Démarrer le débogage :

Une fois que vous l'aurez fait, ce qui suit apparaîtra dans une nouvelle fenêtre du navigateur :

Vous pouvez ouvrir (en cliquant sur Open...) des fichiers audio et vidéo compatibles tels que Windows Media Audio/Video et MP3 :

Fermez la fenêtre du navigateur en cliquant sur le bouton Fermer en haut à droite du navigateur Web pour Arrêter l'application.