[الـ ـجارح]

السلام عليكم

طلب كودين للفيجوال بيسك 2010 الاول عند الضغط على عشوائي يأتي بجمله عشوائيه من listbox 
ويقوم بعرضها فوق في textbox

والثاني انا ياتي بالترتيب من اول جمله الى اخر جمله ثم يعيد

يعني كل مااضغط على ترتيب او عشوائي تظهر لي حكمه او شعر من اللي انا ضايفهم في مربع listbox

[hassan]

بخصوص الكود الاول هذا الكود

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 


وشكرا