如何解决＆＃34;编译错误：类型不匹配＆＃34; 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

我收到错误＆＃34;编译错误：输入MisMatch＆＃34; ......我不知道为什么！它显示错误Private Sub COmbo2_click() ...

Answer 1

您的代码中有两个错误：

1-您应该使用Combo2.ListIndex代替.Index。 （因为index用于其他东西，当你的控件是数组中的元素时就是这样）

2-您应该将Is替换为=（这就是抛出Type mismatch例外的原因。）

希望有所帮助：）