+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم أسئلة واستفسارات الأعضاء - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=94)
+--- قسم : قسم Visual Basic 6 وما قبله (http://vb4arb.com/vb/forumdisplay.php?fid=167)
+--- الموضوع : مساعدة ف بعض اكواد الحركة والتصادم (/showthread.php?tid=8341)
مساعدة ف بعض اكواد الحركة والتصادم - VB_Coder - 19-04-13
السلام عليكم
- إذا قمت بتسميه مجموعة أداوت من نفس النوع يعني تكون الأداوت كلها بكتشر أو صندوق نص فما ذكرت يتم إنشاء مصفوفه بالإسم الموحد لها ويتم إعطاء كل أداة من الأداوت التي في المصفوفه رقم فهرسه إندكس تقدر توصلها بالرقم هذا حيث هو سيكون المعرف لها في المصفوفه . يعني إذا كانت أداوت البكتشر عندك على الفورم 4 بكتشرز وعملتلهم إسم واحد وصارت مصفوفه فيجب عليك أن تضع رقم الإندكس أو المعرف بين قوسين بعد الإسم الموحد ثم نقطه ثم إستخدم الخصائص التابعة للأداة بشكل عادي . مثال :
كود :
Picture1(0).Top = 360
Picture1(1).Top = 360
Picture1(2).Top = 360
Picture1(3).Top = 360- وعندما تكتب الإسم الموحد فقط ثم نقطه بعد فيظهر لك الخيارات التي ذكرتها وهي خاصه بالمصفوفه ككل .
- هنا نفس الكود السابق ولكن بطريقة أخرى :
كود :
Picture1.Item(0).Top = 360
Picture1.Item(1).Top = 360
Picture1.Item(2).Top = 360
Picture1.Item(3).Top = 360- والخيار UBound هو يدل على رقم فهرس آخر عنصر في المصفوفه .
- والخيار Count هو يدل على مجموع العناصر الموجوده في المصفوفه .
- وإذا أردت تنفيد كود معين على جميع الأداوت التي في المصفوفه بطريقة مختصره . يجب عليك إستخدام حلقة تكرارية . مثلا :
كود :
For I = Picture1.LBound To Picture1.UBound
Picture1(I).Top = 360
Picture1(I).Left = 360
Next- تحياتي .
مساعدة ف بعض اكواد الحركة والتصادم - احمد الهارب - 19-04-13
شكرا جدا لحضرتك
الرجاء الرد عليا بالخاص
وشكرا