Dim XStart As Single
Dim XOld, YOld As Single
Dim mShape As IntegerPrivate Sub Form_Load()
Picture1.ScaleMode = 3
Picture1.DrawWidth = 1
End SubPrivate Sub Option1_Click(Index As Integer)mShape = Index
End Sub
。
编译时说:编译错误:过程声明与同名时间或过程的描述不匹配
这是怎么回事?
Dim XOld, YOld As Single
Dim mShape As IntegerPrivate Sub Form_Load()
Picture1.ScaleMode = 3
Picture1.DrawWidth = 1
End SubPrivate Sub Option1_Click(Index As Integer)mShape = Index
End Sub
。
编译时说:编译错误:过程声明与同名时间或过程的描述不匹配
这是怎么回事?
Private Sub Option1_Click(Index As Integer)
mShape = Index
End Sub