تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] طريقة إضافة أيام الشهور لعدة سنوات؟! TOT 10 268 منذ 6 ساعة مضت
آخر رد: Amir_Alzubidy
  [VB.NET] كود او طريقة تثبيت الفريمورك اذا كان غير موجود باستخدام الساتب فاكتوري larbihamri 9 135 أمس, 07:40 PM
آخر رد: elgokr
  [VB.NET] طريقة طباعة نتيجة البحث في الداتاريبورت larbihamri 3 133 11-07-18, 05:56 PM
آخر رد: ghaner joseph
  هل هناك طريقة لتشغيل فيديوهات اليوتيوب ابو روضة 9 152 10-07-18, 06:09 PM
آخر رد: elgokr
  [سؤال] كيف اقوم بعمل فلتر لبيانات في LISTBOX تم تعبئة البيانات من خلال قاعدة البيانات dametucorazon 3 67 08-07-18, 03:05 AM
آخر رد: elgokr
  أنهيت العمل ! أحتاج الأن إلى طريقة لتثبيت برنامجي hichem1 13 164 07-07-18, 05:09 AM
آخر رد: hichem1
Lightbulb [سؤال] هلي يوجد طريقة لجعل لوحة المفاتيح تكتب لوحدها وكاني اظغط علي الازرار alipro 4 87 04-07-18, 05:24 PM
آخر رد: dametucorazon
  كود تحويل ما في ListBox ل TextBox YousefOkasha 2 60 30-06-18, 11:50 AM
آخر رد: YousefOkasha
  هل هناك طريقة لتسريع هذا الكود ابو روضة 2 120 29-06-18, 03:00 AM
آخر رد: YousefOkasha
  طريقة حساب شروق و غروب الشمس hichem1 3 78 28-06-18, 07:09 PM
آخر رد: elgokr

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


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