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

نسخ بيانات مصفوفة في عنصر تحكم FlexGrid

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

نسخ بيانات مصفوفة في عنصر تحكم FlexGrid Empty نسخ بيانات مصفوفة في عنصر تحكم FlexGrid

مُساهمة من طرف م/موسي الإثنين أكتوبر 29, 2018 8:22 am

مثال بسيط يوضح كيفية نسخ بيانات مصفوفة في عنصر تحكم FlexGrid 

فى البداية سنقوم بانشاء إجراء به مصفوفة البيانات التى نريد نسخها الى الاداة FlexGrid

الكود:
Option Explicit

Private m_ArrayData() As String

الكود:
Private Sub MakeData()
Dim r As Integer
Dim c As Integer

    ReDim m_ArrayData(1 To 10, 1 To 4)
    For r = LBound(m_ArrayData, 1) To UBound(m_ArrayData, 1)
        For c = LBound(m_ArrayData, 2) To UBound(m_ArrayData, 2)
            m_ArrayData(r, c) = "(" & Format$(r) & ", " & Format$(c) & ")"
        Next c
    Next r
End Sub

بعد ذلك سنقوم بانشاء اجراء لنسخ تلك المصفوفة الى عنصر التحكم باستخدام الطريقة TextMatrix

الكود:
Private Sub CopyArrayToGrid(ByRef m_ArrayData() As String, ByVal grd As MSFlexGrid)
Dim rmin As Integer
Dim cmin As Integer
Dim rmax As Integer
Dim cmax As Integer
Dim r As Integer
Dim c As Integer

    rmin = LBound(m_ArrayData, 1)
    rmax = UBound(m_ArrayData, 1)
    cmin = LBound(m_ArrayData, 2)
    cmax = UBound(m_ArrayData, 2)
    grd.Rows = rmax - rmin + 1
    grd.Cols = cmax - cmin + 1
    grd.FixedCols = 0
    grd.FixedRows = 0

    For r = rmin To rmax
        For c = cmin To cmax
            grd.TextMatrix(r - rmin, c - cmin) = m_ArrayData(r, c)
        Next c
    Next r
End Sub


تحياتى لكم
م/موسي
م/موسي
الاشراف
الاشراف

تاريخ التسجيل : 18/02/2011
المساهمات : 178
النقاط : 346
التقيم : 12
الدولة : تونس
الجنس : ذكر

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

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

ََ

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


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