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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] عمل سيرفر Local وربطه ببرنامج فيجوال بيسك عبدالرحمن المكاوي 0 11 منذ 5 ساعة مضت
آخر رد: عبدالرحمن المكاوي
  تعبئة كومبوبكس 2 حسب الاختيار حافظ حافظ 8 202 17-04-18, 04:22 PM
آخر رد: حافظ حافظ
  ماهي أفضل طريقة لحماية برامجك ؟؟ starosta 11 3,302 17-04-18, 04:57 AM
آخر رد: mohammedvego
  [VB.NET] كيف اجعل listbox تستوعب اكبر عدد ممكن من الكلمات او الارقام e-coder 1 64 16-04-18, 04:55 PM
آخر رد: e-coder
  كيف كيف طريقة تركيب سورس على فيجوال بيسك elokely 0 50 13-04-18, 09:27 PM
آخر رد: elokely
  طريقة ارسال sms Marwan9990 1 82 11-04-18, 05:41 PM
آخر رد: prj
  [سؤال] هل يوجد طريقة لاطفاء بعض وظائف الويندوز من خلال الفورم؟ Iman Mohamed Omran 1 73 30-03-18, 08:30 PM
آخر رد: سعود الشامان
  ممكن طريقة عمل حماية لبرنامجك في فيجوال بيسك 2010 بحيث يكون لكل جهاز سريال asas77477 2 282 29-03-18, 02:53 PM
آخر رد: silverlight
Rainbow [VB.NET] أريد أسرع طريقة لحساب عدد الأسطر في عدة جداول في قاعدة البيانات Sort by votes sniperjawadino 8 226 29-03-18, 02:54 AM
آخر رد: sniperjawadino
  طريقة عمل اشعارات مشابها لفكرة موقع تويتر Marwan9990 0 88 24-03-18, 12:40 PM
آخر رد: Marwan9990

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


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