تعلم الأداة MsFlexGrid

السلام عليكم ورحمة الله وبركاته

أخى Sunny

عندى إحساس عميق بأن مشكلتك بسيطة وأنت من سيحلها

لأنه إذا كان يقرأها عند تحميل البرنامج يعنى هو يقرأها بصورة صحيحة

ولكن كونه لا يقرأها بعد تحديثك لها هذا يعنى أن المشكلة فى التحديث لا يتم على كامل البيانات

لو راجعت منطق Logic الإضافة والتحديث ستعثر على المسبب لمشكلتك

وإذا غم عليك الأمر

فقط إدرج هنا الأكواد الخاصة بالعمليتين ونراهم مع بعض

وربنا يعينك وييسر لك الأمور

اخي العزيز

حتى الان لم تتطرق إلى الموضع الأكير إشكالاً مع أدارة flexgrid فهذا الموضوع لا يريد أحد أن يخوض غماره لا أداري لماذا أنا أعلم أنه صعب جداً ولكن أكيد هناك بعض الأخوان الذين لديهم فكرة عن كيفية طباعتها فإذا كانت لديك اي معلومة عن كيفية طباعة flexgrid نرجو ان لا تبخل بها علينا.

ولك التحية.

مرفق هنا ما توصلت اليه من كود لطباعة محتويات flexgrid ورسم خطوط جدول ولكن المشكلة التي به هي عند الطباعة من اليمين إلى اليسار يكون الكلام في اليمين وخطوط الجدول باليسار خصوصاً اذا قام المستخدم بتغيير عرض اي عمود ارجو الإطلاع ومحاولة الحل من الجميع:

Private Sub PrintFlexGrid(ByVal ptr As Object, ByVal flx As _

MSFlexGrid, ByVal xmin As Single, ByVal ymin As Single)

Const GAP = 60

Dim xmax As Single

Dim ymax As Single

Dim X As Single

Dim c As Integer

Dim r As Integer

With ptr.Font

.Name = flxData.Font.Name

.Size = flxData.Font.Size

End With

With flxData

' See how wide the whole thing is.

xmax = xmin + GAP

For c = 0 To .Cols - 1

xmax = xmax + .ColWidth© + 2 * GAP

Next c

' Print each row.

ptr.CurrentY = ymin

For r = 0 To .Rows - 1

' Draw a line above this row.

If r > 0 Then ptr.Line (xmin, _

ptr.CurrentY)-(xmax, ptr.CurrentY)

ptr.CurrentY = ptr.CurrentY + GAP

' Print the entries on this row.

X = xmin + GAP

For c = 0 To .Cols - 1

ptr.CurrentX = X

ptr.Print BoundedText(ptr, .TextMatrix(r, _

c), .ColWidth©);

X = X + .ColWidth© + 2 * GAP

Next c

ptr.CurrentY = ptr.CurrentY + GAP

' Move to the next line.

ptr.Print

Next r

ymax = ptr.CurrentY

' Draw a box around everything.

ptr.Line (xmin, ymin)-(xmax, ymax), , B

' Draw lines between the columns.

X = xmin

For c = 0 To .Cols - 2

X = X + .ColWidth© + 2 * GAP

ptr.Line (X, ymin)-(X, ymax)

Next c

End With

End Sub

' Truncate the string so it fits within the width.

Private Function BoundedText(ByVal ptr As Object, ByVal txt _

As String, ByVal max_wid As Single) As String

Do While ptr.TextWidth(txt) > max_wid

txt = Left$(txt, Len(txt) - 1)

Loop

BoundedText = txt

End Function

أخي Sunny

واجهتني نفس المشكلة ولكن كنت استخدم DataGrid

ولقد حللتها كالآتي:

في الحدث Active الخاص بالفورمة قمت بعمل تحديث للـ Recordset المرتبطة به الـ Grid

حاول تجربة ذلك

بارك الله فيكم

كانت المشكلة اني اضيف السجل الجديد من فورم غير الفورم الموجود به الجدول ووضعت امر ازالة فورم الاضافة مع امر اضافة السجل في زر واحد الان بعد ان فصلتهما وجعلت ذلك يأخذ زمنا اطول نسبيا ووضعت كود التحديث في في الحدث active الخاص بالفورم تعدل الوضع

شكرا للجميع وجزاكم الله خيرا وبارك فيكم وفي علمكم

ممكن مشروع جاهز يدعم كل ماشرح سابقا

و الافضل يكون كتاب الكتروني يشرح الاداة بالتفصيل

ومع تمنياتي للجميع باانجاح و الوفيق

من منكم يملك باقي كتاب تركي العسيري

لان الكتاب الذي وجته انا غير كامل الجزء الخاص بقواعد البيانات موجود في الفهرس و لكن غسر متوفر في الشرح

