Clear Comboboxes ?[Resolved]

[Pirate]

Right now I have this code . It works fine unless I bind those comboboxes to arrays. any other solutions ?

Dim ComBox As Control
For Each ComBox In ME.Controls
                        If TypeOf ComBox Is ComboBox Then
                            ComBox.Text = ""
                        End If
                    Next

Thanks

[Slow_Learner]

Is your goal just to clear the .Text property of each combobox, or to actually clear their items? I just wrote a little project that does what it sounds like you're doing, sets ComboBox1.DataSource to an array of strings, and made a button whose event runs the code you posted - and it works fine.

[Pirate]

Not exactly what I need but I may need to set selectedindex property to specific item . It's good suggestion by the way .

[Edneeis]

Dim ComBox As Control
For Each ComBox In ME.Controls
      If TypeOf ComBox Is ComboBox Then
         ComBox.SelectedItem=Nothing
         'or
         'ComBox.SelectedIndex=-1
      End If
   Next

[Pirate]

I've tried that already . Gave me this error "SelectedItem' is not a member of 'System.Windows.Forms.Control'"

[Slow_Learner]

Seems to me the only reason you'd get that is if your If condition isn't quite right? All comboboxes expose a .SelectedItem and .SelectedIndex property, whatever their values might be.

[Edneeis]

Ahh then you have to cast it to a combobox specifically:

Dim ComBox As Control
        For Each ComBox In Me.Controls
            If TypeOf ComBox Is ComboBox Then
                Try
                    'if not bound
                    ComBox.Text = ""
                    'if bound
                    DirectCast(ComBox, ComboBox).SelectedIndex = -1
                Catch
                End Try
            End If
        Next

[Pirate]

Originally posted by Edneeis

Dim ComBox As Control
For Each ComBox In ME.Controls
      If TypeOf ComBox Is ComboBox Then
         ComBox.SelectedItem=Nothing
         'or
         'ComBox.SelectedIndex=-1
      End If
   Next

I'm talking about the above code . Have you tried it and got it to work (you or Edneeis)?

[Pirate]

This works fine Edneeis . Thanks