VB6 Incompatibilité de type dans la condition de boucle For

Question

J'ai essayé de trouver pourquoi dans le code suivant, la troisième fois à travers la boucle, je reçois une erreur de type 13 non concordance lorsque la ligne "Pour lCount = 0 à maxCount" est en cours évalué. Au départ, je pensais que le problème était d'obtenir la valeur du vArray, mais le test montre qu'il est déclenché par la ligne "For". Je n'ai aucune idée de la façon dont le type serait en train de changer pendant le traitement de la boucle. Merci!

Public Function FindCodeIndex(vArray As Variant, MatchValue As String) As Integer 
    ''This function locates a value in a combo box returning the index or -1 if not found 
    Dim lCount As Long 
    Dim maxCount As Long 
    Dim arrayStr As String 


    On Error GoTo ErrorHandler 

    maxCount = UBound(vArray) 


    For lCount = 0 To maxCount 
    arrayStr = vArray(1, lCount) 

     If UCase$(arrayStr) = UCase$(MatchValue) Then 
      FindCodeIndex = Int(lCount) 
      Exit Function 
     End If 
    Next lCount 

    FindCodeIndex = -1 

    Exit Function 


ErrorHandler: 

MsgBox "Unexpected error in frmComment::FindCodeIndex()" & vbCrLf & _ 
      "Error Code: " & CStr(Err.Number) & " Error Desc: " & Err.Description 

Answer 1

Public Function FindCodeIndex(Array() As String, ByVal MatchValue As String) As Long 

    Dim index As Long 
    Dim upper_bound As Long 

    upper_bound= UBound(Array) 
    MatchValue = UCase(MatchValue) 

    For index = 0 To upper_bound 
     If UCase(Array(index)) = MatchValue Then 
      FindCodeIndex = index 
      Exit Function 
     End If 
    Next index 

    FindCodeIndex = -1 

End Function 

Answer 2

La fonction mentionne que le code est en cours d'écriture pour une zone de liste déroulante (vous copiez en fait chaque élément dans la méthode Liste() dans un tableau et d'envoyer ceci à votre fonction?). Cela semble un peu trop compliqué si vous utilisez le standard VB ComboBox. Utilisez simplement le code suivant:

Private Declare Function SendMessage Lib "User32.dll" Alias "SendMessageA" (ByVal hWnd As Long, ByVal uMsg As Long, ByRef wParam As Any, ByRef lParam As Any) As Long 

Private Const CB_FINDSTRINGEXACT As Long = &H158 

Public Function FindCodeIndex(ByRef cmb As ComboBox, ByRef sMatchValue As String) As Long 
'This function locates a value in a combo box returning the index or -1 if not found 

    FindCodeIndex = SendMessage(cmb.hWnd, CB_FINDSTRINGEXACT, ByVal -1, ByVal sMatchValue 

End Function 

Il est beaucoup plus rapide et plus petit d'utiliser l'API Windows dans ce cas.