Dynamic buttons in vb.net using for loop

Question

I want to deal with the arrangement of the buttons. for example i have 10 buttons, i want that after 5 buttons the next 5 buttons will go to the nextline. Here is the code that i have used:

For i = 1 To 10

        Dim btn As New Button

        btn.Width = 40
        btn.Height = 30
        btn.TextAlign = ContentAlignment.MiddleCenter
        If i.ToString.Length = 1 Then
            btn.Text = "B" & "0" & i
        Else
            btn.Text = "B" & i
        End If
        btn.Visible = True
        btn.Tag = "Button" & i
        Panel1.Controls.Add(btn)
        If i <= 5 Then
            btn.Location = New Point(10 * 1 + ((i - 1) * btn.Width), 10)
        Else
            btn.Location = New Point(10 * 1 + ((i - 1) * btn.Width), 10 * 1 + ((i - 1) * btn.Height))
        End If

i get the wrong positioning of the buttons. kindly help me on this. i always get this kind of position. ex:

What i want is this:

* * * * *
* * * * *

additional: How can i do it with backgroundworker...?

which positions do you get?

Alex B.
– Alex B.

2016-10-27 08:38:03 +00:00
Commented Oct 27, 2016 at 8:38 — Alex B.
– Alex B., Commented Oct 27, 2016 at 8:38
can anyone teach me how to do this with backgroundworker

redbull
– redbull

2016-10-28 10:55:36 +00:00
Commented Oct 28, 2016 at 10:55 — redbull
– redbull, Commented Oct 28, 2016 at 10:55

Obsidian Phoenix · Accepted Answer · 2016-10-27 09:04:07Z

2

Assuming you are using winforms, instead of trying to position your buttons by hand, I would suggest you use a FlowLayoutPanel control instead of a straight up panel. Then you can just add them and let the panel manage their positions.

For i = 1 to 10


    Dim btn As New Button

    btn.Width = 40
    btn.Height = 30
    btn.TextAlign = ContentAlignment.MiddleCenter
    If i.ToString.Length = 1 Then
        btn.Text = "B" & "0" & i
    Else
        btn.Text = "B" & i
    End If
    btn.Visible = True
    btn.Tag = "Button" & i

    FlowLayoutPanel1.Controls.Add(btn)
Next

If you must have 5 per line (assuming your panel is wide enough), you can use SetFlowBreak:

For i = 1 to 10

    '.....

    FlowLayoutPanel1.Controls.Add(btn)

    'Use this line if you must have only 5 buttons per line.
    if i Mod 5 = 0 Then FlowLayoutPanel1.SetFlowBreak(btn, true)
Next

answered Oct 27, 2016 at 9:04

Obsidian Phoenix

4,1751 gold badge26 silver badges64 bronze badges

Sign up to request clarification or add additional context in comments.

2 Comments

Obsidian Phoenix Over a year ago

@redbull I would suggest that that should be a different question in its own right, rather than an addendum to this question.

redbull Over a year ago

yes. i already made a seperate question for this one. you can view it here: stackoverflow.com/questions/40304088/…

Bugs · Accepted Answer · 2016-10-27 09:04:33Z

1

Try this:

If i <= 5 Then
    btn.Location = New Point(10 * 1 + ((i - 1) * btn.Width), 10)
Else
    btn.Location = New Point(10 * 1 + ((i - 6) * btn.Width), 10 + btn.Height)
End If

EDIT:

If you wanted to change the loop so that you wanted to multiple lines of buttons then look at this:

Dim noOfButtonsPerLine As Integer = 5
Dim buttonIndex As Integer = 0
Dim y As Integer = 10

For i = 1 To 15

    Dim btn As New Button With {.Height = 40, .Width = 30}

    If buttonIndex = noOfButtonsPerLine Then
        buttonIndex = 1
        y += btn.Height
    Else
        buttonIndex += 1
    End If

    btn.TextAlign = ContentAlignment.MiddleCenter
    If i.ToString.Length = 1 Then
        btn.Text = "B" & "0" & i
    Else
        btn.Text = "B" & i
    End If
    btn.Visible = True
    btn.Tag = "Button" & i
    Panel1.Controls.Add(btn)

    btn.Location = New Point(10 * 1 + ((buttonIndex - 1) * btn.Width), y)

Next

Change the variable noofButtonsPerLine to what suits you. I've gone for 5 as per the question but you can change it and it should adapt.

edited Oct 27, 2016 at 9:04

answered Oct 27, 2016 at 8:48

Bugs

4,4799 gold badges34 silver badges41 bronze badges

2 Comments

redbull Over a year ago

yes this is correct but is their another way of doing this without using the if statement so that even when i change the number of buttons to loop it, it can still show 5 buttons per line.

Bugs Over a year ago

@redbull Updated answer to what I think will suit you better.

Collectives™ on Stack Overflow

Dynamic buttons in vb.net using for loop

2 Answers 2

2 Comments

2 Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

2 Answers 2

2 Comments

2 Comments

Your Answer

Sign up or log in

Post as a guest

Related