نعم يااخي LoveVb الليست بوكس 1 يكون فيه روابط و كل رابط له محتوي نصي معين و كل مااضغط علي زر معين يتغير المحتوي علي حسب الرابط الي انا عاملو
بس الروابط مو تكون ضاهرة علي الليست يوكس
قم بجعل العناصر في ليست بوكس واحد هكذا
الرابط الاول ثم مسافة حتى المستخدم لا يستطيع رؤيته ثم علامة ~ ثم رابط الرابط الاولى
هكذا
الرابط الاول ~http://vb4arb.com
ضع هذا الكود
إقتباس : Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
ListBox2.Items.Add(New Net.WebClient().DownloadString(ListBox1.SelectedItem.ToString.Split("~")(1)))
End Sub
او الطريقة الثانية وهي إنشاء مصفوفة عامة
Dim Urls() As String = {"link1", "link2", "link3", "link4"}
ثم تضع الروابط بها
والكود يكون
إقتباس : Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
ListBox2.Items.Add(New Net.WebClient().DownloadString(Urls(ListBox1.SelectedIndex)))
End Sub
اختر اي واحده
هل المحتوى في الرابط اكثر من سطر؟
مشكور يا اخ و الطريقة الثانية نجحت بس المحتوي ضهر كله في سطر واحد
العفو
ListBox2.Items.AddRange(Split(New Net.WebClient().DownloadString(Urls(ListBox1.SelectedIndex)), vbNewLine))
مشكور و رايح اتبعك معايا انو لما اضغط علي الليست بوكس الاول علي الرابط الثاني مثال ما ينحدف المحتوي الرابط الاول من الليست بوكس الثاني و مشكور مرة ثانية
ضع قبل كود جلب المحتوى
listbox2.items.clear
العفو ^^
الف الف شكر يااخ LoveVbعلي مجهودك و ربنا يزيدهالك في حسناتك انشالله
