کمک در رفع خطای ویژوال بیسیک Subscript out of range
#1
Note 
سلام کسی میدونه چرا این کد خطا میده؟

کد:
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
لطفا کمک کنید لازم دارم Sad

پاسخ
#2
Note 
سلام
خانه های 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

پاسخ
ایجاد موضوع جدید   پاسخ به موضوع  

موضوعات مرتبط با این موضوع...
موضوع نویسنده پاسخ بازدید آخرین ارسال
Note دانلود نمونه سولات ویژوال بیسیک SOFTAFZAR 1 2,189 18-12-2015 ساعت 11:30
آخرین ارسال: majidvajih
Note ماشین حساب پیشرفته به زبان ویژوال بیسیک SOFTAFZAR 2 4,113 28-01-2015 ساعت 16:36
آخرین ارسال: xMAN
Note space در ویژوال بیسیک 6 شهره 1 670 04-10-2014 ساعت 10:42
آخرین ارسال: Comodo
Note ویژوال بیسیک amir7519 1 596 19-07-2014 ساعت 17:36
آخرین ارسال: C0der
Note باز و بستن برنامه ها با ویژوال بیسیک Somi 1 587 18-05-2014 ساعت 19:28
آخرین ارسال: VBProgrammer
Note ایجاد لوزی با ویژوال بیسیک 6 Nastaran 2 742 07-04-2014 ساعت 14:25
آخرین ارسال: Nastaran
Note کمک در Sendkey ویژوال بیسیک THE KNIGHT 11 2,106 29-03-2014 ساعت 09:44
آخرین ارسال: Stack OverFlow
Note دانلود مجموعه پروژه ویژوال بیسیک Daniel 0 606 14-03-2014 ساعت 22:37
آخرین ارسال: Daniel
Note تمرینات حل شده درس برنامه سازی(ویژوال بیسیک) Daniel 0 1,003 13-03-2014 ساعت 19:32
آخرین ارسال: Daniel
Note دانلود 105 پروژه ویژوال بیسیک SOFTAFZAR 6 4,375 23-02-2014 ساعت 18:21
آخرین ارسال: Daniel

کاربرانِ درحال بازدید از این موضوع:   1 مهمان