منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
مطلوب كود بعد ازن اخونا العرب(تم الحل) - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مطلوب كود بعد ازن اخونا العرب(تم الحل) (/showthread.php?tid=35204)



مطلوب كود بعد ازن اخونا العرب(تم الحل) - محمد ايمن - 12-06-20

السلام عليكم ورحمت الله وبركتواه
بعد ازنكم كنت احتاج كود وهو كلتلي
اضغط علي زر ويزهرلي اسما عشواءيه في تيكست بوكس 
مثل
-------
محمد ايمن
محمد صلاح
ابرهيم احمد
--------------------------------------
احتاج ان تكون هزه ال اسما تزهر عشواي في تيكست بوكس
------------------------------
و شكران مقدمان يارب استفد ويستفاد غيري من الموضوع
------------------
تم الحل وده الكود ولكني احتاج ان تكوان ال اسماء عشواءيه
PHP كود :
TextBox1.Text Int(Rnd() * 3)
 
       Select Case TextBox1.Text
            Case 0
                TextBox1
.Text " ابرهيم صلاح "
 
           Case 1
                TextBox1
.Text " محمد صلاح "
 
           Case 2
                TextBox1
.Text " محمد ايمن "
 
       End Select 




RE: مطلوب كود بعد ازن اخونا العرب(تم الحل) - سعود - 12-06-20

ضع الاسماء بمصفوفة نصية او قائمة نصية
dim i as integer=Int(Rnd() * 3)
textbox1.text= lst(i).tostring()

PHP كود :
Public Class Form1
    Dim n
(2) As String
    Private Sub Form1_Load
(sender As ObjectAs EventArgsHandles MyBase.Load
        n 
= {"saud""mady""ali"}
 
   End Sub

    Private Sub Button1_Click
(sender As ObjectAs EventArgsHandles Button1.Click
        Dim i 
As Integer Int(Rnd() * n.Length)
 
       Dim t As String n(i)
 
       TextBox1.Text t
    End Sub
End 
Class