关于VB6中RECT数组的问题.

eastwolf

我在vb6中定义了一个rect数组
dim r1(1 to5,1 to 8) as RECT
来记录角色的运动图片的.结果游戏中调用这个数组的时候说"数组没有定义"

ReDim r1(1 To 5, 1 To 8) As RECT

r1(1, 1).Left = 0: r1(1, 1).Right = 31: r1(1, 1).Top = 0: r1(1, 1).Bottom = 63
r1(2, 1).Left = 32: r1(2, 1).Right = 63: r1(2, 1).Top = 0: r1(2, 1).Bottom = 63
r1(3, 1).Left = 0: r1(3, 1).Right = 31: r1(3, 1).Top = 0: r1(3, 1).Bottom = 63
r1(4, 1).Left = 64: r1(4, 1).Right = 95: r1(4, 1).Top = 0: r1(4, 1).Bottom = 63
r1(5, 1).Left = 0: r1(5, 1).Right = 31: r1(5, 1).Top = 0: r1(5, 1).Bottom = 63

就是这段.上面那个redim无论是否加上都没有作用.我查阅了RECT
的相关帮助.里面没有提到RECT数组的问题.

谁能告诉我怎么定义一个RECT数组？

lights

我晕,大哥你到底怎么定义的啊!
要是用redim,必须建立的是动态数组

要是用dim有问题,请检查变量作用域!
最好贴相对完整代码!

eastwolf

一开始用的dim.说找不到数组...
后来硬加上了redim.还是说找不到数组...

就在模块内定义的. - -# 代码已经删除了.太郁闷了.休息几天重新写...

kimja

试一下改成这样行不行：
dim r1() as RECT
ReDim r1(1 To 5, 1 To 8) As RECT

r1(1, 1).Left = 0: r1(1, 1).Right = 31: r1(1, 1).Top = 0: r1(1, 1).Bottom = 63
r1(2, 1).Left = 32: r1(2, 1).Right = 63: r1(2, 1).Top = 0: r1(2, 1).Bottom = 63
r1(3, 1).Left = 0: r1(3, 1).Right = 31: r1(3, 1).Top = 0: r1(3, 1).Bottom = 63
r1(4, 1).Left = 64: r1(4, 1).Right = 95: r1(4, 1).Top = 0: r1(4, 1).Bottom = 63
r1(5, 1).Left = 0: r1(5, 1).Right = 31: r1(5, 1).Top = 0: r1(5, 1).Bottom = 63