+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] ملف بصيغة m3u. (/showthread.php?tid=14465)
ملف بصيغة m3u. - yassine002 - 21-01-16
أريد معرفة كيفية تشغيل ملف بصيغة m3u. في vb.net 2008 بإستعمال أداة vlc ساعدوني شكرا لكم إخواني
RE: ملف بصيغة m3u. - nazar70 - 05-01-20
ستحتاج listbox & openfiledialog & button
Sub Read_m3u()
OpenFileDialog1.FileName = ""
OpenFileDialog1.Filter = "HamDane|*.m3u"
Dim result As DialogResult = OpenFileDialog1.ShowDialog()
Dim Lines As String() = IO.File.ReadAllLines(OpenFileDialog1.FileName)
Dim dt As New DataTable
Dim row(1) As String
For i As Integer = 0 To Lines.Length - 1
Dim line As String = Lines(i).ToString.Trim
If line.StartsWith("#EXTINF") Then
row(0) = line.Replace("#EXTINF:-1,", "").Trim
ElseIf line.StartsWith("http://") Then
row(1) = line.Trim
Dim a As ListViewItem
a = ListView1.Items.Add(row(0))
a.SubItems.Add(row(1))
End If
Next
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Read_m3u()
End Sub
-------------------------------------------------------------------------------------------------------------------
حين يختار الشخص مثلا القناة المعينة تشتغل على vlcplugin
Private Sub ListView1_MouseClick(sender As Object, e As MouseEventArgs) Handles ListView1.MouseClick
Dim channel As String = ListView1.SelectedItems(0).SubItems(0).Text
Dim lien As String = ListView1.SelectedItems(0).SubItems(1).Text
AxVLCPlugin21.Visible = True
AxVLCPlugin21.playlist.stop()
AxVLCPlugin21.playlist.clear()
AxVLCPlugin21.playlist.add(lien, Missing.Value, Missing.Value)
AxVLCPlugin21.playlist.play()
End Sub