如何解决 VB6 中的“编译错误：类型不匹配”错误？

【问题标题】：How to solve "Compile Error : type mismatch" error in VB6?如何解决 VB6 中的“编译错误：类型不匹配”错误？
【发布时间】：2016-03-30 13:46:05
【问题描述】：

似乎已经有一些可用的答案，但我找不到我的问题的正确答案。

代码如下：

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() 上显示错误...

【问题讨论】：

标签： vb6

【解决方案1】：

你的代码有两个错误：

1- 你应该使用Combo2.ListIndex 而不是.Index。（因为index 用于其他用途，此时您的控件是数组中的元素）

2- 您应该将Is 替换为=（这就是引发Type mismatch 异常的原因）。

希望有帮助:)

【讨论】：

第 2 点的附加信息“Is”用于“Select Case”而不是 If。那太神秘了:)
@Jules 运算符Is 不仅限于在Select Case 中使用，它用于在两个对象之间进行比较，是的，它可以在If 语句中使用（比较一对对象）。
是的，你是对的。我要补充的是，你可以用什么来比较对象，但我的评论很神秘。
另一个注意事项 - Dim a, b As Integer 将 a 声明为变体。