21-01-16, 07:39 PM
أريد معرفة كيفية تشغيل ملف بصيغة m3u. في vb.net 2008 بإستعمال أداة vlc ساعدوني شكرا لكم إخواني
[VB.NET] ملف بصيغة m3u.
|
21-01-16, 07:39 PM
أريد معرفة كيفية تشغيل ملف بصيغة m3u. في vb.net 2008 بإستعمال أداة vlc ساعدوني شكرا لكم إخواني
05-01-20, 04:35 PM
ستحتاج 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 تم الشكر بواسطة: محمد كريّم , ابو روضة
|
|