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

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

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

نسخ بيانات مصفوفة في عنصر تحكم 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


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

تاريخ التسجيل : 18/02/2011
المساهمات : 156
النقاط : 311
التقيم : 11
الدولة : تونس
الجنس : ذكر

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

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

ََ

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


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