تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
طلب شرح filex gred
#1
برجاء طلب شرح كامل مفصل وجزء جزء مع التطبيق لاداة الفلكس جريد وكيفية التعامل مع الداتا بيز والبحث والتعديل والحفظ بها برجاء مع الامثلة والتفصيل الممل
الرد }}}
تم الشكر بواسطة:
#2
الايوجد رد
الرد }}}
تم الشكر بواسطة:
#3
اية ياجماعة مفيش اي رد او دليل حتي
الرد }}}
تم الشكر بواسطة:
#4
فية كتاب رائع يشرحها

http://www.kutub.info/library/book/122

Exclamation اعتذر عن الانقطاع  لظروف خاصة 



الرد }}}
تم الشكر بواسطة:
#5
التحكم بعدد الأعمدة والأسطر :
- لتحديد عدد الأسطر :
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- لون خلفية الاداة :
MsFlexGrid.BackColorBkg = Color
2- لون خلفية الخلايا الثابتة :
MsFlexGrid.BackColorFixed = Color
3- لون خلفية الخلايا العادية :
MsFlexGrid.BackColor = Color
4- لون خلفية خلايا التحديد : أي عند التحديد
MsFlexGrid.BackColorSel = Color
5- لون كتابة الخلايا الثابتة :
MsFlexGrid.ForeColorFixed = Color
6- لون كتابة الخلايا العادية :
MsFlexGrid.ForeColor = 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®
Next R

=============================

Exclamation اعتذر عن الانقطاع  لظروف خاصة 



الرد }}}
تم الشكر بواسطة:
#6
المظهر ( الحدود والمحاذاة)


1- مظهر الأداة : (مظهر الأداة ككل)
MsFlexGrid.Appearance = flexFlat <------------------- ثلاثي أبعاد
MsFlexGrid.Appearance = flex3D <------------------- مسطح
2- نمط الحدود الخارجية للأداة :
MsFlexGrid.BorderStyle = flexBorderSingle<-------------- خط مفرد
MsFlexGrid.BorderStyle = flexBorderNone <-------------- بدون خط

3- نمط حدود الخلايا : (مظهر الخلايا)
إن نمط الحدود في الخلايا له إحدى هذه القيم

المظهر القيمة أو استخدم الثابت
---------------------------------------------------------
بلا 0 flexGridNone
مسطح 1 flexGridFlat
غاطس 2 flexGridInset
بارز 3 flexGridRaised

ونستخدم لتحديد مظهر الخلايا الطرائق التالية :
أ – مظهر الخلايا الثابتة :
MsFlexGrid.GridLinesFixed = نمط الحدود
ب – مظهر الخلايا العادية :
MsFlexGrid.GridLines = نمط الحدود
مثال :
MsFlexGrid1.Appearance = flex3D
MsFlexGrid1.BorderStyle = flexBorderNone
MsFlexGrid1.GridLinesFixed = flexGridInset
MsFlexGrid1.GridLines = 0
4- محاذاة الأداة :
لمحاذاة الأداة على نمط محاذاة الورقة في إكسل نستخدم :
MsFlexGrid.RightToLeft = True <------------------- محاذاة إلى اليمين
MsFlexGrid.RightToLeft = False <------------------- محاذاة إلى اليسار
5- محاذاة محتويات الخلايا :
إن نمط المحاذاة في الخلايا له إحدى هذه القيم

المحاذاة القيمة أو استخدم الثابت
---------------------------------------------------------------------
يمين أعلى 0 flexAlignRightTop
يمين وسط 1 flexAlignRightCenter
يمين أسفل 2 flexAlignRightBottom
وسط أعلى 3 flexAlignCenterTop
وسط وسط 4 flexAlignCenterCenter
وسط أسفل 5 flexAlignCenterBottom
يسار أعلى 6 flexAlignLeftTop
يسار وسط 7 flexAlignLeftCenter
يسار أسفل 8 flexAlignLeftBottom
محاذاة عامة 9 flexAlignGeneral

ونستخدم لمحاذاة الخلايا الطرائق التالية :
أ – محاذاة عمود بكامله :
MsFlexGrid.ColAlignment(رقم العمود) = N <--------------- نمط المحاذاة
ب- محاذاة الخلايا الثابتة :
MsFlexGrid.FixedAlignment(رقم العمود) = N <--------------- نمط المحاذاةفي هذه الحالة إذا كان رقم العمود هو عمود ثابت يطبق عليه نمط المحاذاة وإلا فإن هذه المحاذاة تطبق فقط على الخلايا الثابتة في هذا العمود

جـ - محاذاة خلية بحد ذاتها :
بعد تحديد الخلية من خلال تحديد السطر والعمود كما ورد في الدرس الأول نستتخدم صيغة التعليمة التالية:
MsFlexGrid.CellAlignment = N <--------------- نمط المحاذاة
مثال :
Dim X as Integer , Y as Integer
MsFlexGrid1.RightToLeft = True
For X = 0 To MsFlexGrid1.cols-1
MsFlexGrid1.FixedAlignment (X) = 1
For Y = MsFlexGrid1.FixedRows to MsFlexGrid1.Rows -1
MsFlexGrid1.Col = X
MsFlexGrid1.Row = Y
If MsFlexGrid1.text = "0" then
MsFlexGrid1.CellAlignment = flexAlignCenterCenter
End If
Next Y
Next X

======================

تحكمات متقدمة :

