[H111er]

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

إقتباس : Dim list As New ArrayList() ' صناعة مصفوفة ليتم تضمين العناصر فيها
For i As Integer = 1 To All ' اضافة العناصر في المصفوفة
list.Add("<a href=""Members.aspx?ID=" + i.ToString + """ target=""_blank"">Member " + i.ToString + "</a>")
Next
Dim Pages As Double = list.Count / ItemsNumber 'الحصول على عدد الصفحات
Dim Rounded As Integer = Math.Round(Pages) 'تحويل عدد الصفحات الى عدد صحيح
If Rounded < Pages Then
Pages = Rounded + 1
Else
Pages = Rounded
End If

بعدها تبدا الجمل الشرطية بالظهور ..
فاذا كانت هذه البيج هي اخر صفحة .. يقوم الكود بتنفيذ جملتين شرطيتين اخرتين
الجملة الاولى : اذا كانت هذه الصفحة هي الصفحة الوحيدة , اضف جميع العناصر الموجودة في المصفوفة
الجملة الثانية : اذا لم تكن الصفحة هي الوحيدة .. لكنها الاخيرة : يقوم بمعرفة تسلسل اخر عنصر من العناصر في البيج القبل الاخير .. لكي يقوم بكتابة ما بعده ..
اما اذا كانت هذه البيج هي الاولى .. فسيقوم الكود بكتابة العناصر من 0 الى عدد العناصر في كل بيج ( يحدده المبرمج بالطبع )
اما اذا لم تكن الاولى او الاخيرة .. : فيتم تحديد العناصر التي يجب اضافتها .. و اضافتها
هذا هو كل شيء ..