如何解决VB6中的"编译错误:类型不匹配"错误？

Question

似乎已经有一些答案,但我找不到适合我的问题的答案.

这是代码:

Private Sub Combo2_click()
Dim item_id, price As Integer
Dim item_name As String
If Combo2.Index Is 0 Then
    price = 30
ElseIf Combo2.Index Is 1 Then
    price = 40
ElseIf Combo2.Index Is 2 Then
    price = 50
ElseIf Combo2.Index Is 3 Then
    price = 60
Else
    price = 55
End If
End Sub

我收到错误"编译错误:输入MisMatch"...我不知道为什么!它显示错误Private Sub COmbo2_click()...

Answer 1

您的代码中有两个错误:

1-你应该用Combo2.ListIndex而不是.Index.(因为index用于其他东西,当你的控件是数组中的元素时)

2-你应该替换Is为=(这就是抛出异常的东西Type mismatch).

希望有帮助:)