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 

私のようにエラーを取得しています「コンパイルエラー：型の不一致」...私は理由を知りません！

1 - あなたはCombo2.ListIndex代わりの.Index使用する必要があります：あなたのコードに2つの間違いがあります

Answer 1

...のようなPrivate Sub COmbo2_click()にエラーを示しています。 （indexは何か他のもののために使用され、コントロールが配列の要素であるとき、それはだから）

2 - あなたは=でIsを置き換える必要があります（それはType mismatchの例外をスローものです）。

ほしいと思っています:)