How to create as combo as a variable

Question

0.00/5 (No votes)

See more:

Can anyone please help.
I have 16 combo boxes which I want to use the same list of items.
When I add a new item, I want to add it to all combo boxes collections.
I tried using this code;

VB

Dim updateComboName As String
Dim updateCombo As ComboBox
For i = 1 To 16
     updateComboName = "Player" & i
     updateCombo = updateComboName
     updateCombo.Items.Add(curComboItem)
 Next

but the line "updateCombo = updateComboName" fails as the left side is a combo and the right a string. How do I set the updateCombo as a variable with a name of Player1 through to Player16 as I step through the for loop?
In addition when the item is added it is lost as soon as the application is closed.How do I ensure the new item is retained for future use?

Posted 1-Mar-15 6:07am

Dave the Golfer

Updated 1-Mar-15 7:29am

Thomas Daniels

v3

Add a Solution

Comments

Maciej Los 1-Mar-15 12:37pm

You need to store items data somewhere...

Dave the Golfer 2-Mar-15 16:22pm

Maciej Los

Thank you I will create a CSV file and save the items to that.

Dave

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Gideon van Dyk · Accepted Answer · 2015-03-01T13:37:00

Solution 1

Maybe just change your second line to the following?

VB

...
updateCombo = CType(Me.Controls.Find(updateComboName, True), ComboBox)
...

Posted 1-Mar-15 13:37pm

Gideon van Dyk

Updated 3-Mar-15 10:09am

v3

Comments

Dave the Golfer 2-Mar-15 16:20pm

Gideon
Tried the solution but got this error
'FindControl' is not declared. It may be inaccessible due to its protection level.

My code is now
If NewName = 1 Then
MsgBox("Adding Name")
For i = 1 To 16
updateComboName = "Player" & i
updateCombo = CType(FindControl(updateComboName), ComboBox)
updateCombo.Items.Add(curComboItem)
Next
End If
Should FindControl be related to the Form?

Dave

Gideon van Dyk 2-Mar-15 16:51pm

The code I provided was for a web page, if your solution is a windows form, then try:

Me.Controls.Find(updateComboName, true)

Dave the Golfer 3-Mar-15 7:06am

Gideon

My code is for a windows form.
I am an absolute beginner so please forgive me if I ask naive questions BUT
where do I put Me.Controls.Find(updateComboName, True)?
Tried various way but kept getting the code error:
Value of type '1-dimensional array of System.Windows.Forms.Control' cannot be converted to 'System.Windows.Forms.ComboBox'.

Dave

Gideon van Dyk 3-Mar-15 16:08pm

Hi Dave, I updated the solution up to for a WinForms solution.

It basically replaces the FindControl function call.

Dave the Golfer 5-Mar-15 6:39am

Gideon

Code is now
If NewName = 1 Then
MsgBox("Adding Name")
For i = 1 To 16
updateComboName = "Player" & i
updateCombo = CType(Me.Controls.Find(updateComboName, True), ComboBox)
updateCombo.Items.Add(curComboItem)
Next
End If

But I get this error
Value of type '1-dimensional array of System.Windows.Forms.Control' cannot be converted to 'System.Windows.Forms.ComboBox'.

Dave

Dave the Golfer 5-Mar-15 6:48am

Gideon

Changed code to
If NewName = 1 Then
MsgBox("Adding Name")
For i = 1 To 16
updateComboName = "Player" & i
updateCombo = CType(Me.Controls(updateComboName), ComboBox)
updateCombo.Items.Add(curComboItem)
Next
End If

It now works, thanks for your support and patience.

Dave

Gideon van Dyk 5-Mar-15 19:11pm

No worries, glad we could help :)