copying combos

  • Thread starter Thread starter Zebra Code
  • Start date Start date
Z

Zebra Code

hi all

i should copy the items of a combo to n other combos.

it's not a cycle:
With cboColor1
.Items.Add("ffffff")
.Items.Add("cecece")
...
.SelectedIndex = 0
End With
and the list may be long enough.

is there a quick way to replicate the content of combo1 to others without
copying its code?

tia, z.
 
hi all

i should copy the items of a combo to n other combos.

it's not a cycle:
With cboColor1
.Items.Add("ffffff")
.Items.Add("cecece")
...
.SelectedIndex = 0
End With
and the list may be long enough.

is there a quick way to replicate the content of combo1 to others without
copying its code?

tia, z.
Click to expand...

Just right click combo control which is placed on your form, then
right click on it "copy" then "paste" into another form you desire.

Hope this helps.
 
Just right click combo control which is placed on your form, then
right click on it "copy" then "paste" into another form you desire.

Hope this helps.
Click to expand...

This can be done only is design mode and I don't think that this was the
original problem.

You might declare a function or sub that adds items to combos.

Public Sub AddItems (ByRef source as ComboBox)

' Combos where to copy items from source
Dim Combos() as ComboBox={combo2, combo3, ... }

For Each Combo as ComboBox In Combos
For Each Item as Object in source.Items

Combo.Items.Add(Item)

Next
Next

End Sub


-Teemu
 
hi all

i should copy the items of a combo to n other combos.

it's not a cycle:
With cboColor1
.Items.Add("ffffff")
.Items.Add("cecece")
...
.SelectedIndex = 0
End With
and the list may be long enough.

is there a quick way to replicate the content of combo1 to others without
copying its code?

tia, z.
Click to expand...

Untested code:

Private Sub CopyCombo(src as ComboBox, dest as ComboBox)

dest.Items.Clear()
For indx As Integer = 0 To src.Items.Count - 1
dest.Items.Add(src.Items.Item(indx).ToString())
Next
desc.SelectedIndex = 0

End Sub

Another approach that I like better is to create an ArrayList with the
items in it, and then build a Sub that populates a ComboBox from an
ArrayList.

Or create an ArrayList and use it as the DataSource for all of the
comboboxes. Just be sure to use a new currency manager for each
combobox, otherwise when you change one all will change.
 
Teemu said:
This can be done only is design mode and I don't think that this was the
original problem.
Click to expand...

that's right. at designtime the combo is just empty. it gets loaded at
runtime. meantime by code, in future maybe by means of a textfile.
You might declare a function or sub that adds items to combos.
Public Sub AddItems (ByRef source as ComboBox)
' Combos where to copy items from source
Dim Combos() as ComboBox={combo2, combo3, ... }
For Each Combo as ComboBox In Combos
For Each Item as Object in source.Items
Combo.Items.Add(Item)
Next
Next
End Sub
Click to expand...

i'm going to test it. it sounds just perfect.
thanks so much
ciao, z.
 
"Jack Jackson"
Untested code:

Private Sub CopyCombo(src as ComboBox, dest as ComboBox)

dest.Items.Clear()
For indx As Integer = 0 To src.Items.Count - 1
dest.Items.Add(src.Items.Item(indx).ToString())
Next
desc.SelectedIndex = 0

End Sub

Another approach that I like better is to create an ArrayList with the
items in it, and then build a Sub that populates a ComboBox from an
ArrayList.

Or create an ArrayList and use it as the DataSource for all of the
comboboxes. Just be sure to use a new currency manager for each
combobox, otherwise when you change one all will change.
Click to expand...

thank you, really. i'm gonna check it.
ciao, z.
 
that's right. at designtime the combo is just empty. it gets loaded at
runtime. meantime by code, in future maybe by means of a textfile.
Click to expand...

Yes, but if you run your project you will get same items on runtime
and also you can modify combobox in designer with whole properties of
your combobox clone.
 
"kimiraikkonen"
Yes, but if you run your project you will get same items on runtime
and also you can modify combobox in designer with whole properties of
your combobox clone.
Click to expand...

ok, thanks. i'm newby with vbnet and was hoping there ws a straight clone
method. i'll search for it.
ciao, ZC
 
Taking Jack's code a little bit else

\\\
dest.Items.Clear()
For Each srcItem As String In src.Items
dest.Items.Add(srcItem)
Next
///
While in version 2008 this goes like this too (strongly typed).
\\\
dest.Items.Clear()
For Each srcItem In src.Items
dest.Items.Add(srcItem)
Next
///

There is nothing wrong with the code from Jack by the way, just to show how
nice version 2008 is in this.

Cor
 
"Cor Ligthert[MVP]"
Taking Jack's code a little bit else

\\\
dest.Items.Clear()
For Each srcItem As String In src.Items
dest.Items.Add(srcItem)
Next
///
While in version 2008 this goes like this too (strongly typed).
\\\
dest.Items.Clear()
For Each srcItem In src.Items
dest.Items.Add(srcItem)
Next
///

There is nothing wrong with the code from Jack by the way, just to show
how nice version 2008 is in this.

Cor
Click to expand...

this group is a mine.
thank you.
ciao, ZC
 
kimiraikkonen said:
Yes, but if you run your project you will get same items on runtime
and also you can modify combobox in designer with whole properties of
your combobox clone.
Click to expand...

But this works only if items can be added in design mode and I think that
this can't be done in this case.

And besides if you copy and paste a control in design mode you'll get two
controls which have same properties at that time. But those two controls
aren't linked so if you change properties it'll affect only one control not
both. Also if you add an item to combobox when program is running it will be
added only to one combobox not to both.

-Teemu
 
Theres is, almost. But you need to use a staging variable, something like:

Dim _array As Object() = New Object(ComboBox1.Items.Count - 1) {}

ComboBox1.Items.CopyTo(_array, 0)

ComboBox2.Items.AddRange(_array)

Have a good look at the documentation for the ComboBox.Item property and the
'collection' object that it returns.
 
just to tel that i tried another way, using an array of combos.
there's thing to tune and i dont know yet ho to set the font (i'm a newby
here), but it seems to work.

thank you all
ZC

Public Class Form1

Dim cboColor() As ComboBox, txtValue() As TextBox, txtLabel() As TextBox
Dim nValues As Integer ' how many arrayed controls are actually on the
form

....

Private Sub cboValues_SelectedIndexChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
cboValues.SelectedIndexChanged
Dim j As Integer
If nValues > 0 Then ' 1<nvalues<5, but for frm_load (nvalues=0)
For j = nValues To 0 Step -1
Me.Controls.Remove(cboColor(j))
Next
End If
nValues = CInt(cboValues.Text) - 1
Dim maxVal As Integer = CInt(cboValues.Text) - 1
For j = 0 To maxVal
' colors
ReDim Preserve cboColor(j)
cboColor(j) = New ComboBox
With cboColor(j)
.DropDownStyle = ComboBoxStyle.DropDownList
'.Font = system.Drawing.Font "Courier New"
.Top = lblCboColor.Top
.Left = lblCboColor.Left + lblCboColor.Width + (j * 90) + (j
* 5)
.Width = 90
.Items.Add("ffffff :: white")
...
.Items.Add("000000 :: black")
.SelectedIndex = j
End With
Me.Controls.Add(cboColor(j))
 
Back
Top