• Home
 · 
• Miscellaneous
 · 
• Selects an item in a combo box if it existsin Visual Basic 6

Selects an item in a combo box if it existsin Visual Basic 6

Selects an item in a combo box if it existsin Visual Basic 6

Rate Selects an item in a combo box if it existsin Visual Basic 6

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

    Dim intLoop As Integer

    'If no elements in cmbItems then exit since there
    'is nothing to search for
    GetComboIndex = -1
    
    If cmbItems.ListCount = 0 Then
        Exit Function
    End If
    
    'Else search for the string
    For intLoop = 0 To cmbItems.ListCount
        If Trim(cmbItems.List(intLoop)) = Trim(txtItem) Then
            GetComboIndex = intLoop 'Item found
            Exit Function
        'Else
            'GetComboIndex = -1 'Item not found
        End If
    Next intLoop
End Function