1- إضافة سطر جديد بواسطة تعليمة AddItem
MsFlexGrid.AddItem Item, Idnexحيث
Item : النص المراد إدراجه في السطر الجديد
Index الترتيب المراد إدراج السطر به .. وفي حال لم تمرر هذه القيمة يتم إدراج السطر في آخر الجدول ولا يجوز إدراج سطر جديد في ترتيب سطر ثابت
مثال :
MsFlexGrid1.AddItem "Sum :"ويلاحظ أن الإدراج يتم في أول عمود فقط .. ولكي ندرج مجموعة قيم في أعمدة أخرى نستخدم محرف الـ Tab وهو إما VBTab أو Chr(9) كما يلي :
MsFlexGrid1.AddItem "Sum :" & VBTab & "12000" & chr(9) & "2455"
2- السماح بتغيير حدود الأعمدة والأسطر :
إن صلاحية تغيير حدود الأعمدة والأسطر يكون له إحدى هذه القيم :

الصلاحية .................... القيمة .. أو استخدم الثابت
------------------------------------------------------------------
حدود ثابتة....................... 0 ..... flexResizeNone
تغيير حدود الأعمدة فقط ....... 1..... flexResizeColumns
تغيير حدود الأسطر فقط ....... 2 ..... flexResizeRows
تغيير حدود الأسطر والأعمدة .. 3 ..... flexResizeBoth

MsFlexGrid.AllowUserResizing = الصلاحية
3- تغيير أسلوب التحديد عند النقر على خلية ثابتة :
MsFlexGrid.AllowBigSelection = False أو TrueTrue : عند الضغط على الخلية الثابتة يتم تحديد كامل السطر او العمود الذي يبدأ بهذه الخلية

4- الإستعلام عن حالة خفاء / ظهور الأعمدة والأسطر :
MsFlexGrid.ColIsVisible(رقم العمود)
MsFlexGrid.RowIsVisible(رقم السطر)مثال : إذا كان عدد الأسطر 15 ويظهر ضمن عرض أداة MsFlexGrid 7 أعمدة فقط فإن حالة ظهور الأعمدة من 7-15 تكون False
MsgBox MsFlexGrid1.ColIsVisible(MsFlexGrid1.cols)
5- تحديد مجموعة خلايا :
لتحديد مجموعة خلايا نضع نحدد الخلية التي سنبدأ منها التحديد ثم نستعمل خاصيتي RowSel و ColSel كما يلي
MsFlexGrid.ColSel = N <---------- يتم التحديد حتى هذا العمود
MsFlexGrid.RowSel = N <---------- يتم التحديد حتى هذا السطرمثال :
لتحديد ثالث ورابع وخامس خلية في العمود الثاني نكتب :
MsFlexGrid1.Col = 1
MsFlexGrid1.Row = 2
MsFlexGrid1.RowSel = 4في هذا المثال لا يتم تظليل الخلية الأولى لأنها هي الخلية التي عليها المؤشر (التحكم)

و يمكن استعمال خاصيتي RowSel و ColSel لقراءة قيمتهما.
مثال :
لتغيير اللون الخلفي للخلايا المحددة إلى اللون الأصفر نكتب هذا الكود في الحدث الذي نريده وليكن عند الضغط على زر:
Dim X as Integer , Y as Integer
Dim BC as Integer , EC as Integer
Dim BR as Integer , ER as Integer
BC = MsFlexGrid1.Col
EC = MsFlexGrid1.ColSel
BR = MsFlexGrid1.Row
ER = MsFlexGrid1.RowSel
For X = BC To EC Step IIf(BC > EC, -1, 1)
For Y = BR To ER Step IIf(BR > ER, -1, 1)
MsFlexGrid1.Col = X
MsFlexGrid1.Row = Y
MsFlexGrid1.CellBackColor = VbYellow
Next Y
Next X
6- تغيير ترتيب الأسطر :
MsFlexGrid.RowPosition(رقم السطر) = الترتيب الذي نريده
7- تغيير ترتيب الأعمدة :
MsFlexGrid.ColPosition(رقم العمود) = الترتيب الذي نريده
مثال : لترتيب الأعمدة بشكل معكوس :
Dim R as Integer
For R = 2 To MsFlexGrid1.Cols - 1
MsFlexGrid1.ColPosition® = 1
Next
8- معرفة موقع الخلية بالنسبة للأداة MsFlexGid :
نستعمل خاصيتي :
ColPos : لمعرفة بعد الحد الأيسر للعمود عن طرف الأداة من اليسار
RowPos : لمعرفة بعد الحد العلوي للسطر عن طرف الأداة من الأعلى
مثال تطبيقي :
للإظهار مربع نص - وليكن اسمه Text1وهو مخفي حالياً - مكان الخلية عند النقر المزدوج عليها :
With MsFlexGrid1
Set Text1.Font = .Font
Text1.RightToLeft = .RightToLeft
Text1.Alignment = .CellAlignment
Text1.Left = .Left + .ColPos(.Col) + .BorderStyle * 30
Text1.Top = .Top + .RowPos(.Row) + .BorderStyle * 30
Text1.Width = .ColWidth(.Col)
Text1.Height = .RowHeight(.Row)
Text1.Appearance = vbFlat
Text1.Text = .Text
Text1.Visible = True
Text1.SetFocus
End With

Exclamation اعتذر عن الانقطاع  لظروف خاصة 



الرد }}}
تم الشكر بواسطة:
#7
منقول للامانة من موقع الفريق العربى للبرمجة

Exclamation اعتذر عن الانقطاع  لظروف خاصة 



الرد }}}
تم الشكر بواسطة:
#8
شكرا للاهتمام
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيف اجعل chek box في data gred hamada666 7 3,206 20-08-13, 10:35 AM
آخر رد: hamada666

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم