طلب شرح - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=1413) |
طلب شرح - essabar - 01-01-14 هل من يشرح هذا الكود حرفيا و شكرا 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 RE: طلب شرح - kslawy - 01-01-14 السلام عليكم ورحمة الله وبركاته 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 مربع نص) موضعها أعلى الفورم ومتراصة بجانب بعضها البعض علي ما يبدوا **** *** ** * RE: طلب شرح - essabar - 01-01-14 السلام عليكم أخي مشكور على هدا الشرح الوافي , جزاك الله خيرا RE: طلب شرح - Easy4ever - 01-01-14 (01-01-14, 03:29 PM)kslawy كتب : السلام عليكم ورحمة الله وبركاته تعديل طفيف في هذي النقطه انه سيقوم بالدوران على حلقه تبدأ من الصفر حتى 299 وليس 300 لانه في الكود 300 - 1 والناتج هو 299 بارك الله فيك اخي الكريم RE: طلب شرح - essabar - 01-01-14 السلام عليكم , والله إستفدنا من تجاربكم شكرا لكم إخوتي جميعا |