Combobox VB6查找基于特定字符串的组合框列表索引

我有一个组合框，列表上有许多项。我只需要找到特定字符串的索引，并将组合框更改为该索引。我有一个以字符串形式返回结果的查询

 Function FindComboIndex(cmbDealerName,result)

 For int i = 0 to cmbDealerName.ListItems.Count

 If result = cmbdealername.ListItem(i).Text Then

 cmbdealername.listindex = i

 End if

 Next i

 End function

类似这样，我只需要正确的语法

应该可以：

Sub FindComboIndex(ByVal cmbDealerName As ComboBox, ByVal result As String)
    Dim i As Integer
    For i = 0 To cmbDealerName.ListCount - 1
        If result = cmbDealerName.List(i) Then
            cmbDealerName.ListIndex = i
            Exit Sub
        End If
    Next i
End Sub

编辑：修复代码，因为它未经测试且不起作用。上面的代码现在可以工作了

这应该可以工作：

Sub FindComboIndex(ByVal cmbDealerName As ComboBox, ByVal result As String)
    Dim i As Integer
    For i = 0 To cmbDealerName.ListCount - 1
        If result = cmbDealerName.List(i) Then
            cmbDealerName.ListIndex = i
            Exit Sub
        End If
    Next i
End Sub

编辑：修复代码，因为它未经测试且不起作用。上面的代码现在起作用了

如果找到字符串，则添加一个退出子项，这样它就不会继续循环。如果找到字符串，则添加一个退出子项，这样它就不会继续循环。