کمک در رفع خطای ویژوال بیسیک Subscript out of range

Visual Basic 6

توسط rodney در 7 سال پیش
0 51.4k 1 7 سال پیش
rodney reza
0

سلام کسی میدونه چرا این کد خطا میده؟

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

خوش آمدید

برای طرح سوال، ایجاد بحث و فعالیت در سایت نیاز است ابتدا وارد حساب کاربری خود شوید. در صورتی که هنوز عضو سایت نیستید میتوانید در عرض تنها چند ثانیه ثبت نام کنید.