و جزاكم الله بها خيرا

مشكور جدا اخى علي هذا الموضوع الرائع

الموضوع حلو كتير

شكرا لك على الدرس

كيف يمكنني تحديد كامل السطر عند الضغط على أي خلية فيه وليس فقط على الخلية الثابتة ؟

أريد ان يتم تحديد كامل السطر عند الضغط على أي خليه بالزر الماوس الايمن لكي اقوم بتنفيذ بعض الاوامر ؟

الحمد لله وصلت لإجابة سؤالي السابق عن طريق احدى خصائص الاداة لا اذكرها

الآن اريد عند تحديد أحد الاسطر ان اقرأ بيانات الخلايا بشكل منفصل كيف يمكن ذلك ؟

مشكوووووووووووووووووو جدا .. موضوع رائع و الله يعطيك العافية ....

و لكن ا ليت تسوي لنا درووس عن dbgrid و كيفية ربطها و كذلك كيفية طباعة محتوياتها ؟؟؟؟؟

هل من الممكن عرض نتائج البحث بين عدة جداول في فلكس واحد

الكتاب في جدول والمؤلف في جدول

هل يمكن عرضهما في فلكس واحد يحوي جقلين للكتاب والمؤلف

جزاك الله خيرا

الف شكررررررررررر

بسم الله الرحمن الرحيم

مشكور أخي العزيز على هذه الدروس واسئل الله أن يجعلها في ميزان حسناتك وأرجو منك أن تفيدنا بمعلومات ايضا عن الفmsflexgrid كيفية ربطها بالADO وكل العمليات التي تجرى عليها من حذف السجلات وحفظ وإضافة سجل جديد وكيفية القراءة من الجداول في قاعدة البيانات .

أخي العزيز أنا عندي مشروع تخرج وأرجو منك أن تفيدنا بكل المعلومات عن MsFLexgrid وكيفية ربطها بال ADO وإجراء كل العمليات عليها كما ذكرت سابقا من عرض السجلات من قاعدة البيانات اكسس وكيفية الحذف والإضافة والحفظ .

فأما أن توضحها بدرس قادم أو ترسلها على إيميلي بأقرب وقت ممكن .

mousa2005_3@yahoo.com

السلام عليكم ورحمة الله وبركاته : اعضاء منتديات الفريق العربي للبرمجة

الدرس قيم جداً والشرح ممتاز فأسمحلي اخي مهند عبادي انا عملت الشروحات اللي انته شارحها كتاب

ارجوا ان ينفع الاعضاء كمرجع اساسي لتعلم الأداة ولا أعتقد في مرجع أفضل من كذا تنظيم + شرح تفصيلي ....

على العموم اخي الكتاب بأسمك ونحن نحترم حقوق المولف إلى الأمام واتمنى التوفيق للجميع...

من هنا حمل الكتاب

السلام عليكم اخواني الافاضل

اتمنى لو صار الكلام والنقاش بنفس هذا المستوى عن الاداة دب جريد

سوالي

كيف يمكن نسخ معلومات فلكس الى الوورد

يعطيك الف عافية

السلام عليكم ورحمة الله

أخوتي كيف يمكنني تحريك ال Scroll للأسفل وللأعلى في الفلكس غريد عن طريق تدوير ال Scroll للماوس .

ممكن رفع الكتاب مرة أخرى

جزاك الله خيرا اخوي

أخوي الكريم بصراحة الموضوع رائع جدا جدا جداً

ولكن عندي مشكلة قديمة مع هذا الجدول ..

ولم أجد لها حل وهي مشكلة بسيطة جدا

وهي :

عندما أقوم بحذف سطر من الجدول بإستخدام

MSHFlexGrid1.RemoveItem

لا يمكنني أن أضيف سطر جديد

أتمنى أن تجربون يا أخواني هذه الطريقة وتعطوني الحل ضروري جراكم الله خير

أولاً : قم إضافة جدول الفيكس جريد

ثانياً : ضع زرين كومند

أكتب في الأول :

MSHFlexGrid1.Rows = MSHFlexGrid1.Rows + 1

وأكتب في الثاني :

MSHFlexGrid1.RemoveItem (2)

جرب أضف أسطر وقم بحذفها وشاهد المشكلة .

وجزاكم الله خير

up

اخى العزيز الا يوجد طريقه نقوم من خلالها بالتحكم فى حجم الخليه

أى نصغر حجم خلايا عمود كامل او نكبره

أرجوا الأفاده اخى العزيز

و مشكور جدا على هذا الشرح الوافى الأكثر من ممتاز وجذاكم الله خيرا

[

يا اخي في طريقة للتحكم بعرض الخلية

راح ارفع مثال لذالك