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

Visual Basic 6

توسط rodney در 5 سال پیش
0 1.2k 1 5 سال پیش
rodneyreza-irdev
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

خوش آمدید

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

لطفا ابتدا لاگین کنید