[محمد ايمن]

(28-06-20, 03:01 PM)WaeLx كتب :

(28-06-20, 01:06 PM)محمد ايمن كتب :

السلام عليكم ورحمت الله وبركاتواه

بعد ازنكم كن محتاج كود اضغط علي زر يزهر في تيكست بوكس او ليست بوكس اسماء ان اضعها في الكود ولكن تكوان الاسماء عشواءيه

وشكران لمساعدتك

و عليكم السلام و رحمة الله و بركاته

كود :

Dim n As Integer = ListBox1.Items.Count - 1
       Dim r As Integer = CInt(Int((n * Rnd()) + 1))
       TextBox1.text = ListBox1.Items(r)

هذا الكود يعرض قيم عشوائية في تيكست بوكس

و يستمد هذه القيم من ليست بوكس

تستطيع استبدال الليست بوكس في الكود بمصفوفة أو جريدفيو او بجدول بقاعدة البيانات او بأي شئ على حسب مكان الاسماء العشوائية لديك

شكران لحضرتك