[youssef1]

السلام عليكم اول منشور لي في هذه المجموعه
اريد انا اربط listbox بملف text موجود به عديد من القنوات وبجوارها روابط
القناه اريد ان اربطها بها علي ان يتم ظهور اسماء القنوات فقط وعند الضغط يتم فتح الرابط
في اداه gecko browser الرابط يكون موجود بجوار القناه
وشكرا

[youssef1]

(09-02-17, 10:58 PM)youssef1 كتب : السلام عليكم اول منشور لي في هذه المجموعه
اريد انا اربط listbox بملف text موجود به عديد من القنوات وبجوارها روابط
القناه اريد ان اربطها بها علي ان يتم ظهور اسماء القنوات فقط وعند الضغط يتم فتح الرابط
في اداه gecko browser الرابط يكون موجود بجوار القناه
وشكرا

لااحد يجيبني في اول مشاكره لي 

[مساعدة]

السلام عليكم

لم تضع ملف text ليتضح من كيف يمكن تقسيم محتوياته لربطها بالشكل الصحيح.


ضع مشروعك لتجد التجاوب من الأعضاء.

[youssef1]

(10-02-17, 01:33 AM)مساعدة كتب : السلام عليكم

لم تضع ملف text ليتضح من كيف يمكن تقسيم محتوياته لربطها بالشكل الصحيح.


ضع مشروعك لتجد التجاوب من الأعضاء.

ملف تكست اريد اسم الملف هو الذي يظهر في listbox وعند الضغط عليها يتم فتح الرابط الذي يليها

[مساعدة]

تفضل الكود

كود :

Private channelList As New List(Of String)

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    Dim lines() As String = File.ReadAllLines("C:\channellist.txt")
    For Each l As String In lines
        Dim data() As String = l.Split(",")
        If data.Length = 2 Then
            Me.ListBox1.Items.Add(data(0))
            channelList.Add(data(1))
        End If
    Next

End Sub

Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
    If Me.ListBox1.SelectedIndex >= 0 Then
        Me.WebBrowser1.Navigate(channelList(Me.ListBox1.SelectedIndex))
    End If
End Sub

[youssef1]

(10-02-17, 02:13 AM)مساعدة كتب : تفضل الكود

كود :

Private channelList As New List(Of String)

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
   Dim lines() As String = File.ReadAllLines("C:\channellist.txt")
   For Each l As String In lines
       Dim data() As String = l.Split(",")
       If data.Length = 2 Then
           Me.ListBox1.Items.Add(data(0))
           channelList.Add(data(1))
       End If
   Next

End Sub

Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
   If Me.ListBox1.SelectedIndex >= 0 Then
       Me.WebBrowser1.Navigate(channelList(Me.ListBox1.SelectedIndex))
   End If
End Sub

تمام شكرا اخي هل يمكن ان ارفع الملف عل استضافه كي اتحكم فيهم لانه يجب ان يكون عند الكل الملف اريد رفع الملف
علي الاستضاافه ووضع الرابط لو سمحت اخي

[مساعدة]

نعم ممكن وأسمح لك بذلك.

[youssef1]

(10-02-17, 05:35 PM)مساعدة كتب : نعم ممكن وأسمح لك بذلك.

لااخي اريد انه بدل من رابط الملف علي الحااوب يكون موجود علي استضافه بدل من مكان الملفف علي الجهاز رابط الملف علي الاستضافه هل
يمكن الكود

[hassan]

بعد اذن الاخوان

تم التعديل على الكود 

PHP كود :

Private channelList As New List(Of String)

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 If IO.File.Exists("C:\channellist.txt") Then
            IO.File.Delete("C:\channellist.txt")
        End If
        My.Computer.Network.DownloadFile("http://mywebsite.com/channellist.txt", "C:\channellist.txt")
   Dim lines() As String = File.ReadAllLines("C:\channellist.txt")
   For Each l As String In lines
       Dim data() As String = l.Split(",")
       If data.Length = 2 Then
           Me.ListBox1.Items.Add(data(0))
           channelList.Add(data(1))
       End If
   Next

End Sub

Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
   If Me.ListBox1.SelectedIndex >= 0 Then
       Me.WebBrowser1.Navigate(channelList(Me.ListBox1.SelectedIndex))
   End If
End Sub 


فقط قم بتعديل رابط ملف txt


شرح الاكواد المضافه

في هاذا الكود

PHP كود :

If IO.File.Exists("C:\channellist.txt") Then
            IO.File.Delete("C:\channellist.txt")
        End If 


اعطينا امر التحقق من ملف channellist.txt اذ كان موجود قم بحذفه( لكي لا تحدث مشاكل مع الكود الاتي كود تحميل الملف )



في الكود الثاني 

PHP كود :

My.Computer.Network.DownloadFile("http://mywebsite.com/channellist.txt", "C:\channellist.txt") 


قمنا بتحميل الملف ووضعه على مسار C:\channellist.txt


وباقي الاكواد المطرحه مسبقا معروف عمله




شكرا لكم

[youssef1]

(10-02-17, 09:35 PM)hassan كتب : بعد اذن الاخوان

تم التعديل على الكود 

PHP كود :

Private channelList As New List(Of String)

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 If IO.File.Exists("C:\channellist.txt") Then
            IO.File.Delete("C:\channellist.txt")
        End If
        My.Computer.Network.DownloadFile("http://mywebsite.com/channellist.txt", "C:\channellist.txt")
   Dim lines() As String = File.ReadAllLines("C:\channellist.txt")
   For Each l As String In lines
       Dim data() As String = l.Split(",")
       If data.Length = 2 Then
           Me.ListBox1.Items.Add(data(0))
           channelList.Add(data(1))
       End If
   Next

End Sub

Private Sub ListBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListBox1.SelectedIndexChanged
   If Me.ListBox1.SelectedIndex >= 0 Then
       Me.WebBrowser1.Navigate(channelList(Me.ListBox1.SelectedIndex))
   End If
End Sub 


فقط قم بتعديل رابط ملف txt


شرح الاكواد المضافه

في هاذا الكود

PHP كود :

If IO.File.Exists("C:\channellist.txt") Then
            IO.File.Delete("C:\channellist.txt")
        End If 


اعطينا امر التحقق من ملف channellist.txt اذ كان موجود قم بحذفه( لكي لا تحدث مشاكل مع الكود الاتي كود تحميل الملف )



في الكود الثاني 

PHP كود :

My.Computer.Network.DownloadFile("http://mywebsite.com/channellist.txt", "C:\channellist.txt") 


قمنا بتحميل الملف ووضعه على مسار C:\channellist.txt


وباقي الاكواد المطرحه مسبقا معروف عمله




شكرا لكم

متشكرا جدا ليك استاذ