تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] طريقة تعبئة listbox من ملف text وربطه برابط على الانترنت
#1
السلام عليكم اول منشور لي في هذه المجموعه
اريد انا اربط listbox بملف text موجود به عديد من القنوات وبجوارها روابط
القناه اريد ان اربطها بها علي ان يتم ظهور اسماء القنوات فقط وعند الضغط يتم فتح الرابط
في اداه gecko browser الرابط يكون موجود بجوار القناه
وشكرا
الرد }}}}
تم الشكر بواسطة:
#2
(09-02-17, 10:58 PM)youssef1 كتب : السلام عليكم اول منشور لي في هذه المجموعه
اريد انا اربط listbox بملف text موجود به عديد من القنوات وبجوارها روابط
القناه اريد ان اربطها بها علي ان يتم ظهور اسماء القنوات فقط وعند الضغط يتم فتح الرابط
في اداه gecko browser الرابط يكون موجود بجوار القناه
وشكرا

لااحد يجيبني في اول مشاكره لي  Sad Sad Sad Sad
الرد }}}}
تم الشكر بواسطة:
#3
السلام عليكم

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


ضع مشروعك لتجد التجاوب من الأعضاء.
الرد }}}}
تم الشكر بواسطة:
#4
(10-02-17, 01:33 AM)مساعدة كتب : السلام عليكم

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


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

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


الملفات المرفقة صورة/صور
   
الرد }}}}
تم الشكر بواسطة:
#5
تفضل الكود
كود :
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 , Amir_alzubidy , tempman
#6
(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
تمام شكرا اخي هل يمكن ان ارفع الملف عل استضافه كي اتحكم فيهم لانه يجب ان يكون عند الكل الملف اريد رفع الملف
علي الاستضاافه ووضع الرابط لو سمحت اخي
الرد }}}}
تم الشكر بواسطة:
#7
نعم ممكن وأسمح لك بذلك.
الرد }}}}
تم الشكر بواسطة: Amir_alzubidy
#8
(10-02-17, 05:35 PM)مساعدة كتب : نعم ممكن وأسمح لك بذلك.

لااخي اريد انه بدل من رابط الملف علي الحااوب يكون موجود علي استضافه بدل من مكان الملفف علي الجهاز رابط الملف علي الاستضافه هل
يمكن الكود
الرد }}}}
تم الشكر بواسطة:
#9
بعد اذن الاخوان

تم التعديل على الكود 
PHP كود :
Private channelList As New List(Of String)

Private 
Sub Form1_Load(sender As ObjectAs EventArgsHandles 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 ObjectAs EventArgsHandles 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 , Amir_alzubidy
#10
(10-02-17, 09:35 PM)hassan كتب : بعد اذن الاخوان

تم التعديل على الكود 
PHP كود :
Private channelList As New List(Of String)

Private 
Sub Form1_Load(sender As ObjectAs EventArgsHandles 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 ObjectAs EventArgsHandles 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


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




شكرا لكم
متشكرا جدا ليك استاذ Heart Heart Heart Heart
الرد }}}}
تم الشكر بواسطة: Amir_alzubidy


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  طريقة فصل Form عن المشروع Basil Abdallah 11 145 20-01-18, 02:39 AM
آخر رد: عبدالله الدوسري
  طريقة جعل الButton امام الPanel Basil Abdallah 3 59 17-01-18, 06:38 PM
آخر رد: Basil Abdallah
  [سؤال] تفعيل خاصية TextChanged للبحث عن عناصر listbox & وتفعيل زر Enter waelalmsry75 2 97 12-01-18, 07:58 PM
آخر رد: waelalmsry75
  تعبئة داتا جريد من جدولين مرتبطين ؟ Abdelazez.Ahmad 0 56 11-01-18, 08:35 PM
آخر رد: Abdelazez.Ahmad
  كيفية تغيير طريقة عرض التاريخ في الاداة DateTimePicker1 nooralcown 4 143 08-01-18, 01:47 PM
آخر رد: nooralcown
  [سؤال] كيف اخلي البرنامج يشتغل بدون نت فروم ورك و طريقة اختيار النت فروم ورك hassan 11 5,954 07-01-18, 05:02 PM
آخر رد: Mohamed371
  [VB.NET] طريقة الربط بين الميزان وبرنامجي ssayed111 2 131 06-01-18, 09:18 AM
آخر رد: ssayed111
  اريد كود يقوم بالبحث عن جملة معينة في ملف text ... التفاصيل في الداخل DanyGhost2010 3 95 27-12-17, 09:03 PM
آخر رد: طالب برمجة
  طريقة عرض جزء من موقع في WebBroswer؟؟ The Light Fire 1 73 27-12-17, 07:23 PM
آخر رد: abiza
  [VB.NET] جملة الاستعلام في تعبئة الداتا جريد فيو خاطئة altho8 5 153 27-12-17, 02:19 PM
آخر رد: abiza

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم