منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[محلولة] عن ضبط قيمة trackbar بناء على قيمة duration الخاصة بـ axwindowsmediaplayer - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [محلولة] عن ضبط قيمة trackbar بناء على قيمة duration الخاصة بـ axwindowsmediaplayer (/showthread.php?tid=10284)

[محلولة] عن ضبط قيمة trackbar بناء على قيمة duration الخاصة بـ axwindowsmediaplayer - سعود - 30-08-13

لما نعرف هكذا
كود :
Dim WithEvents AxWindowsMediaPlayer1 As New WindowsMediaPlayer

كيف استطيع اجعل قيمة الـ trackbar تتغير مع تقدم الفيلم او الصوت

[سؤال] عن ضبط قيمة trackbar بناء على قيمة duration الخاصة بـ axwindowsmediaplayer - MSDOS - 30-08-13

تقضل أخي سعود
كود :
Public Class Form1

    Dim WithEvents WindowsMediaPlayer As WMPLib.WindowsMediaPlayer = New WMPLib.WindowsMediaPlayer

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim op As New OpenFileDialog
        op.Filter = "all media |*.mp3;*.wma;*.mpg;*.avi;*.mp4;*.wmv"
        If op.ShowDialog = Windows.Forms.DialogResult.OK Then

            ' معرفة مدة ملف الفيديو أو الصوت
             TrackBar1.Maximum = WindowsMediaPlayer.newMedia(op.FileName).duration

            ' تشغيل
            WindowsMediaPlayer.URL = op.FileName
            WindowsMediaPlayer.controls.play()

        End If
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ' التأكد من التشغيل
        If WindowsMediaPlayer.playState = WMPLib.WMPPlayState.wmppsPlaying Then
            ' معرفة نقطة التشغيل
            TrackBar1.Value = WindowsMediaPlayer.controls.currentPosition
        End If
    End Sub

    Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
        ' تغيير نقطة التشغيل
        WindowsMediaPlayer.controls.currentPosition = TrackBar1.Value
    End Sub

End Class


[سؤال] عن ضبط قيمة trackbar بناء على قيمة duration الخاصة بـ axwindowsmediaplayer - MSDOS - 30-08-13

من اللي له صلاحية يغير الوسم اللي في الموضوع

1: صاحب الموضوع
2: الإدارة
3: أي عضو (كيف؟)

[سؤال] عن ضبط قيمة trackbar بناء على قيمة duration الخاصة بـ axwindowsmediaplayer - MSDOS - 30-08-13

تقدر تحرك مسطرة TrackBar1 بس طبعا مثل مديابلاير الويندوز لازم تنتظر ثانية أو ثانيتين عشان يحلل مكان النقطة الجديدة ويكمل من عندها

[سؤال] عن ضبط قيمة trackbar بناء على قيمة duration الخاصة بـ axwindowsmediaplayer - MSDOS - 30-08-13

أضفت للمثال 2 لابيل ، الاول Label1 يعرض مدة الفلم كامل والثاني Label2 يعرض النقطة الحالية (العرض على هيئة 00:00)
كود :
Public Class Form1

    Dim WithEvents WindowsMediaPlayer As WMPLib.WindowsMediaPlayer = New WMPLib.WindowsMediaPlayer

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim op As New OpenFileDialog
        op.Filter = "all media |*.mp3;*.wma;*.mpg;*.avi;*.mp4;*.wmv"
        If op.ShowDialog = Windows.Forms.DialogResult.OK Then

            ' معرفة مدة ملف الفيديو أو الصوت
            TrackBar1.Maximum = WindowsMediaPlayer.newMedia(op.FileName).duration
            ' عرض  مدة ملف الفيديو أو الصوت
            Label1.Text = WindowsMediaPlayer.newMedia(op.FileName).durationString

            ' تشغيل
            WindowsMediaPlayer.URL = op.FileName
            WindowsMediaPlayer.controls.play()

        End If
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        ' التأكد من التشغيل
        If WindowsMediaPlayer.playState = WMPLib.WMPPlayState.wmppsPlaying Then
            ' معرفة نقطة التشغيل
            TrackBar1.Value = WindowsMediaPlayer.controls.currentPosition
            ' عرض نقطة التشغيل
            Label2.Text = WindowsMediaPlayer.controls.currentPositionString
        End If
    End Sub

    Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll
        ' تغيير نقطة التشغيل
        WindowsMediaPlayer.controls.currentPosition = TrackBar1.Value
    End Sub

End Class