+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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 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