[ameerah]

كود :

Public Class Form1


    Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load

        AxWindowsMediaPlayer1.uiMode = "none"

        TrackBar2.Maximum = 100
        TrackBar2.Value = AxWindowsMediaPlayer1.settings.volume

    End Sub


    Private Sub فتحToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles فتحToolStripMenuItem.Click
        OpenMedia()
    End Sub

    Private Sub PictureBox4_Click(ByVal sender As Object, ByVal e As EventArgs) Handles PictureBox4.Click
        OpenMedia()
    End Sub


    Private Sub OpenMedia()
        Using dlg As New OpenFileDialog
            dlg.Filter = "Media files|*.wav;*.mp3;*.mp4;*.mpeg;*.dat;*.wma;*.wm v;*.rm;*.ram;*.avi;*.asf"
            If dlg.ShowDialog() = Windows.Forms.DialogResult.OK Then
                AxWindowsMediaPlayer1.URL = dlg.FileName
                TrackBar1.Maximum = AxWindowsMediaPlayer1.newMedia(dlg.FileName).duration
            End If
        End Using
    End Sub


    Private Sub TrackBar1_Scroll(ByVal sender As Object, ByVal e As EventArgs) Handles TrackBar1.Scroll
        AxWindowsMediaPlayer1.Ctlcontrols.currentPosition = TrackBar1.Value
    End Sub

    Private Sub Timer1_Tick(ByVal sender As Object, ByVal e As EventArgs) Handles Timer1.Tick
        TrackBar1.Value = AxWindowsMediaPlayer1.Ctlcontrols.currentPosition
    End Sub

    Private Sub TrackBar2_Scroll(ByVal sender As Object, ByVal e As EventArgs) Handles TrackBar2.Scroll
        AxWindowsMediaPlayer1.settings.volume = TrackBar2.Value
    End Sub






    Private Sub PictureBox1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles PictureBox1.Click
        AxWindowsMediaPlayer1.Ctlcontrols.play()
    End Sub

    Private Sub PictureBox2_Click(ByVal sender As Object, ByVal e As EventArgs) Handles PictureBox2.Click
        AxWindowsMediaPlayer1.Ctlcontrols.stop()
    End Sub

    Private Sub PictureBox3_Click(ByVal sender As Object, ByVal e As EventArgs) Handles PictureBox3.Click
        AxWindowsMediaPlayer1.Ctlcontrols.pause()
    End Sub

    Private Sub PictureBox5_Click(ByVal sender As Object, ByVal e As EventArgs) Handles PictureBox5.Click
        AxWindowsMediaPlayer1.Ctlcontrols.fastForward()
    End Sub

    Private Sub PictureBox6_Click(ByVal sender As Object, ByVal e As EventArgs) Handles PictureBox6.Click
        AxWindowsMediaPlayer1.Ctlcontrols.fastReverse()
    End Sub

    Private Sub PictureBox7_Click(ByVal sender As Object, ByVal e As EventArgs) Handles PictureBox7.Click
        If Me.AxWindowsMediaPlayer1.settings.mute = False Then
            Me.AxWindowsMediaPlayer1.settings.mute = True
            Me.TrackBar2.Enabled = False
        Else
            Me.AxWindowsMediaPlayer1.settings.mute = False
            Me.TrackBar2.Enabled = True
        End If
    End Sub

    Private Sub التاليToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles التاليToolStripMenuItem.Click
        AxWindowsMediaPlayer1.Ctlcontrols.fastForward()
    End Sub

    Private Sub السابقToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles السابقToolStripMenuItem.Click
        AxWindowsMediaPlayer1.Ctlcontrols.fastReverse()
    End Sub


End Class