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

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

بعد ازنكم كنت احتاج كود وهو كلتلي

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

مثل

-------

محمد ايمن

محمد صلاح

ابرهيم احمد

--------------------------------------

احتاج ان تكون هزه ال اسما تزهر عشواي في تيكست بوكس

------------------------------

و شكران مقدمان يارب استفد ويستفاد غيري من الموضوع

------------------

تم الحل وده الكود ولكني احتاج ان تكوان ال اسماء عشواءيه

PHP كود :

TextBox1.Text = Int(Rnd() * 3)
        Select Case TextBox1.Text
            Case 0
                TextBox1.Text = " ابرهيم صلاح "
            Case 1
                TextBox1.Text = " محمد صلاح "
            Case 2
                TextBox1.Text = " محمد ايمن "
        End Select 

ضع الاسماء بمصفوفة نصية او قائمة نصية
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 Object, e As EventArgs) Handles MyBase.Load
        n = {"saud", "mady", "ali"}
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim i As Integer = Int(Rnd() * n.Length)
        Dim t As String = n(i)
        TextBox1.Text = t
    End Sub
End Class 

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

محمد ايمن

سعود