+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [سؤال] استفسار ب for ...next (/showthread.php?tid=31882)
استفسار ب for ...next - m.n.hakami - 28-10-19
السلام عليكم اسرة المنتدى الرائع
عندي استفسار الكود التالي يخرج البيانات في textbox حسب المعطيات لو افترضنا z = 1 , x = 5 الناتج يكون 12345
أنا اريد لو تكرمتم يكون الكود يخرج الرقم 1 في textbox1 و 2 في textbox2 و 3 في textbox3 إلى نهاية المطلوب حسب المدخل في x
كود :
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim i As Integer
Dim x As Integer
Dim z As Integer
x = CInt(TextBox1.Text)
z = CInt(TextBox2.Text)
For i = x To z
TextBox3.Text = TextBox3.Text & i
NextRE: استفسار ب for ...next - asemshahen5 - 28-10-19
PHP كود :
For i = x To z
If TypeOf (Me.Controls(i)) Is TextBox Then
Me.Controls(i).Text = i
End If
Next
RE: استفسار ب for ...next - m.n.hakami - 28-10-19
(28-10-19, 02:18 PM)asemshahen5 كتب :PHP كود :
For i = x To z
If TypeOf (Me.Controls(i)) Is TextBox Then
Me.Controls(i).Text = i
End If
Next
اخي الكريم شكرا لك اوجزت وابدعت كنت محتاج لكود مختصر واعطيتني اكثر من كنت اتوقع اختصارا عندي محاوله لاضافة شي ولكن اريد ان احاول بنفسي فإن لم استطع لي عوده للاستفسار شكرا لك اخي asemshahen5