Solved

Button Array in Visual Basic 2008

Posted on 2008-10-27
7
2,765 Views
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.
0
Comment
Question by:don_rowlett
  • 2
  • 2
  • 2
  • +1
7 Comments
 
LVL 8

Expert Comment

by:mkosbie
Comment Utility
Use Me.FindControl.
For i=0 To 41

   buttonArr(i) = CType(Me.FindControl("btn" & i), Button)

Next

Open in new window

0
 
LVL 85

Expert Comment

by:Mike Tomlinson
Comment Utility
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?...
0
 

Author Comment

by:don_rowlett
Comment Utility
I am using VB.net 2008 and winforms.
0
IT, Stop Being Called Into Every Meeting

Highfive is so simple that setting up every meeting room takes just minutes and every employee will be able to start or join a call from any room with ease. Never be called into a meeting just to get it started again. This is how video conferencing should work!

 
LVL 48

Expert Comment

by:jpaulino
Comment Utility
You can use a generics list to add all the buttons as an array.
Dim button As New List(Of Button)

button.Add(Me.Button1)

button.Add(Me.Button2)

button.Add(Me.Button3)

button.Add(Me.Button4)
 

' Then you can use

button(1).Enabled = False ' Disables the button 2

Open in new window

0
 
LVL 48

Assisted Solution

by:jpaulino
jpaulino earned 200 total points
Comment Utility
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

        Next

Open in new window

0
 
LVL 85

Accepted Solution

by:
Mike Tomlinson earned 300 total points
Comment Utility
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

        Next

    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

0
 

Author Closing Comment

by:don_rowlett
Comment Utility
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.
0

Featured Post

Better Security Awareness With Threat Intelligence

See how one of the leading financial services organizations uses Recorded Future as part of a holistic threat intelligence program to promote security awareness and proactively and efficiently identify threats.

Join & Write a Comment

Suggested Solutions

This article describes relatively difficult and non-obvious issues that are likely to arise when creating COM class in Visual Studio and deploying it by professional MSI-authoring tools. It is assumed that the reader is already familiar with the cla…
This document covers how to connect to SQL Server and browse its contents.  It is meant for those new to Visual Studio and/or working with Microsoft SQL Server.  It is not a guide to building SQL Server database connections in your code.  This is mo…
Get a first impression of how PRTG looks and learn how it works.   This video is a short introduction to PRTG, as an initial overview or as a quick start for new PRTG users.
When you create an app prototype with Adobe XD, you can insert system screens -- sharing or Control Center, for example -- with just a few clicks. This video shows you how. You can take the full course on Experts Exchange at http://bit.ly/XDcourse.

763 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

Need Help in Real-Time?

Connect with top rated Experts

10 Experts available now in Live!

Get 1:1 Help Now