Acceuil  vb.net(746) Utiliser Windows Media Player en VB.NET
|
| Utiliser Windows Media Player en VB.NET |
2011-05-28 |
|
Les mesures que vous aurez à faire.
Démarrez Visual Studio et créer une application nouvelle fenêtre de projet. Définissez les propriétés suivantes du formulaire à l'aide de fenêtres de propriétés.
Text = Media Player, BoarderStyle = FixedSingle, MaximizeBox = False, Size = 298,298
Maintenant, faites un clic droit sur la barre d'outils et dans le menu choisissez "Ajouter / Supprimer des éléments". Une boîte de dialogue apparaît choisissez l'option "COM Component" onglet. Recherche pour Windows Media Player et le vérifier en cliquant dans la case. Cliquez sur OK. Maintenant dans votre boîte à outils un nouvel élément est ajouté avec le nom de Windows Media Player.
Drop ceci à votre formulaire et définissez les propriétés suivantes.
Name = player, Size = 298,250
Drop un contrôle menu principal pour construire le menu pour media player Construire le menu dans la hiérarchie suivante et définissez-il des noms comme indiqué entre parenthèses.
File
Open (open)
Exit (mexit)
Player
Play (play)
Stop (mstop)
Pause (mpause)
Volume
Up (mup)
Down (mdown)
Mute (mmute)
De chute de boîte à outils un «OpenFileDialogBox" contrôle à votre formulaire. Définir son nom à "OPD". Ouvrez la fenêtre de code et d'écrire le code ci-dessous dans votre fenêtre de code.
Private Sub open_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles open.Click Private Sub open_Click (ByVal sender As System.Object, ByVal e comme System.EventArgs) Handles open.Click
Try Essayez
opd.InitialDirectory = "c:" opd.InitialDirectory = "c: "
opd.ShowDialog() opd.ShowDialog ()
player.URL = opd.FileName = Opd.FileName player.URL
player.Ctlcontrols.play() player.Ctlcontrols.play ()
Catch ex As Exception Catch ex As Exception
MessageBox.Show("Some error occur so can't play media", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error) MessageBox.Show ("Une erreur se produit ne peut donc pas jouer les médias", "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try End Try
End Sub End Sub
//===============================================================
Private Sub open_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles open.Click
Try
opd.InitialDirectory = "c:"
opd.ShowDialog()
player.URL = opd.FileName
player.Ctlcontrols.play()
Catch ex As Exception
MessageBox.Show("Some error occur so can't play media", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try
End Sub
Private Sub mexit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mexit.Click
Application.Exit()
End Sub
Private Sub play_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles play.Click
player.Ctlcontrols.play()
End Sub
Private Sub mstop_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mstop.Click
player.Ctlcontrols.stop()
End Sub
Private Sub mpause_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mpause.Click
player.Ctlcontrols.pause()
End Sub
Private Sub mup_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mup.Click
player.settings.volume = player.settings.volume + 10
End Sub
Private Sub mdown_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mdown.Click
player.settings.volume = player.settings.volume - 10
End Sub
Private Sub mmute_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles mmute.Click
If player.settings.volume = player.settings.mute() Then
player.settings.volume = 20
Else
player.settings.volume = player.settings.mute()
End If
End
|
| Commentaires des visiteurs : |
|
Avenue des F.A.R. Rsidence Niama N6 - Ttouan (Maroc)