سلام کسی میدونه چرا این کد خطا میده؟
Private Sub Command1_Click()
With MSFlexGrid1
.Rows = 10
.Cols = 10
For i = 1 To 10
For j = 1 To 10
.TextMatrix(i, j) = i & " " & j
Next j
.Rows = .Rows + 1
Next i
End With
End Sub
لطفا کمک کنید لازم دارم :(
0
سلام
خانه های FlexGrid از 0.0 شروع میشن
بجای 10 1to باید 9 0to بذارید به این شکل:
Private Sub Command1_Click()
With MSFlexGrid1
.Rows = 10
.Cols = 10
For i = 0 To 9
For j = 0 To 9
.TextMatrix(i, j) = i & " " & j
Next j
.Rows = .Rows + 1
Next i
End With
End Sub
سوال برنامه نویسی دارید؟
ندونستن عیب نیست، نپرسیدن چرا!