25-04-13, 06:49 AM
السلام عليكم ورحمة الله وبركاته
كود button1
[COLOR="#0000CD"]ولا تنسى ادراج TextBox1 في الفورم
والمثال في المرفق [/COLOR]
كود button1
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox1.Text = Int(Rnd() * 6)
Select Case TextBox1.Text
Case 0
TextBox1.Text = "1330-1813-5332-3018-4123-4267"
Case 1
TextBox1.Text = "1330-1167-8857-3801-9962-4540"
Case 2
TextBox1.Text = "1330-1182-3585-9477-5524-4839"
Case 3
TextBox1.Text = "1330-1813-5332-3018-4123-4267"
Case 4
TextBox1.Text = "1330-1011-6547-2116-7061-1195"
Case 5
TextBox1.Text = "1330-1430-9860-3108-6588-8053"
End Select
End Sub
[COLOR="#0000CD"]ولا تنسى ادراج TextBox1 في الفورم
والمثال في المرفق [/COLOR]