تعلم الأداة MsFlexGrid

أولاً = نظرة عامة
أداة MsFlexGrid لمن لا يعرفها : هي أداة تتألف من مجوعة أسطر Rows وأعمدة Columns بحيث يشكل تقاطع كل سطر وعمود خلية Cell بشكل يشابه لما هو موجود فيExcel
وتنقسم الأعمدة والأسطر إلى قسمين : ثابت Fixed كما هو الحال العمود المحتوي على أرقام الأسطر في إكسل والسطر المحتوي على أسماء الأعمدة ، وقسم عام
تعطينا هذه الأداة ميزة التحكم في أي شيء مما يتعلق بها بدءاً من عدد الأعمدة والأسطر مروراً بخصائص كل خلية انتهاءً بالأحداث

وسأقسم هذه الدروس بناءً على مجموعة الخصائص التي نتكلم عنها

وسأبدأ بسرد الخصائص مع مثال عن كل منها
ثم في الدروس الأخيرة سأضع بعض الأمثلة بما فيها تعبئة MsFlexGrid بالبيانات من خلال ADO

ثانياً = التحكم بعدد الأعمدة والأسطر :
- لتحديد عدد الأسطر :
كودMsFlexGrid.Rows= N
جيث N هو عدد الأسطر

- لتحديد عدد الأعمدة :
كودMsFlexGrid.Cols= N
جيث N هو عدد الأعمدة

- لتحديد عدد الأسطر الثابتة :
كودMsFlexGrid.FixedRows= N
جيث N هو عدد الأسطر الثابتة

- لتحديد عدد الأعمدة :
كودMsFlexGrid.FixedCols= N
جيث N هو عدد الأعمدة الثابتة

مثال :
ضع أداة MsFlexGrid في نموذجك ثم اكتب الشفرة التالية في حدث عند التحميل :
كودPrivate Sub Form_Load()
MsFlexGrid1.Rows = 10
MsFlexGrid1.Cols = 5
MsFlexGrid1.FixedCols = 1
MsFlexGrid1.FixedRows = 1
End Sub
يقوم هذا المثال بتحديد عدد الأسطر إلى 10 منها عمود واجد ثابت
وعدد الأعمدة إلى 5 منها سطر واحد ثابت

ثالثاً : ملئ الخلايا بالقيم :
يبدأ ترقيم الأعمدة والأسطر بدءاً من رقم صفر و يشكل تقاطع كل سطر وعمود خلية Cell ، ولكتابة قيمة معينة بإحدى الخلايا نقوم أولاً بتحديد السطر والعمود اللذان يحددان بتقاطعهما الخلية بهذا الأسلوب :


كود MsFlexGrid.Col = ColNo <------------------ رقم العمود
MsFlexGrid.Row = RowNo <--------------- رقم السطر
ويجب أن لا ننسى أن الترقيم يبدأ من رقم 0
ولوضع قيمة في الخلية نستخدم :
كود MsFlexGrid.Text = MyText <------------ القيمة التي نريدها

مثال :
من أجل ترقيم العمود الأول الثابت بترقيم يبدأ من 1 نكتب الكود التالي :
كودDim R as integer
For R = 1 to 9
MsFlexGrid1.Col = 0
MsFlexGrid1.Row = R
MsFlexGrid1.Text = R
Next R