نسخ بيانات مصفوفة في عنصر تحكم 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
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى
أمس في 7:09 pm من طرف moslema_r
» شركة تنظيف فرشات بالرياض
الثلاثاء مارس 26, 2024 6:26 pm من طرف moslema_r
» شركة تنظيف استراحات بالرياض
الأحد مارس 24, 2024 10:49 pm من طرف moslema_r
» كشف تسربات المياه في جدة
السبت مارس 23, 2024 7:23 pm من طرف gmalnagy
» خدمات كشف تسربات المياه بخصم 25% - اتصل الان
السبت مارس 23, 2024 7:22 pm من طرف gmalnagy
» شركة تنظيف ثريات بالرياض
الخميس مارس 21, 2024 7:23 pm من طرف moslema_r
» كهربائي منازل بالرياض
الأحد مارس 17, 2024 1:52 pm من طرف رانيا حماد
» افضل شركة نقل عفش بالرياض نقل باكستاني 40% خصم | موقع الانوار
الأحد مارس 17, 2024 1:25 pm من طرف رانيا حماد
» افضل معلم جبس بالرياض تركيب جبس بورد بالرياض 20% خصم اتصل الآن
الأحد مارس 17, 2024 1:09 pm من طرف رانيا حماد
» شراء اثاث مستعمل بالكويت بخصم 30%
الأحد مارس 17, 2024 12:54 pm من طرف رانيا حماد