Combobox array question?

[James Stanich]

1st thread removed.

My situation:

10 comboboxes(arrayed) on a form. On form load, loads all 50 states into the combobox and waits for user selection.

My problem: Once the user picks a state in 1 of the 10, I would like the other 9 to exclude that state in it's selection. I fugured that would be easy enuff, but what if the user picked "Texas" in cboState(5), then I have to make cboState(0-4) then cboState(6-9) exclude "Texas". Can this be done?

[James Stanich]

Come on guys. I'm sure some can help me here...

Try this:

Private Sub cboState_Change(Index As Integer)
For i = 0 To 10
cboState(i).Text = cboState(Index).Text
Next i
End Sub

Private Sub cboState_Click(Index As Integer)
For i = 0 To 10
cboState(i).Text = cboState(Index).Text
Next i
End Sub

[Aaron Young]

There are a few ways you could do this, here's one:

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const CB_FINDSTRINGEXACT = &H158

Private Sub cboState_Click(Index As Integer)
    Dim oCombo As ComboBox
    Dim lIndex As Long
    Dim sFind As String
    
    'Value to match in other Combo's
    'Can;t use index number as it could be in
    'a different position for different combo's
    sFind = cboState(Index)
    
    'Enumerate each Combo in the Control Array
    For Each oCombo In cboState
        
        'Process every combo except the one the user changed
        If oCombo.Index <> Index Then
        
            'If the Combo had a previous value, add it back
            'to the lists of the other combo's
            If Val(cboState(Index).Tag) Then
                oCombo.AddItem cboState(Index).List(Val(cboState(Index).Tag))
            End If
            
            'Find where the selected value appears in this combo
            lIndex = SendMessage(oCombo.hwnd, CB_FINDSTRINGEXACT, 0&, ByVal sFind)
            
            'If found, remove it
            If lIndex >= 0 Then oCombo.RemoveItem lIndex
        End If
    Next
    
    'Remember this value next time, so we can put it back
    cboState(Index).Tag = cboState(Index).ListIndex
End Sub

[James Stanich]

Aaron Young:

So, in theory, user selects Texas in one box and Texas is exluded in the other boxes, right? What if, in the same box, the user changes the selection to Arkansas? Would your code then add Texas back to the boxes it was once excluded from?

[Aaron Young]

Yes, it would, I'm using the Tag property to Track the Combo's previous value so I can replace it if necessary as you can see in this segment of the code:

            'If the Combo had a previous value, add it back
            'to the lists of the other combo's
            If Val(cboState(Index).Tag) Then
                oCombo.AddItem cboState(Index).List(Val(cboState(Index).Tag))
            End If

[James Stanich]

Aaron Young:

Thank your for your response.