تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مساعدة ف بعض اكواد الحركة والتصادم
#21
السلام عليكم

- إذا قمت بتسميه مجموعة أداوت من نفس النوع يعني تكون الأداوت كلها بكتشر أو صندوق نص فما ذكرت يتم إنشاء مصفوفه بالإسم الموحد لها ويتم إعطاء كل أداة من الأداوت التي في المصفوفه رقم فهرسه إندكس تقدر توصلها بالرقم هذا حيث هو سيكون المعرف لها في المصفوفه . يعني إذا كانت أداوت البكتشر عندك على الفورم 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
- والخيار LBound هو يدل على رقم فهرس أول عنصر في المصفوفه .
- والخيار UBound هو يدل على رقم فهرس آخر عنصر في المصفوفه .
- والخيار Count هو يدل على مجموع العناصر الموجوده في المصفوفه .

- وإذا أردت تنفيد كود معين على جميع الأداوت التي في المصفوفه بطريقة مختصره . يجب عليك إستخدام حلقة تكرارية . مثلا :

كود :
For I = Picture1.LBound To Picture1.UBound
    Picture1(I).Top = 360
    Picture1(I).Left = 360
Next

- تحياتي .
الرد }}}
تم الشكر بواسطة:
#22
شكرا جدا لحضرتك
الرجاء الرد عليا بالخاص
وشكرا
الرد }}}
تم الشكر بواسطة:



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


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