[سعود]

إقتباس :انت يوم سويت الملف وش قصدت بـ () g الي تبع زر التوليد

الحرف

كود :

g()

هذا روتين التوليد وهو باطار محرر الكود

كود :

Private Sub g()
وهنا الاكواد
end sub

---

اعدت تسمية مربعات المجموعات الى :
g0
g1
g2
وقمت بتعريف متغيرات بمنطقة التصريحات العامة كالتالي:

كود :

Dim a As Integer = Nothing
    Dim gg0, gg1, gg2 As Drawing.Point
    Dim curent As Integer = Nothing

ثم عند حدث تحميل الفورم قمت بتخزين اماكن مربعات المجموعات كالتالي:

كود :

gg0 = g0.Location
        gg1 = g1.Location
        gg2 = g2.Location

وبعدها استدعيت دالة الافراغ للذاكرة (حسب مافهمت)

كود :

Randomize()

الان تبقى فقط استدعاء الروتين

كود :

g()

نضعه اما في حدث تحميل نفس الفورم بعد الاكواد السابقة او نضعه باي زر يؤدي لهذا الفورم
المتغيرات التالية
gg0
gg1
gg2
نخزن بها اماكن مربعات المجموعات