Go Premium for a chance to win a PS4. Enter to Win

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 2821
  • Last Modified:

Button Array in Visual Basic 2008

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
don_rowlett
Asked:
don_rowlett
  • 2
  • 2
  • 2
  • +1
2 Solutions
 
mkosbieCommented:
Use Me.FindControl.
For i=0 To 41
   buttonArr(i) = CType(Me.FindControl("btn" & i), Button)
Next

Open in new window

0
 
Mike TomlinsonMiddle School Assistant TeacherCommented:
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
 
don_rowlettAuthor Commented:
I am using VB.net 2008 and winforms.
0
Learn Veeam advantages over legacy backup

Every day, more and more legacy backup customers switch to Veeam. Technologies designed for the client-server era cannot restore any IT service running in the hybrid cloud within seconds. Learn top Veeam advantages over legacy backup and get Veeam for the price of your renewal

 
jpaulinoCommented:
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
 
jpaulinoCommented:
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
 
Mike TomlinsonMiddle School Assistant TeacherCommented:
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
 
don_rowlettAuthor Commented:
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

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.

  • 2
  • 2
  • 2
  • +1
Tackle projects and never again get stuck behind a technical roadblock.
Join Now