[asmarsou]

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

[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

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

[asmarsou]

(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

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

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

[alfaiz678]

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