نسخ بيانات مصفوفة في عنصر تحكم FlexGrid
صفحة 1 من اصل 1 • شاطر
نسخ بيانات مصفوفة في عنصر تحكم FlexGrid
مثال بسيط يوضح كيفية نسخ بيانات مصفوفة في عنصر تحكم FlexGrid
فى البداية سنقوم بانشاء إجراء به مصفوفة البيانات التى نريد نسخها الى الاداة FlexGrid
بعد ذلك سنقوم بانشاء اجراء لنسخ تلك المصفوفة الى عنصر التحكم باستخدام الطريقة TextMatrix
تحياتى لكم
فى البداية سنقوم بانشاء إجراء به مصفوفة البيانات التى نريد نسخها الى الاداة 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
الدولة :
الجنس :
| |
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى
أمس في 8:56 pm من طرف moslema_r
» شركة مكافحة حشرات في راس الخيمة
أمس في 8:34 pm من طرف moslema_r
» تطبيقIncogniton لإدارة ملفات تعريف متعددة للمتصفح
الأربعاء أبريل 24, 2024 3:51 pm من طرف زاكااا
» افضل شركة مكافحة النمل الابيض بالرياض
الإثنين أبريل 22, 2024 9:41 pm من طرف moslema_r
» Exemplary Сasual Dating - Verified Women
الخميس أبريل 18, 2024 9:18 pm من طرف wdqwd
» رش الدفان بالرياض
الخميس أبريل 18, 2024 7:11 pm من طرف moslema_r
» شركة تنظيف خزانات الشارقة
الخميس أبريل 18, 2024 6:57 pm من طرف moslema_r
» شركة مكافحة الفئران بالرياض
الإثنين أبريل 15, 2024 8:23 pm من طرف moslema_r
» افضل شركة كشف تسربات المياه بالباحة
الخميس أبريل 04, 2024 7:02 am من طرف gmalnagy
» ساعدوني وفهموني help me
الجمعة مارس 29, 2024 8:37 am من طرف linesoft