hamata00
12-01-2006, 09:22 AM
السلام عليكم
الدرس الاول:0
أولاً = نظرة عامة
أداة 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
حيث أننا بدءنا بالحلقة من الرقم 1 بسبب عدم رغبتنا في ترقيم أول خلية
----------------------------------------------------------
الدرس الثاني :
الألوان
1- لون خلفية الاداة :
MsFlexGrid.BackColorBkg = Color
2- لون خلفية الخلايا الثابتة :
MsFlexGrid.BackColorFixed = Color
3- لون خلفية الخلايا العادية :
MsFlexGrid.BackColor = Color
7- لون كتابة خلايا التحديد : أي عند التحديد
MsFlexGrid.ForeColorSel = Color
8- لون خط حدود الخلايا الثابتة :
MsFlexGrid.GridColorFixed = Color
9- لون خط حدود الخلايا العادية :
MsFlexGrid.GridColor = Color
مثال :
MsFlexGrid1.BackColorBkg = QbColor(3)
MsFlexGrid1.BackColorFixed = QbColor(7)
MsFlexGrid1.BackColor = QbColor(15)
MsFlexGrid1.BackColorSel = QbColor(1)
MsFlexGrid1.ForeColorFixed = QbColor(0)
MsFlexGrid1.ForeColor = QbColor(1)
MsFlexGrid1.ForeColorSel = QbColor(14)
MsFlexGrid1.GridColorFixed = QbColor(8)
MsFlexGrid1.GridColor = QbColor(2)
10 – تلون خلية بحد ذاتها :
بعد تحديد الخلية من خلال تحديد السطر والعمود كما ورد في الدرس الأول نستخدم التعليمات التالية :
- تحديد لون خلفية الخلية :
MsFlexGrid.CellBackColor = Color
تحديد لون خط الكتابة في الخلية :
MsFlexGrid.CellForeColor = Color
مثال :
من أجل تلوين خلايا العمود الثالث بشكل متباين نكتب الكود التالي :
Dim R as integer
For R = 1 to 9
MsFlexGrid1.Col = 2
MsFlexGrid1.Row = R
MsFlexGrid1.CellBackColor = QbColor(R)
Next R
انتهي الشرح..ارجو الردود من كل الاعضاء بعد التجربة يوجد خطأ؟
الدرس الاول:0
أولاً = نظرة عامة
أداة 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
حيث أننا بدءنا بالحلقة من الرقم 1 بسبب عدم رغبتنا في ترقيم أول خلية
----------------------------------------------------------
الدرس الثاني :
الألوان
1- لون خلفية الاداة :
MsFlexGrid.BackColorBkg = Color
2- لون خلفية الخلايا الثابتة :
MsFlexGrid.BackColorFixed = Color
3- لون خلفية الخلايا العادية :
MsFlexGrid.BackColor = Color
7- لون كتابة خلايا التحديد : أي عند التحديد
MsFlexGrid.ForeColorSel = Color
8- لون خط حدود الخلايا الثابتة :
MsFlexGrid.GridColorFixed = Color
9- لون خط حدود الخلايا العادية :
MsFlexGrid.GridColor = Color
مثال :
MsFlexGrid1.BackColorBkg = QbColor(3)
MsFlexGrid1.BackColorFixed = QbColor(7)
MsFlexGrid1.BackColor = QbColor(15)
MsFlexGrid1.BackColorSel = QbColor(1)
MsFlexGrid1.ForeColorFixed = QbColor(0)
MsFlexGrid1.ForeColor = QbColor(1)
MsFlexGrid1.ForeColorSel = QbColor(14)
MsFlexGrid1.GridColorFixed = QbColor(8)
MsFlexGrid1.GridColor = QbColor(2)
10 – تلون خلية بحد ذاتها :
بعد تحديد الخلية من خلال تحديد السطر والعمود كما ورد في الدرس الأول نستخدم التعليمات التالية :
- تحديد لون خلفية الخلية :
MsFlexGrid.CellBackColor = Color
تحديد لون خط الكتابة في الخلية :
MsFlexGrid.CellForeColor = Color
مثال :
من أجل تلوين خلايا العمود الثالث بشكل متباين نكتب الكود التالي :
Dim R as integer
For R = 1 to 9
MsFlexGrid1.Col = 2
MsFlexGrid1.Row = R
MsFlexGrid1.CellBackColor = QbColor(R)
Next R
انتهي الشرح..ارجو الردود من كل الاعضاء بعد التجربة يوجد خطأ؟