图形操作shape遇到的问题!请大家帮忙看看是什么问题!

[key_lxl]

用到了控件数组,运行时Load Shape1(i)出错"对象已经加载"
我刚学VB不久,请大家看看问题出在什么地方了.
谢谢走过路过的高手了!

程序如下:

Private Sub form_activate()
Dim i As Integer
Print " 0 1 2 3 4 5"
Shape1(0).Shape = 0
Shape1(0).FillStyle = 2
For i = 1 To 5
Load Shape1(i)
Shape1(i).Left = Shape1(i - 1).Left + 750
Shape1(i).Shape = i
Shape1(i).FillStyle = i + 2
Shape1(i).Visible = True
Next i
End Sub

[rose_886886]

我运行你的代码 没问题啊

在设计时SHAPE1的INDEX一开始忘了写0了

后来也没问题啊

[key_lxl]

不好意思,不太明白,是哪个地方要改呀?

[key_lxl]

我建第一个的时候index是设置的为0
然后复制,粘贴
可还是错!

[asuo8]

建议用MicroDraw图形控件