تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] طريقة تعبئة listbox من ملف text وربطه برابط على الانترنت
#11
(10-02-17, 10:19 PM)youssef1 كتب :
(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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  محتاج طريقة لتنسيق نص الرسالة المرسلة إلى الواتس اب new_programer 2 151 04-03-24, 07:15 AM
آخر رد: new_programer
  طريقة اجراء نسخة احتياطية و استرجاعها ؟ Osama NY 2 458 07-02-24, 08:59 PM
آخر رد: Kamil
  ماهي طريقة نقل محتويات checkedlistbox الى داتاقريدفيو صالح عبدالله 3 245 06-01-24, 03:20 PM
آخر رد: Kamil
  [VB.NET] ما هي طريقة استدعاء الازرار في الكيبورد من خلار زر افتراضي haider.mohsin92 1 290 14-12-23, 03:19 PM
آخر رد: Kamil
  طريقة عرض التقرير كريستال ريبورت في جهاز العميل Adel27213 2 339 10-12-23, 04:03 AM
آخر رد: Adel27213
  كيف يتم تعبئة قريد فيو بدون قاعدة بيانات بشكل مباشر؟ nowiglah 1 368 01-12-23, 10:57 PM
آخر رد: Taha Okla
  طريقة إسناد اكثر من جدول للكريستال ريبورت Adel27213 2 350 25-11-23, 11:51 PM
آخر رد: Adel27213
  طريقة تحويل الأرقام إلى حروف Adel27213 2 487 18-11-23, 01:40 AM
آخر رد: sniper2030
  [VB.NET] listbox تلوين عدد من هذه الأسماء mervandz 3 413 18-11-23, 01:35 AM
آخر رد: sniper2030
Information [VB.NET] حذف كل العناصر التي تاتي بعد عنصر الذي احدده listbox mervandz 3 287 10-11-23, 07:12 PM
آخر رد: justforit

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


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