01-02-26, 12:26 PM
01-02-26, 12:26 PM
01-02-26, 08:22 PM
السلام عليكم اخي , ارجو ان يساعدك هذا الكود اسفله :- اكيد بعد اضافة الاداة الى بيئة العمل :-
' لتشغيل الفيديو
Private Sub btnPlay_Click(sender As Object, e As EventArgs) Handles btnPlay.Click
AxWindowsMediaPlayer1.URL = "C:\مسار_الفيديو\video.mp4"
AxWindowsMediaPlayer1.Ctlcontrols.play()
End Sub
' لإيقاف الفيديو
Private Sub btnStop_Click(sender As Object, e As EventArgs) Handles btnStop.Click
AxWindowsMediaPlayer1.Ctlcontrols.stop()
End Sub
' لتقديم الفيديو 5 ثواني
Private Sub btnForward_Click(sender As Object, e As EventArgs) Handles btnForward.Click
AxWindowsMediaPlayer1.Ctlcontrols.currentPosition += 5
End Sub
' لإعادة الفيديو 5 ثواني
Private Sub btnRewind_Click(sender As Object, e As EventArgs) Handles btnRewind.Click
AxWindowsMediaPlayer1.Ctlcontrols.currentPosition -= 5
End Sub
' لتشغيل الفيديو
Private Sub btnPlay_Click(sender As Object, e As EventArgs) Handles btnPlay.Click
AxWindowsMediaPlayer1.URL = "C:\مسار_الفيديو\video.mp4"
AxWindowsMediaPlayer1.Ctlcontrols.play()
End Sub
' لإيقاف الفيديو
Private Sub btnStop_Click(sender As Object, e As EventArgs) Handles btnStop.Click
AxWindowsMediaPlayer1.Ctlcontrols.stop()
End Sub
' لتقديم الفيديو 5 ثواني
Private Sub btnForward_Click(sender As Object, e As EventArgs) Handles btnForward.Click
AxWindowsMediaPlayer1.Ctlcontrols.currentPosition += 5
End Sub
' لإعادة الفيديو 5 ثواني
Private Sub btnRewind_Click(sender As Object, e As EventArgs) Handles btnRewind.Click
AxWindowsMediaPlayer1.Ctlcontrols.currentPosition -= 5
End Sub
02-02-26, 12:31 PM
![[صورة مرفقة: p_36849cnrj1.jpg]](https://a.top4top.io/p_36849cnrj1.jpg)
![[صورة مرفقة: p_3685fiurn1.jpg]](https://k.top4top.io/p_3685fiurn1.jpg)