فرز الأعمدة تصاعديا و تنازليا في عنصر تحكم MSFlexGrid

إرسال مساهمة في موضوع

اذهب الى الأسفل

فرز الأعمدة تصاعديا و تنازليا في عنصر تحكم MSFlexGrid

مُساهمة من طرف جورج صبحى في الخميس نوفمبر 01, 2018 5:59 am

كود جميل لفرز اعمدة اداة التحكم MSFlexGrid عند النقر على اعمدة البيانات 

الكود من جزئين 

الجزء الاول عبارة عن إجراء يسمى SortByColumn لفرز العمود المشار الية ..... وشفرة الاجراء هذا على النحو التالى :
الكود:

Private Sub SortByColumn(ByVal sort_column As Integer)
  
 إخفاء الفلكس جريد"

    MSFlexGrid1.Visible = False
    MSFlexGrid1.Refresh

    أفرز باستخدام النقر على العامود"

    MSFlexGrid1.Col = sort_column
    MSFlexGrid1.ColSel = sort_column
    MSFlexGrid1.Row = 0
    MSFlexGrid1.RowSel = 0

    ' إذا كان هذا عمود فرز جديد ، فقم بتصنيف تصاعدي"
    ' خلاف ذلك قم بتبديل الفرز الذي نستخدمه "
    If m_SortColumn <> sort_column Then
        m_SortOrder = flexSortGenericAscending
    ElseIf m_SortOrder = flexSortGenericAscending Then
        m_SortOrder = flexSortGenericDescending
    Else
        m_SortOrder = flexSortGenericAscending
    End If
    MSFlexGrid1.Sort = m_SortOrder

    ' استعادة اسم أعمدة الفرز السابقة.
    If m_SortColumn >= 0 Then
        MSFlexGrid1.TextMatrix(0, m_SortColumn) = _
            Mid$(MSFlexGrid1.TextMatrix(0, m_SortColumn), 3)
    End If

    ' عرض اسم أعمدة الفرز الجديد.
    m_SortColumn = sort_column
    If m_SortOrder = flexSortGenericAscending Then
        MSFlexGrid1.TextMatrix(0, m_SortColumn) = "> " & _
            MSFlexGrid1.TextMatrix(0, m_SortColumn)
    Else
        MSFlexGrid1.TextMatrix(0, m_SortColumn) = "< " & _
            MSFlexGrid1.TextMatrix(0, m_SortColumn)
    End If

    'عرض FlexGrid.
    MSFlexGrid1.Visible = True
End Sub


الجزء الثاني من الكود هو استدعاء الاجراء اعلاه و تنفيذة فى حدث MSFlexGrid1_MouseUp لفرز البيانات على النحو التالى :

الكود:
Private Sub MSFlexGrid1_MouseUp(Button As Integer, Shift As _
    Integer, x As Single, y As Single)
    'إذا لم يكن هذا الصف صفراً ، فلا تفعل شيئاً.
    If MSFlexGrid1.MouseRow <> 0 Then Exit Sub

    'إفرز حسب العمود النقر.
    SortByColumn MSFlexGrid1.MouseCol
End Sub


بس كدة خلاص  Very Happy
avatar
جورج صبحى
......
......

تاريخ التسجيل : 18/02/2011
المساهمات : 114
النقاط : 242
التقيم : 4
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: فرز الأعمدة تصاعديا و تنازليا في عنصر تحكم MSFlexGrid

مُساهمة من طرف NEXT في الخميس نوفمبر 01, 2018 7:13 pm

جورج صبحي كتب:بس كدة خلاص  



اية ده ....كدة خلاص  Smile

ـــــــــــــــــــ التوقيع ــــــــــــــــــــ
avatar
NEXT
الادارة
الادارة

تاريخ التسجيل : 18/02/2011
المساهمات : 334
النقاط : 200490
التقيم : 10
الدولة : مصر
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

رد: فرز الأعمدة تصاعديا و تنازليا في عنصر تحكم MSFlexGrid

مُساهمة من طرف جورج صبحى في الخميس نوفمبر 01, 2018 7:27 pm

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط] كتب:
جورج صبحي كتب:بس كدة خلاص  



اية ده ....كدة خلاص  Smile


Smile Smile
avatar
جورج صبحى
......
......

تاريخ التسجيل : 18/02/2011
المساهمات : 114
النقاط : 242
التقيم : 4
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة

ََ

مواضيع ذات صلة


 
صلاحيات هذا المنتدى:
تستطيع الرد على المواضيع في هذا المنتدى