VB6根据特定字符串查找组合框列表索引

Question

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

 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

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

Answer 1

这应该有效：

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

编辑：修复代码，因为它没有经过测试，也没有用。上面的代码现在有效