Button Array in Visual Basic 2008

Posted on 2008-10-27
Last Modified: 2013-11-26
How to I add buttons to an array.  I have 42 buttons on a form labeled btn1 through btn42.  I want to use a loop to add the buttons to an array.  I can add them one at a time
button(0) = me.btn1
button(1) = me.btn2
button(2) = me.btn3 and so on.

I can use a subscript for the button variable in a loop but how do I increment through the btn1 through btn42?
Once I get the buttons in an array, it will be much easier to write code to deal with the button presses.  Thank you for any information you can give me.
Question by:don_rowlett
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 2
  • 2
  • 2
  • +1

Expert Comment

ID: 22817988
Use Me.FindControl.
For i=0 To 41
   buttonArr(i) = CType(Me.FindControl("btn" & i), Button)

Open in new window

LVL 86

Expert Comment

by:Mike Tomlinson
ID: 22818009
Are you working with WebForms or WinForms?...

Generally it's easier to use multiple Handles clauses or use AddHandler() to wire up the buttons instead of creating an actual array.  Are you coming from VB6?...

Author Comment

ID: 22818037
I am using 2008 and winforms.
What does it mean to be "Always On"?

Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.

LVL 48

Expert Comment

ID: 22818402
You can use a generics list to add all the buttons as an array.
Dim button As New List(Of Button)
' Then you can use
button(1).Enabled = False ' Disables the button 2

Open in new window

LVL 48

Assisted Solution

jpaulino earned 200 total points
ID: 22818416
To use an increment you can do (check snippet)
BUT I have to agree with Idle_Mind. This is VB6 way and .NET offers better handlings.

        For x As Byte = 1 To 42
            Dim ctrl() As Control = Controls.Find("Button" & x, True)
            If ctrl.Length = 1 Then
                Dim btn As Button = DirectCast(ctrl(0), Button)
                btn.Enabled = False
            End If

Open in new window

LVL 86

Accepted Solution

Mike Tomlinson earned 300 total points
ID: 22818433
Here is how I would do it with that many buttons:
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim btn As Button
        Dim matches() As Control
        For i As Integer = 1 To 42
            matches = Me.Controls.Find("btn" & i, True)
            If matches.Length > 0 AndAlso TypeOf matches(0) Is Button Then
                btn = DirectCast(matches(0), Button)
                AddHandler btn.Click, AddressOf btn_Click
            End If
    End Sub
    Private Sub btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim btn As Button = DirectCast(sender, Button)
        Dim index As Integer = Integer.Parse(btn.Name.Substring(3))
        MessageBox.Show("Click: " & btn.Name & vbCrLf & "Index: " & index)
    End Sub
End Class

Open in new window


Author Closing Comment

ID: 31510576
Thank you very much for your help.  The final solution works great.  I really like the way you added every button to the button click event.

Featured Post

What is a Denial of Service (DoS)?

A DoS is a malicious attempt to prevent the normal operation of a computer system. You may frequently see the terms 'DDoS' (Distributed Denial of Service) and 'DoS' used interchangeably, but there are some subtle differences.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

The ECB site provides FX rates for major currencies since its inception in 1999 in the form of an XML feed. The files have the following format (reducted for brevity) (CODE) There are three files available HERE (…
This article shows how to deploy dynamic backgrounds to computers depending on the aspect ratio of display
In this video, viewers are given an introduction to using the Windows 10 Snipping Tool, how to quickly locate it when it's needed and also how make it always available with a single click of a mouse button, by pinning it to the Desktop Task Bar. Int…
Monitoring a network: why having a policy is the best policy? Michael Kulchisky, MCSE, MCSA, MCP, VTSP, VSP, CCSP outlines the enormous benefits of having a policy-based approach when monitoring medium and large networks. Software utilized in this v…

635 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question