المشاركات : 204
المواضيع 14
الإنتساب : Jun 2015
السمعة :
10
الشكر: 250
تم شكره 222 مرات في 132 مشاركات
ياليت توضح اكثر
هل سيكون في ليست بوكس 1 روابط
http://vb4arb.com/
http://vb4arb.com/vb
http://vb4arb.com/twitter ^^
وعند تحديدها يقوم بتحمل محتوى الرابط ويضعه في ليست بوكس 2
الْلَّهُم صَلِّ وَسَلِم وَبَارِك عَلَى سَيِّدِنَا مُحَمَّد
المشاركات : 33
المواضيع 16
الإنتساب : Feb 2016
السمعة :
1
الشكر: 17
تم شكره 22 مرات في 17 مشاركات
26-07-16, 09:53 PM
(آخر تعديل لهذه المشاركة : 26-07-16, 09:53 PM {2} بواسطة mervandzz.)
نعم يااخي LoveVb الليست بوكس 1 يكون فيه روابط و كل رابط له محتوي نصي معين و كل مااضغط علي زر معين يتغير المحتوي علي حسب الرابط الي انا عاملو
بس الروابط مو تكون ضاهرة علي الليست يوكس
المشاركات : 204
المواضيع 14
الإنتساب : Jun 2015
السمعة :
10
الشكر: 250
تم شكره 222 مرات في 132 مشاركات
26-07-16, 10:12 PM
(آخر تعديل لهذه المشاركة : 26-07-16, 10:13 PM {2} بواسطة LoveVb.)
قم بجعل العناصر في ليست بوكس واحد هكذا
الرابط الاول ثم مسافة حتى المستخدم لا يستطيع رؤيته ثم علامة ~ ثم رابط الرابط الاولى
هكذا
الرابط الاول ~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
اختر اي واحده
هل المحتوى في الرابط اكثر من سطر؟
الْلَّهُم صَلِّ وَسَلِم وَبَارِك عَلَى سَيِّدِنَا مُحَمَّد
المشاركات : 33
المواضيع 16
الإنتساب : Feb 2016
السمعة :
1
الشكر: 17
تم شكره 22 مرات في 17 مشاركات
مشكور يا اخ و الطريقة الثانية نجحت بس المحتوي ضهر كله في سطر واحد
المشاركات : 204
المواضيع 14
الإنتساب : Jun 2015
السمعة :
10
الشكر: 250
تم شكره 222 مرات في 132 مشاركات
العفو
ListBox2.Items.AddRange(Split(New Net.WebClient().DownloadString(Urls(ListBox1.SelectedIndex)), vbNewLine))
الْلَّهُم صَلِّ وَسَلِم وَبَارِك عَلَى سَيِّدِنَا مُحَمَّد
المشاركات : 33
المواضيع 16
الإنتساب : Feb 2016
السمعة :
1
الشكر: 17
تم شكره 22 مرات في 17 مشاركات
مشكور و رايح اتبعك معايا انو لما اضغط علي الليست بوكس الاول علي الرابط الثاني مثال ما ينحدف المحتوي الرابط الاول من الليست بوكس الثاني و مشكور مرة ثانية
المشاركات : 204
المواضيع 14
الإنتساب : Jun 2015
السمعة :
10
الشكر: 250
تم شكره 222 مرات في 132 مشاركات
ضع قبل كود جلب المحتوى
listbox2.items.clear
العفو ^^
الْلَّهُم صَلِّ وَسَلِم وَبَارِك عَلَى سَيِّدِنَا مُحَمَّد
المشاركات : 33
المواضيع 16
الإنتساب : Feb 2016
السمعة :
1
الشكر: 17
تم شكره 22 مرات في 17 مشاركات
الف الف شكر يااخ LoveVbعلي مجهودك و ربنا يزيدهالك في حسناتك انشالله