المشاركات : 42
المواضيع 15
الإنتساب : Dec 2013
السمعة :
0
الشكر: 5
تم شكره 19 مرات في 11 مشاركات
هل من يشرح هذا الكود حرفيا و شكرا
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim i As Integer
For i = 0 To 300 - 1 Step 20
Dim txt As New TextBox ' txt من نوع textbox
txt.Location = New Point(0, i) "
txt.Size = New Size(100, 20)
txt.Text = "Mohammed moh"
txt.Parent = Me
Next i
المشاركات : 607
المواضيع 17
الإنتساب : Sep 2013
السمعة :
39
الشكر: 788
تم شكره 579 مرات في 160 مشاركات
السلام عليكم ورحمة الله وبركاته
For i = 0 To 300 - 1 Step 20
قم بالدوران علي حلقة تبدأ من الصفر حتى 300 لكن تجاوز في كل دورة 20 رقم (يعني في الدورة الأولى 0 وفي الثانية سيذهب مباشرة للرقم 20 واللي بعدها للرقم 40 وهكذا)
Dim txt As New TextBox ' txt من نوع textbox
تعريف مربع نص جديد في كل دورة
txt.Location = New Point(0, i) "
سيتم تحريك مربع النص الجديد كلما زاد المتغير i (يعني مربع النص سيتحرك بمقدار زيادة 20 في كل دورة مما يجعله يجانب مربع النص السابق له)
txt.Size = New Size(100, 20)
حجم مربع النص لن يتغير أثناء الحلقة
txt.Text = "Mohammed moh"
والنص كذلك ثابت
txt.Parent = Me
يعني والله أعلم أن الأداة الحاضنة لمربع النص هي النموذج الحالي (me تعني النموذج الحالي) .
تنفيذ الكود أعلاه سيؤدي إلي إنشاء مربعات نص جديدة (300 ÷ 20 = 15 مربع نص) موضعها أعلى الفورم ومتراصة بجانب بعضها البعض علي ما يبدوا
****
***
**
*
(وَقُل رَّبِّ زِدْنِي عِلْمًا)
المشاركات : 42
المواضيع 15
الإنتساب : Dec 2013
السمعة :
0
الشكر: 5
تم شكره 19 مرات في 11 مشاركات
السلام عليكم أخي
مشكور على هدا الشرح الوافي , جزاك الله خيرا
المشاركات : 42
المواضيع 15
الإنتساب : Dec 2013
السمعة :
0
الشكر: 5
تم شكره 19 مرات في 11 مشاركات
السلام عليكم , والله إستفدنا من تجاربكم
شكرا لكم إخوتي جميعا