[غزوان خليل]

(09-04-15, 11:44 AM)غزوان خليل كتب :

(08-04-15, 04:26 PM)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

لقد نفذت الكود ولم ينجح معي ربما اخطات في تنفيذه لذلك سأرفع المشروع لك لكي تجربه لو سمحت




http://up.top4top.net/downloadf-top4top_...1-zip.html

اخي اين انت