منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - كيفية جلب مدة تشغيل عدة ملفات صوتية قبل تشغيلها

السلام عليكم و رحمة الله و بركاته
هل يوجد طريقة لمعرفة زمن تشغيل عدة ملفات صوتية مختارة عن طريق اوبن فايل قبل تشغيلها و عرضها في قائمة
ارجو افادتي ان امكن
مشكورين

(21-02-21, 11:40 AM)asmarsou كتب : [ -> ]السلام عليكم و رحمة الله و بركاته
هل يوجد طريقة لمعرفة زمن تشغيل عدة ملفات صوتية مختارة عن طريق اوبن فايل قبل تشغيلها و عرضها في قائمة
ارجو افادتي ان امكن
مشكورين

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

كود :

Dim w As New WMPLib.WindowsMediaPlayer

    Dim m As WMPLib.IWMPMedia ' = w.newMedia(file)

 OpenFileDialog1.Title = "اختر ملفا صوتيا"

        OpenFileDialog1.Multiselect = True

        OpenFileDialog1.Filter = "ملفات صوتية(*.mp3)|"

        OpenFileDialog1.FileName = "*.mp3"

If (OpenFileDialog1.ShowDialog = DialogResult.OK) Then

            Cursor = Cursors.WaitCursor

            Application.DoEvents()

            '  TimerDuration.Enabled = True

            For Each file As String In OpenFileDialog1.FileNames

                m = w.newMedia(file)

                If m IsNot Nothing Then

                    Duration = m.durationString

                    Durationa = m.duration

                End If

                w.close()

 Lst = ListView1.Items.Add(IO.Path.GetFileName(file))

                Lst.SubItems.Add(Duration)

            Next

 End If

واسند الناتج الى ليست فيو

(21-02-21, 12:36 PM)alfaiz678 كتب : [ -> ]
(21-02-21, 11:40 AM)asmarsou كتب : [ -> ]السلام عليكم و رحمة الله و بركاته
هل يوجد طريقة لمعرفة زمن تشغيل عدة ملفات صوتية مختارة عن طريق اوبن فايل قبل تشغيلها و عرضها في قائمة
ارجو افادتي ان امكن
مشكورين

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

كود :

Dim w As New WMPLib.WindowsMediaPlayer Dim m As WMPLib.IWMPMedia ' = w.newMedia(file) OpenFileDialog1.Title = "اختر ملفا صوتيا" OpenFileDialog1.Multiselect = True OpenFileDialog1.Filter = "ملفات صوتية(*.mp3)|" OpenFileDialog1.FileName = "*.mp3" If (OpenFileDialog1.ShowDialog = DialogResult.OK) Then Cursor = Cursors.WaitCursor Application.DoEvents() ' TimerDuration.Enabled = True For Each file As String In OpenFileDialog1.FileNames m = w.newMedia(file) If m IsNot Nothing Then Duration = m.durationString Durationa = m.duration End If w.close() Lst = ListView1.Items.Add(IO.Path.GetFileName(file)) Lst.SubItems.Add(Duration) Next End If
واسند الناتج الى ليست فيو

تمام التمام ...اتم الله عليك بوافر النعم و كفاك شر النقم كلانا وكل من اتبع قائلا آمين
الف شكر اخي الكريم

امين
حياك الله اخي