+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [ تمّ الحل ] : نقل كود بحث إلى MSFlexGrid (/showthread.php?tid=15668)
[ تمّ الحل ] : نقل كود بحث إلى MSFlexGrid - عبد العزيز البسكري - 03-05-16
السّلام عليكم و رحمة الله و بركاته
أدعو الله أنّكم بتمام الصحّة و العافية و راحة البال إن شاء الله
أساتذتي الأعزاء أرجو المساعدة فضلاً منكم لا أمرًا بحل هذه الاشكاليّة التي واجهتني ..بهذا الملف عندي مشروعين :
DataGrid
MSFlexGrid
ما أريده هو نقل هذا الكود بالصّورة أدناه بالكومند1 من المشروع DataGrid إلى المشروع MSFlexGrid
حتّى أوضّح أكثر سادتي الأفاضل :
الملف DataGrid رائع و به ما أريد بالضبط وهو البحث بالحرف الموجود بأي كلمة لكن المشكلة الوحيدة التي لم تعجبني و هي أنّ بهذا DataGrid لم أستطع توسيط الكتابة و أجعلها بالمنتصف
أمّا بالملف MSFlexGrid ..الكتابة يمكن لي توسيطها لكن البحث يجب أن تكتب الاسم كاملاً ..
ولذلك أردت نقل كود البحث الرائع بال DataGrid إلى الملف MSFlexGrid و الذي به خاصية التوسيط
بارك الله فيكم و لكم مقدّمًا و جزاكم خير الجزاء
الملف DataGrid رائع و به ما أريد بالضبط وهو البحث بالحرف الموجود بأي كلمة لكن المشكلة الوحيدة التي لم تعجبني و هي أنّ بهذا DataGrid لم أستطع توسيط الكتابة و أجعلها بالمنتصف
أمّا بالملف MSFlexGrid ..الكتابة يمكن لي توسيطها لكن البحث يجب أن تكتب الاسم كاملاً ..
ولذلك أردت نقل كود البحث الرائع بال DataGrid إلى الملف MSFlexGrid و الذي به خاصية التوسيط
بارك الله فيكم و لكم مقدّمًا و جزاكم خير الجزاء
خالص تحيّاتي
RE: نقل كود بحث إلى MSFlexGrid - Ahmed_Mansoor - 04-05-16
وعليك السلام ورحمة الله وبركاته , أهلا أخي عبدالعزيز , عدلت المثال لكن البحث سيكون بالمطابقة أما أول حرف فلم أعرفها لا أملك الخبره في الـ DAO وأنصحك بإسم الـ ADO وهي المستخدمه في فتح الجدول في مثال الـ DataGrid .
RE: نقل كود بحث إلى MSFlexGrid - عبد العزيز البسكري - 04-05-16
السّلام عليكم و رحمة الله و بركاته
كفيت و وفّيت أخي الحبيب الغالي و أستاذي الفاضل " أحمد منصور "
أفضالك علينا لا يمكن عدّها و مهما عبّرت لك عن شكري و تقديري واحترامي لشخصك الكريم لن أفيك بكل صدق حقّك
بارك الله فيك ولك و جزاك خير الجزاء الجزاء و أسعدك بالدّارين إن شاء الله
هل من الممكن سيّدي الكريم توسيط الكتابة بال DataGrid ؟؟
فائق الشّكر و التقدير و الاحترام
RE: نقل كود بحث إلى MSFlexGrid - Ahmed_Mansoor - 04-05-16
وعليك السلام ورحمة الله وبركاته , أهلا أخي عبدالعزيز , أعتقد أنه لايوجد خاصية لتوسيط نص عنوان العمود ولكن وجدت طريقة لمحاولة عمل ذلك أما لتوسيط صفوف العمود نفسه فتوجد خاصية لتوسيط المحتوى وتم إضافتها في المثال .
RE: نقل كود بحث إلى MSFlexGrid - عبد العزيز البسكري - 04-05-16
السّلام عليكم و رحمة الله و بركاته
تسلم يا غالي .. أدعو الله ألاّ يحرمنا منك أستاذي الكريم
أطال الله بعمرك في طاعته و وفقك لما يحبه و يرضاه
جزاك الله خير الجزاء و زادك من علمه و فضله
ملاحظة أخيرة أخي الغالي لأني أتعبتك معي .. ألف معذرة
عند فتح الملف العناوين تظهر فعلا بالمنتصف لكن الكتابة داخل الأعمدة لا تظهر بالمنتصف
لاحظ الصورة فضلا لا أمرا
خالص تحياتي
RE: نقل كود بحث إلى MSFlexGrid - Ahmed_Mansoor - 04-05-16
وعليك السلام ورحمة الله وبركاته , أهلا أخي عبدالعزيز , أعتقد أنه السبب هو خاصية الـ WrapText للأعمده جرب تخليها تساوي False قم بحذف الإجراء الذي بإسم Grid_Caption وإستبدله بهذا :
PHP كود :
Sub Grid_Caption()
Set DataGrid1.DataSource = rs
Center_Header 0, "التسلسل"
Center_Header 1, "الاسم"
Center_Header 2, "اللقب"
Center_Header 3, "العمر"
Center_Header 4, "المبلغ"
Center_Header 5, "العنوان"
With DataGrid1
.Columns(0).Alignment = dbgCenter
.Columns(1).Alignment = dbgCenter
.Columns(2).Alignment = dbgCenter
.Columns(3).Alignment = dbgCenter
.Columns(4).Alignment = dbgCenter
.Columns(5).Alignment = dbgCenter
.Columns(0).WrapText = False
.Columns(1).WrapText = False
.Columns(2).WrapText = False
.Columns(3).WrapText = False
.Columns(4).WrapText = False
.Columns(5).WrapText = False
End With
End Sub
وإذا ظهرت أي أخطاء أو مشاكل عند تشغيل المثال أو تنسيق ظهور النص في الأعمده قم بحذف أداة الـ DataGrid من على الفورم ثم أدرج واحده جديده غيرها ولا تغير أي شي في خصائصها سوي تعطيل خاصية الـ AllowUpdate إذا كنت لاترغب بها وخاصية لون الخلفيه إذا تريد تغيير اللون ماعدا ذلك إتركه , أجد هذه الطريقه تعمل معي .
RE: نقل كود بحث إلى MSFlexGrid - عبد العزيز البسكري - 04-05-16
السّلام عليكم و رحمة الله و بركاته
أخي الحبيب الغالي " أحمد منصور "
قمت بحذف ال DataGrid تماما ثم وضعت آخر .. فعمل الملف بشكل ممتاز
فقط عندما غيّرت الخاصيّة Right to Left إلى True .. رجع الملف إلى ما كان عليه ولم تعد الكتابة تظهر بالمنتصف
فائق إحتراماتي
RE: نقل كود بحث إلى MSFlexGrid - Amir_Alzubidy - 04-05-16
السلام عليكم
كما تفضل اخي احمد
اخي عبد العزيز ما رأيك ب MSHFLEXGRID
و مكتبة ADO
انني ارى بهما ثنائي مريح ومجالهما اوسع
هذا تعديل بسيط على كود اخي احمد بارك الله فيه
في المشاركة رقم 2#
[attachment=10374]
RE: نقل كود بحث إلى MSFlexGrid - عبد العزيز البسكري - 04-05-16
السّلام عليكم و رحمة الله و بركاته
باسم الله ما شاء الله تبارك الله
روعة من روائعك أخي الغالي و أستاذي الكريم " أمير الزّبيدي "
بكل صدق عمل مميّز و ممتاز .. بمجرّد كتابة و وضع الحرف بالتاكست يتم البحث بجميع الكلمات ..شيء مدهش و مذهل
تحقّق المطلوب طولاً و عرضًا و الحمد لله
جزاك خير الجزاء و رزقك من حيث لا تحتسب
كل الشكر و التّقدير و المحبّة و الاحترام موصول للأستاذ الفاضل " أحمد منصور " لما قدّمه من حلول فوق مستوى الرّوعة
بارك الله فيكما و لكما و أسكنكما جنّة الفردوس مع الشّهداء و الصدّيقين و الأبرار الأتقياء الصّالحين
فائق محبّتي
RE: [ تمّ الحل ] : نقل كود بحث إلى MSFlexGrid - Amir_Alzubidy - 05-05-16
الحمدلله رب العالمين
جزاك الله خير اخي عبدالعزيز
لكم المثل ان شاء الله
اللهم آمين يا رب العالمين