تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
المساعدة فى كود البحث داخل msflexgrid
#1
السلام عليكم ورحمة الله وبركاته
اخوانى الكرام

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

حيث تم تصميم نوتة تليفونات داخل msflexgrid دون ارتباط باى قاعدة بيانات
اعلم ان الربط اسهل ولكن المشكلة فى اجهزة العمل غير مخول لاى فرد بتحميل برامج عليها
ولكن بهذه الطريقة وبامتداد exe للفيجوال يمكن التغلب على ذلك


ولكم جزيل الشكر والتقدير

جزاكم الله كل الخير
الرد }}}
تم الشكر بواسطة:
#2
تفضل يأخي مجموعة برامج بالفيجوال بيسك منها برنامج دليل الهاتف
أضغط هنا للتحميل
الرد }}}
تم الشكر بواسطة: king2512010
#3
(09-06-14, 12:22 PM)احمد129 كتب :
تفضل يأخي مجموعة برامج بالفيجوال بيسك منها برنامج دليل الهاتف
أضغط هنا للتحميل

جزاك الله خير اخى .. الف شكر
الرد }}}
تم الشكر بواسطة:
#4
شكرا على البرامج اخى الفاضل

ولكن اريد المساعدة فى كود البحث الموجود بالمشروع المرفق اعلاه

وشاكر جدا ليك ولمساعدتك .. جعلها الله فى ميزان حسناتك يارب
الرد }}}
تم الشكر بواسطة:
#5
.....

منقول من جزء من برنامج مع تعديل بسيط ليناسب طلبك

كود :
Private Sub Command1_Click()
    With MSFlexGrid1
        Dim row As Integer: For row = 1 To .Rows - 1
            If InStr(.TextMatrix(row, 1), Me.Text1.Text) > 0 Then
                .FocusRect = flexFocusNone
                .SelectionMode = flexSelectionByRow
                .row = row
                .Col = .Cols - 1
                .ColSel = 1
                .TopRow = IIf(row > 1, row - 1, row)
                Exit For
            End If
        Next
    End With
End Sub

.....
الرد }}}
تم الشكر بواسطة: king2512010
#6
(09-06-14, 02:46 PM)vbnet كتب : .....

منقول من جزء من برنامج مع تعديل بسيط ليناسب طلبك

كود :
Private Sub Command1_Click()
    With MSFlexGrid1
        Dim row As Integer: For row = 1 To .Rows - 1
            If InStr(.TextMatrix(row, 1), Me.Text1.Text) > 0 Then
                .FocusRect = flexFocusNone
                .SelectionMode = flexSelectionByRow
                .row = row
                .Col = .Cols - 1
                .ColSel = 1
                .TopRow = IIf(row > 1, row - 1, row)
                Exit For
            End If
        Next
    End With
End Sub

.....

الله اكبر ... ماشاء الله
ربنا يزيدك من علمه يارب
ويجعله فى ميزان حسناتك
بصراحة انته إنسان محترم جدا ... الله يخليك
جزاك الله كل الخير
الرد }}}
تم الشكر بواسطة:
#7
.....

منقول للإفادة

يمكن ترتيب الجدول ترتيباً أبجدياً مع إعادة ترقيم الأسطر (إذا لزم الأمر)، ويوضع عادة بعد ملئ الجدول أو الإضافة أو التعديل أو الحذف
كود :
' ترتيب الجدول ترتيباُ أبجدياً
MSFlexGrid1.Sort = flexSortStringAscending

' إعادة ترتيب أرقام الأسطر على أساس العمود رقم 0 صفر
Dim row As Integer: For row = 1 To MSFlexGrid1.rows - 1
    MSFlexGrid1.TextMatrix(row, 0) = row
Next row

.....
الرد }}}
تم الشكر بواسطة: king2512010
#8
(09-06-14, 03:33 PM)vbnet كتب : .....

منقول للإفادة

