[غزوان خليل]

PHP كود :

Dim videofile As String = "video.mp4"


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

   AxWindowsMediaPlayer1.URL = videofile
   TrackBar1.Maximum = AxWindowsMediaPlayer1.newMedia(videofile).duration

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

End Sub


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


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


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


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




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