求开发高手进入解答。
Private Sub Command1_Click(index As Integer)
Text1.Text = Text1.Text & Command1(index).Caption
current = Text1.Text
asterisk.Enabled = True
equal.Enabled = True
expo.Enabled = True
' logn.Enabled = True
' logten.Enabled = True
minus.Enabled = True
plus.Enabled = True
sign.Enabled = True
slash.Enabled = True
sroot.Enabled = True
' tangent.Enabled = True
'' cosine.Enabled = True
' sine.Enabled = True
End Sub
报错1:编译错误:过程声明与同名事件或过程的描述不匹配
报错2:实时错误'424' 要求对象
[解决办法]
把index As Integer去掉试下
[解决办法]
我觉得原因在于:你的Command1只是一个按钮,而不是控件数组造成的。
[解决办法]
Command1_Click(index As Integer) 这是按钮数组的写法
要么在按钮列属性中 index给赋一个整数值
要么删掉index As Integer
[解决办法]
一个是控件数组的问题,前面说了。
另外就是你的控件名有没有写对,对象不存在。