يمكن ترتيب الجدول ترتيباً أبجدياً مع إعادة ترقيم الأسطر (إذا لزم الأمر)، ويوضع عادة بعد ملئ الجدول أو الإضافة أو التعديل أو الحذف
كود :
' ترتيب الجدول ترتيباُ أبجدياً
MSFlexGrid1.Sort = flexSortStringAscending

' إعادة ترتيب أرقام الأسطر على أساس العمود رقم 0 صفر
Dim row As Integer: For row = 1 To MSFlexGrid1.rows - 1
    MSFlexGrid1.TextMatrix(row, 0) = row
Next row

الله يكرمك ويرزقك الفردوس الاعلى يارب

لو ممكن ايضا المحاذاه للبيانات فى المنتصف كيف ؟؟؟
بارك الله فيك ..
.....
الرد }}}
تم الشكر بواسطة:
#9
(09-06-14, 04:27 PM)king2512010 كتب : ...
لو ممكن ايضا المحاذاه للبيانات فى المنتصف كيف ؟؟؟
...

.....

المحاذاة بالنسبة للنص كالأسماء فالأفضل لها تكون على اليمين لتسهل القراءة (طبعا للعربي فالكود معكوس يعني تختار يسار) مثل
كود :
MSFlexGrid1.ColAlignment(1) = flexAlignLeftCenter

المنتصف مثل
كود :
MSFlexGrid1.ColAlignment(1) = flexAlignCenterCenter

اليسار (طبعا للعربي فالكود معكوس يعني تختار يمين) مثل

كود :
MSFlexGrid1.ColAlignment(1) = flexAlignRightCenter

.....
الرد }}}
تم الشكر بواسطة: king2512010
#10
يا أخى اقسم بالله ... إنى إحبك فى الله
الله يسعدك أخى
ويرزقك الزوجة والذرية الصالحة
ووسع الله رزقك
وطيب كسبك
وبارك الله لك
ورحم والديك يارب ....
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Lightbulb [vb6.0] البحث في القائمة المنسدلة haitham farooq 0 158 31-12-23, 03:06 PM
آخر رد: haitham farooq
  [vb6.0] تغيير نوع الخط فى عمود معين داخل الdatagrid haitham Muhammed 6 363 20-12-23, 01:11 PM
آخر رد: mhareek
  [vb6.0] كيف يمكن إخفاء عمود رقم الصنف و إظهاره برمجياً نامل المساعدة في المثال التالي ؟ Microformt 2 387 19-11-23, 10:49 PM
آخر رد: Microformt
Question [vb6.0] نامل المساعدة في المثال المرفق يوجد مشكلة في إضافة رقم الصنف الى قاعدة البيانات لا اع Microformt 1 241 23-10-23, 12:11 AM
آخر رد: Taha Okla
Question [vb6.0] كيف استخدم هذه الخوارزمية في برنامجي نامل المساعدة العاجله؟ Microformt 0 224 04-10-23, 11:44 PM
آخر رد: Microformt
  [vb6.0] اظهار الرصيد السابق في اول صف في Msflexgrid جلال اليمني 5 432 26-09-23, 04:24 AM
آخر رد: جلال اليمني
  [vb6.0] سؤال حول كيفية عمل زر كوماند داخل عمود Msflexgrid جلال اليمني 5 551 14-09-23, 05:12 AM
آخر رد: جلال اليمني
  [vb6.0] سؤال حول تحويل الرقم لعملة في Msflexgrid جلال اليمني 3 408 28-08-23, 07:19 PM
آخر رد: جلال اليمني
  جمع حقلين داخل rpttext فى داتا ريبورت haithamelareny 3 321 10-08-23, 11:56 PM
آخر رد: ahmedabdelaliem
  اخوانى الاحباب ارجو المساعدة فى كود النسخ واللصق mhareek 1 404 15-07-23, 02:28 PM
آخر رد: Amir_Alzubidy

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


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