Aux connaisseurs de VB.NET

Code:


wmp.path = Rechercher.filename
wmp.play


Code:

Imports System.IO

Public Class F_Multimédia

    Private Sub Onglet_Radio_Click(sender As System.Object, e As System.EventArgs) Handles Onglet_Radio.Click
        Player_Film.close()
        Player_Musique.close()
    End Sub

    Private Sub Onglet_Film_Click(sender As System.Object, e As System.EventArgs) Handles Onglet_Film.Click
        Player_Musique.close()
        Player_Radio.close()
    End Sub

    Private Sub Onglet_Musique_Click(sender As System.Object, e As System.EventArgs) Handles Onglet_Musique.Click
        Player_Film.close()
        Player_Radio.close()
    End Sub

    Private Sub B_Agrandir_Click(sender As System.Object, e As System.EventArgs) Handles B_Agrandir.Click
        If (Player_Film.playState = WMPLib.WMPPlayState.wmppsPlaying) Then 'Si un film est en cours de lecture, on peut mettre en plein écran.
            Player_Film.fullScreen = True
        Else 'Sinon, un message s'affiche
            MsgBox("Vous ne pouvez pas mettre en plein écran tant qu'un film n'est pas commencé.", MsgBoxStyle.OkOnly, "ATTENTION !")
        End If
    End Sub

    Private Sub B_RechercherFilm_Click(sender As System.Object, e As System.EventArgs) Handles B_RechercherFilm.Click
        Dim myStream As Stream
        Dim Recherche_Film As New OpenFileDialog()

        Recherche_Film.InitialDirectory = "c:\"
        Recherche_Film.Filter = "wmv files (*.wmv)|*.wmv|avi files (*.avi)|*.avi|wma files (*.wma)|*.wma|wm files (*.wm)|*.wm"
        Recherche_Film.FilterIndex = 2
        Recherche_Film.RestoreDirectory = True

        If Recherche_Film.ShowDialog() = DialogResult.OK Then
            myStream = Recherche_Film.OpenFile()
            If Not (myStream Is Nothing) Then

                myStream.Close()
            End If
        End If
    End Sub
End Class


AlexLeGrec a écrit:...j'ai un sushi...