一个VB程序老是调试错误

来源：百度知道 编辑：UC知道 时间：2024/05/09 13:16:49
Private Sub Command1_Click()
Static MaxIdx
If MaxIdx = 0 Then MaxIdx = 1
MaxIdx = MadIdx + 1

If MadIdx > 7 Then Exit Sub
Load Optbutton(MaxIdx)
Optbutton(MaxIdx).Top = Optbutton(MaxIdx - 1).Top + 360

Optbutton(MaxIdx).Visible = True

End Sub

Private Sub Optbutton_Click(Index As Integer)
Dim H, M
Picture1.Cls
Picture1.FillStyle = Index
W = Picture1.ScaleWidth / 2
H = Picture1.ScaleHeight / 2
Picture1.Circle (W, H), W / 2
End Sub

运行时 老是出现对象已经加载的提示
调试时 指向这句话Load Optbutton(MaxIdx)
请各位大侠给我解答解答
谢谢了

第（1）：
If Maxidx = 0 Then Maxidx = 1
Maxidx = Maxidx + 1

因为 Static Maxidx
通常 变量 初始值 为 0
那两句的意思是 如果Maxidx 为0 则赋值 1
Maxidx = Maxidx + 1 就是累加的意思 每点击一次按钮 变量加1

------------------------------------------------------------------
第（2）：
Picture1.FillStyle = index

FillStyle 属性
返回或设置用来填充 Shape 控件、以及由 Circle 和 Line 图形方法生成的圆和方框的模式。
object.FillStyle [= number]

设置值

number 的设置值为：

常数 设置值 描述
VbFSSolid 0 实线
VbFSTransparent 1 （缺省值）透明。
VbHorizontalLine 2 水平直线。
VbVerticalLine 3 垂直直线。
VbUpwardDiagonal 4 上斜对角线。
VbDownwardDiagonal 5 下斜对角线
VbCross 6 十字线
VbDiagonalCross 7 交叉对角线

说明

如果 FillStyle 设置为 1（透明），则忽略 FillColor 属性，但是 Form 对象除外。.....

dui