Msflexgrid

[zhm]

سلام.یه سوال دارم:چطور میشه با msflexgrid کار کرد و اصلاً چه کاربردی داره؟

میخوام اطلاعات یک فایل تکست رو بخونم و در یک جدول چاپ کنم، این فایل تکست یک سری سطر وستون از اعداد است.قبلاً هم این سوال رو پرسیدم یکی از دوستان جواب هم دادن اما میخوام اگه بشه توی جدول اطلاعات چاپ بشه .کد زیر رو نوشتم.اما مشکلی که دارم اینه که اگر در یک سطر تعداد ستونها کمتر از 7 تا بشه ستونهای باقیمانده سطر را با ستونهای اول سطر بعد پر میکنه و برنامه نمیتونه تشخیص بده که باید بره سطر بعد.لطفاً کمکم کنید برنامه رو درست کنم

Private Sub jadval
Dim s60(21, 7) As Single
Dim i As Byte, j As Byte
Dim a0 As Single, a1 As Single, a2 As Single, a3 As Single, a4 As Single, a5 As Single, a6 As Single
MSFlexGrid1.Rows = 21
MSFlexGrid1.Cols = 7
'Open "E\New Text Document.txt" For Input As #1
For i = 0 To 20
MSFlexGrid1.Row = i
Input #1, a0, a1, a2, a3, a4, a5, a6
(s60(i, 0) = Val(a0
(s60(i, 1) = Val(a1
(s60(i, 2) = Val(a2
(s60(i, 3) = Val(a3
(s60(i, 4) = Val(a4
(s60(i, 5) = Val(a5
(s60(i, 6) = Val(a6
For j = 0 To 6
MSFlexGrid1.Col = j
((MSFlexGrid1.Text = Val(s60(i, j
Next j
Next i
Close #1
End Sub​

 

[the_king]

پاسخ سوالتان را در همان گفتگوی قبلی دادم، تابعی به نام ()ShowArrayOnTable به ماژول ModuleArray اضافه کردم
تا محتویات آرایه دو بعدی را در درون MSFlexGrid قرار دهد :

قرار دادن یک فایل تکست در ماتریس در ویژوال بیسیک