如何解決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 

我收到錯誤爲「編譯錯誤：類型不匹配」 ......我不知道爲什麼！它顯示在類似Private Sub COmbo2_click()錯誤...

Answer 1

有兩個錯誤在你的代碼：

1，您應該使用Combo2.ListIndex，而不是.Index。 （因爲index用於別的東西，這就是當你控制在數組中的元素）

2-此時應更換Is與=（而這正是引發的Type mismatch除外）。

希望可以幫到:)