problem with combobox in tabcontrol

[nazimghori]

hello i knew this approach but there are more than one combobox on each tabpage... so please suggest some other approach... :) :) :)

[Luc Pattyn]

I gave you two solutions, the first works no matter what. the second can be modified to cope with multiple comboboxes per tabpage: give the ones you want a special characteristic (e.g. through their Name, their Location or their Tag) and test inside the "foreach control" loop. :)

Luc Pattyn [Forum Guidelines] [My Articles]

---

The quality and detail of your question reflects on the effectiveness of the help you are likely to get. Show formatted code inside PRE tags, and give clear symptoms when describing a problem.

---

[Dave Kreskowiak]

Of course not. You're trying to build the name of a ComboBox in a string and then treating that string as if it was the combobox. That's not going to work. Luc has the best two solutions for you.

A guide to posting questions on CodeProject[^]
Dave Kreskowiak Microsoft MVP Visual Developer - Visual Basic
     2006, 2007, 2008

modified on Sunday, May 10, 2009 9:46 PM

[nazimghori]

hello i tried the second approach i gave the tag values of each combobox in tabpage to '0' at design time..

Sub fill(ByVal tbcon As TabControl)

    Dim cnt As Control
    For Each cnt In tbcon.Controls

        If TypeOf cnt Is ComboBox Then
            Select Case Tag
                Case 0
                    cnt.Items.Add("NP")
                    cnt.Items.Add("ND")
                    cnt.Items.Add("FP")
                    cnt.Items.Add("FD")
            End Select
        End If


    Next
End Sub

but this shows the syntax error like 'item is no the member of 'system.windows.forms.controls' please help....

[nazimghori]

hello i tried another alternative like

dim cmbcntrl as combobox
Dim combos() As String = New String() {"NP", "ND", "FP", "FD"}
dim i as string
For i = 0 To 11
cmbcntrl = cmbcntrl.Items.AddRange(combos)
next

there are 11 comboxes and 11 tabpage each tabpage having 1 combobox now i name these comboboxes like combobox0,combobox1,combobox3.....and also there are other comboboxes in tabpages but they are with different name.. and tried above loop but still theres an error like:- 'expression doesnot produce a value..' so please suggest what shall i do.. thank you.... :) :) :)

[nazimghori]

hello i tried other approach like

Dim combos() As String = New String() {"NP", "ND", "FP", "FD"}
Dim i As Integer
dim cmbcntrl as combobox
For i = 0 To 11
cmbcntrl = cmbcntrl.Items.AddRange(combos)

i am having 11 comboboxes and 11 tabpages each having one combobox now i name these comboboxes like :combobox0,combobox1,combobox3....upto '11' and also there are other comboboxes in some tabpages but they are with different name.... now i tried above loop but it still states the syntax error like 'expression doesnot produces a value...' so please suggest what shall i do to solve it.. thank you.... :) :)

[Andy_L_J]

Dim arr() As String = {"NP","ND","FP","FD",...}

For Each tabPage In TabControl1
For Each control In TabPage
If control Is ComboBox Then
control.Items.AddRange(arr)
End If
Next
Next

Surely this works

I don't speak Idiot - please talk slowly and clearly I don't know what all the fuss is about with America getting it's first black president. Zimbabwe's had one for years and he's sh*t. - Percy Drake , Shrewsbury Driven to the arms of Heineken by the wife

[nazimghori]

hello the code suggested had an syntax error like 'tabpage is a type and cannot be used as an expression' so please suggest what shall i do to solve it.... :) :)

[Luc Pattyn]

Of course your code does not compile: cnt is declared a Control, and Control does not have an Items property. You need to cast it to a ComboBox, something like Dim combo as ComboBox=DirectCast(cnt, ComboBox) :)

Luc Pattyn [Forum Guidelines] [My Articles]

---

The quality and detail of your question reflects on the effectiveness of the help you are likely to get. Show formatted code inside PRE tags, and give clear symptoms when describing a problem.

---

[DidiKunz]

..it should read somthiing like:

Sub fill(ByVal tbcon As TabControl)
    Dim cnt As Control
    For Each cnt In tbcon.Controls
        If TypeOf cnt Is ComboBox Then
            Select Case **CType(cnt, ComboBox).Tag**
                Case 0
                    cnt.Items.Add("NP")
                    cnt.Items.Add("ND")
                    cnt.Items.Add("FP")
                    cnt.Items.Add("FD")
            End Select
        End If
    Next
End Sub

Otherways the compiler doesn't know 'Tag' Regards: Didi