dynamic button image change

Question

1.00/5 (1 vote)

See more:

Hi,

I have a button formumda 50 pieces.
Imagen changes made to them in a sub form. I have to use certain parts of the program.
However, I do not want to change them one by one. I want to do a for loop in the next cycle.
1. Buttons from the 50th Images of the button will change to. But somehow I could not work from within. I'll be glad if you help. Yours sincerely

I wrote the code that is changing, but what the text nor the forecolor

But directly button30.text = "test" if I say no problem

Dim mybutton As New Button


             For tt 1 to 50

                 mybutton.Name = "Button"&tt

                 With mybutton
                     .Text = "test"
                     .Name = "Button" & tt
                     .ForeColor = Color.Blue
                 End With
 next
             End If

Posted 18-Jan-11 0:37am

vozkan58

Updated 18-Jan-11 1:13am

Yusuf

v2

Add a Solution

Comments

OriginalGriff 18-Jan-11 9:00am

Don't reply to people with the "Add and Answer" button - they do not get an email, so they don't know you have done it!
Instead, use the "Add Comment feature".
I have deleted your answers, and modified my own.

2 solutions

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)

OriginalGriff · Accepted Answer · 2011-01-18T00:41:00

You can loop through the Controls list for the form, and check "is this a button"?

VB

For Each c As Control In Controls
    Dim b As Button = TryCast(c, Button)
    If b IsNot Nothing Then
       ....
    End If
Next

"sorry i am not understand

For Each c As Control In Controls
Dim b As Button = TryCast(c, Button)
If b IsNot Nothing Then

For tt 1 to 50

mybutton.Name = "Button"&tt

With mybutton
.Text = "test"
.ForeColor = Color.Blue
End With
next

End If
Next

in this way will beDid he??

or

AddHandler Button1.Click, AddressOf secilenbuton
AddHandler Button2.Click, AddressOf secilenbuton
AddHandler Button3.Click, AddressOf secilenbuton
AddHandler Button4.Click, AddressOf secilenbuton
.
.
.
.
.
AddHandler Button50.Click, AddressOf secilenbuton

presentation, I ask,
How can I write the following definition as a short"

No, when you do the For Each loop, every time you get a value of "b" that is not Nothing, it it already a button.
You do not need the "For tt" loop any more.

VB

For Each c As Control In Controls
    Dim b As Button = TryCast(c, Button)
    If b IsNot Nothing Then
        With b
            .Text = "test"
            .ForeColor = Color.Blue
        End With
    End If
Next

Prerak Patel · Accepted Answer · 2011-01-18T01:33:00

Solution 3

I think you this will help. You just have to find the control by name.

For tt 1 to 50
    Dim mybutton As Button = Me.Controls.Find("Button" & tt,True)(0)
    With mybutton
        .Text = "test"
        .Name = "Button" & tt
        .ForeColor = Color.Blue
    End With
next

Posted 18-Jan-11 1:33am

Prerak Patel

Updated 18-Jan-11 3:57am

v2

Comments

vozkan58 18-Jan-11 9:05am

For tt 1 to 50
Dim mybutton As Button = Me.Controls.Find("Button"&tt,True)
With mybutton
.Text = "test"
.Name = "Button"&tt
.ForeColor = Color.Blue
End With
next

To underline the section error is;

Value of type'1-dimensional array of system.windows.forms.controls cannot be converted to system.windows.forms.button

vozkan58 18-Jan-11 9:06am

For tt 1 to 50
Dim mybutton As Button = Me.Controls.Find("Button"&tt,True) 'THIS LINE
With mybutton
.Text = "test"
.Name = "Button"&tt
.ForeColor = Color.Blue
End With
next

To underline the section error is;

Value of type'1-dimensional array of system.windows.forms.controls cannot be converted to system.windows.forms.button

Prerak Patel 18-Jan-11 9:55am

Sorry, it is like this...
Dim mybutton As Button = Me.Controls.Find("Button"&tt,True)(0)

vozkan58 18-Jan-11 10:23am

THANK YOU,
That is all folks

Prerak Patel 18-Jan-11 10:27am

You are welcome. :)