طباعه المصفوفات

إذا كنت تريد الطباعة في Label

Dim i As Integer, j As Integer
Dim arr(5, 5) As Integer
For i = 0 To 5
For j = 0 To 5
    arr(i, j) = 9
    Label1.Caption = Label1.Caption & arr(i, j) & "    "
Next j
   Label1.Caption = Label1.Caption & vbCrLf
Next i

الطباعة على الفورم مباشرة

Dim i As Integer, j As Integer
Dim arr(5, 5) As Integer
For i = 0 To 5
For j = 0 To 5
    arr(i, j) = 9
     Print arr(i, j) & "  ";
Next j
   Print vbNewLine
Next i

جزاكم الله خيرا عل حسن ردكم

ولكن الاستفسار عن جزء في الكود المكتوب

arr(i, j) = 9

Print vbNewLine

ماذا تعني بهذا السطر

ارجو التوضيح وجزاك الله خيرا

فارس2010 كتب:

جزاكم الله خيرا عل حسن ردكم

ولكن الاستفسار عن جزء في الكود المكتوب

arr(i, j) = 9

Print vbNewLine

ماذا تعني بهذا السطر

ارجو التوضيح وجزاك الله خيرا

هذان سطران!

السطر الأول يقوم بوضع قيمة في المصفوفة (في حالتك لن يكون هذا السطر موجود لأنك قمت بتعبئة المصفوفة مسبقا)

السطر الثاني

Print vbNewLine

يقوم بالإنتقال إلى السطر التاي في عملية الطباعة على الفورم. لاحظ مكان وجود هذا السطر فهو ضروري جدا، بحيث أنه عندما ينتهي من طبعا صف في المصفوفة يتم طباعة سطر جديد.