Question

VB高手请帮小弟解决一编程问题，我是初学者

Private Sub Command1_Click()
Static MaxIdx
If MaxIdx = 0 Then MaxIdx = 1
MaxIdx = MaxIdx + 1
If MaxIdx > 7 Then Exit Sub
Load optButton(MaxIdx) '建立新的控件数组元素
'把新建立的单选按钮放在原有单选按钮的下面
optButton(MaxIdx).Top = optBotton(MaxIdx - 1).Top + 360
optButton(MaxIdx).Visible = True '使新的单选按钮可见

End Sub

Private Sub optButton_Click(index As Integer)
Dim H, W
Picture1.Cls
Piture1.FillStyle = index '设置填充类型
W = Picture1.ScaleWidth / 2
H = Picture1.ScaleHeight / 2
Picture1.Circle (W, H), W / 2 '画圆
End Sub
我运行程序时总是出现“编译错误，函数或子程序未定义”就是在Load后的optButton上显示的，哪位大大帮着看下哪里出问题了谢谢

Answer 1

Static MaxIdx
如果改为 Static MaxIdx as integer 呢?

Answer 2

Piture1.FillStyle = index '设置填充类型
少打一个c
Picture1.FillStyle = index '设置填充类型

把optButton_Click放到Command1_Click上面试试……不保证有效……

Answer 3

错误挺多
控件名错误
If MaxIdx = 0 Then MaxIdx = 1 这句有点多余

Answer 4

'在窗体添加名为optButton的单选按钮: Caption = 0;Index=0
Private Sub Command1_Click()
Static MaxIdx
If MaxIdx = 0 Then MaxIdx = 1 Else MaxIdx = MaxIdx + 1
If MaxIdx > 7 Then Exit Sub
Load optButton(MaxIdx) '添加新的控件数组元素
'把新添加的单选按钮放在原有单选按钮的下面
optButton(MaxIdx).Top = optButton(MaxIdx - 1).Top + 480
optButton(MaxIdx).Caption = MaxIdx
optButton(MaxIdx).Visible = True '使新的单选按钮可见
End Sub

Private Sub optButton_Click(Index As Integer)
Dim H, W
Picture1.Cls
Picture1.FillStyle = Index '设置填充类型
W = Picture1.ScaleWidth / 2
H = Picture1.ScaleHeight / 2
Picture1.Circle (W, H), W / 2 '画圆
End Sub