[عبد الهادي بهاب]

ازرار الاجابة  يمكن ان تضعها باي شكل

في حالتنا وضعت صورة كخلفية  وسطها فارغ شفاف يتلائم مع خلفية صورة البرنامج



و في داخلها ليبال عادي ........... خلفيته اسود
وهذا من اجل تغيير اللون في التصحيح

الان سنحفظ الصور و اليبالات في مصفوفات

PHP كود :

PicArry = {PictureBox1, PictureBox2, PictureBox3, PictureBox4}
        LabName = {LabA, LabB, LabC, LabD}
         


الان ننشيء دالة جديدة لتغغير المواقع
سنحفظ فيها مواقع الصور في   arrylist  ثم عشوائيا نغيرها

PHP كود :

 'تفريغ المصفوات
        LabPos.Clear()
        picPos.Clear()

        'تسجيل موقع اليبال
        For Each lab As Label In LabName
            LabPos.Add(lab.Location)
        Next
        'تسجيل موقع الصور

        For Each pic As PictureBox In PicArry
            picPos.Add(pic.Location)
        Next

        'تغيير عشواي للصور و لكاتها 
        For i = 0 To 3
            Dim Posr = Nran.Next(0, LabPos.Count)
            LabName(i).Location = LabPos(Posr)
            PicArry(i).Location = picPos(Posr)
            LabPos.RemoveAt(Posr)
            picPos.RemoveAt(Posr)
        Next 


 في مجريات البرنامج سنغغير لون الصور و الليبالات لذلك كلما غيرنا السؤال يجب ان يكون لون الصور و اليبالات اسود و تكون كلها ظاهرة
لذلك سنضيف لدالة توليد الاسئلة 

PHP كود :

  For i = 0 To 3
            PicArry(i).BackColor = Color.Black
            LabName(i).BackColor = Color.Black
            PicArry(i).Visible = True
            LabName(i).Visible = True
        Next 


----يتبع