[غزوان خليل]

(04-04-15, 10:52 PM)ameerah كتب : هذه مجموعة الأكواد الخاصة بمشغل الصوتيات والفديو على أساس TrackBar1 خاص بالتحكم بالمسار وTrackBar2 خاص بالتحكم بالصوت

كود :

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

اخي الغالي لقد جربت الأكواد
كود التحكم بصوت صحيح
ولكن كود تقدم المسار لا يعمل

---

(05-04-15, 12:17 PM)قناص المدينة كتب : اتمنى ان تستفيد من هذا الكتاب فيه شرح ومثال كامل 

اخي الغاي لقد جربت فتح الكتاب على اكتر من برنامج ولكن يعطيني انه معطوب
لذلك ارجوا ان تتحقق منه وترفعه لي موة اخرى