تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طلب شرح
#1
هل من يشرح هذا الكود حرفيا و شكرا
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
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم ورحمة الله وبركاته

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 مربع نص) موضعها أعلى الفورم ومتراصة بجانب بعضها البعض علي ما يبدوا

****
***
**
*
(وَقُل رَّبِّ زِدْنِي عِلْمًا)

الرد }}}}
تم الشكر بواسطة:
#3
السلام عليكم أخي
مشكور على هدا الشرح الوافي , جزاك الله خيرا
الرد }}}}
تم الشكر بواسطة: kslawy
#4
(01-01-14, 03:29 PM)kslawy كتب : السلام عليكم ورحمة الله وبركاته

For i = 0 To 300 - 1 Step 20
قم بالدوران علي حلقة تبدأ من الصفر حتى 300 لكن تجاوز في كل دورة 20 رقم (يعني في الدورة الأولى 0 وفي الثانية سيذهب مباشرة للرقم 20 واللي بعدها للرقم 40 وهكذا)

تعديل طفيف في هذي النقطه

انه سيقوم بالدوران على حلقه تبدأ من الصفر حتى 299 وليس 300
لانه في الكود 300 - 1 والناتج هو 299

بارك الله فيك اخي الكريم
الرد }}}}
تم الشكر بواسطة: kslawy
#5
السلام عليكم , والله إستفدنا من تجاربكم
شكرا لكم إخوتي جميعا
الرد }}}}
تم الشكر بواسطة:


التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم