+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] طلب كود اختيار كلمة عشوائيه من listbox وعرضها في textbox (/showthread.php?tid=12245)
طلب كود اختيار كلمة عشوائيه من listbox وعرضها في textbox - الـ ـجارح - 08-05-15
السلام عليكم
طلب كودين للفيجوال بيسك 2010 الاول عند الضغط على عشوائي يأتي بجمله عشوائيه من listbox
ويقوم بعرضها فوق في textbox
والثاني انا ياتي بالترتيب من اول جمله الى اخر جمله ثم يعيد
يعني كل مااضغط على ترتيب او عشوائي تظهر لي حكمه او شعر من اللي انا ضايفهم في مربع listbox
RE: طلب كود اختيار كلمة عشوائيه من listbox وعرضها في textbox - hassan - 08-05-15
بخصوص الكود الاول هذا الكود
PHP كود :
Dim rand As Integer = (Rnd() * ListBox1.Items.Count)
ListBox1.SelectedIndex = rand
الكود الثاني تضعه في التايمر
PHP كود :
On Error Resume Next
For i = 0 To ListBox1.Items.Count
ListBox1.SelectedIndex = i
System.Threading.Thread.Sleep(500)
Next
وشكرا