VB6'da "Derleme Hatası: tür uyuşmazlığı" hatası nasıl çözülür?

Question

Şimdiden bazı cevaplar var gibi görünüyor ama soruma uygun bir cevap bulamıyorum. Ben "hata derleme: Tür uyumsuzluğu" gibi hata alıyorum

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 

: ... Ben neden bilmiyorum Burada

kodudur!

1- Sen Combo2.ListIndex yerine .Index kullanmalıdır: kodunuzu iki hatalar vardır

Answer 1

... gibi Private Sub COmbo2_click() üzerinde hata gösteriliyor. (index başka bir şey için kullanılır ve kontrol Bir dizide bir elementtir işte o zaman, çünkü) Sen = ile Is değiştirmelidir

2- (ve bu Type mismatch ait istisna atar ne).

Bu yardımcı olur umarım