Append a variable to a button name

[Gary W]

I have generated a random number between 1 to 9, each number corresponding to each of 9 buttons.

How can I append the random number to a button, like so:

visual basic code: Function generate() As Integer
Dim choose As Integer = Int(Rnd() * 9 + 1)
Button & "choose" & .Text = "text here"
End Function



The Button & "choose" part is incorrect, I know, but it's just to give you a general idea of what I would like to achieve.

Each of my 9 buttons are named from Button1 to Button9.

Any suggestions on how I could do this?

[RichardAtherton]

If its only between 0 and 9, use the select case construct

eg
Select RandomNumber

case 0

Button1.text = whatever

case 1
Button2. text = some other text
.....
end case

[robbedaya]

Dim array(8) As Button
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        array(0) = Button1
        array(1) = Button2
        array(2) = Button3
        array(3) = Button4
        array(4) = Button5
        array(5) = Button6
        array(6) = Button7
        array(7) = Button8
        array(8) = Button9
    End Sub
 
    Private Sub Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click, Button3.Click, _
                                                                                                    Button4.Click, Button5.Click, Button6.Click, _
                                                                                                    Button7.Click, Button8.Click, Button9.Click
        Dim choose As Integer = Int(Rnd() * 9 + 1)
        array(choose).Text = "changed text"
    End Sub

[Gary W]

Thanks robbedaya, it works

[Edneeis]

As a side note you could also build the array like this:

Dim btnArray() As Button={Button1,Button2,Button3,Button4,
                                           Button5,Button6,Button7,Button8,
                                           Button9}
 
    Private Sub Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles _
 Button1.Click, Button2.Click, Button3.Click, _
 Button4.Click, Button5.Click, Button6.Click, _
 Button7.Click, Button8.Click, Button9.Click
        Dim choose As Integer = Int(Rnd() * 9 + 1)
        btnArray(choose).Text = "changed text"
    End Sub

[Gary W]

I've got

Private Sub Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) 
                            Handles Button1.Click, Button2.Click, Button3.Click, _
                                                                                                  Button4.Click, Button5.Click, Button6.Click, _
                                                                                                  Button7.Click, Button8.Click, Button9.Click
 
    Dim choose As Integer = Int(Rnd() * 9 + 1)
    'If button(choose) Is "" Then
    button(choose).Text = "X"
    'End If
  End Sub

How can I make it so that when one of the buttons is clicked, it will change its text? I'm not sure how to do this, because this sub handles all the buttons.

[Cander]

sender is a reference to the button that was clicked

sender.Text = "beauh"

better yet, cast it to a button, for the ske of neatness

Ctype(sender, Button).Text = "beauh"

[Gary W]

Originally posted by Cander
sender is a reference to the button that was clicked

sender.Text = "beauh"

better yet, cast it to a button, for the ske of neatness

Ctype(sender, Button).Text = "beauh"

Thanks for the help!

[robbedaya]

Originally posted by Cander
Ctype(sender, Button).Text = "beauh"

the Ctype function is a VB6 function that is stil supported in .NET. You shouldn't use the VB6 functions in .NET

And your sugestion doest do what he Gary wants. He doesn't want to change the text of the button he clicked but, one random chosen other button.

[PeteD]

Originally posted by robbedaya
the Ctype function is a VB6 function that is stil supported in .NET. You shouldn't use the VB6 functions in .NET

Oh no its not!

[robbedaya]

if you want to make sender to be a button again, you should use this: (this is the .NET-way)

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim btn As Button = sender
        btn.Text = "test"
    End Sub

[PeteD]

That will cause a compile error if Option Strict is on!

[Gary W]

Thanks for the help everyone, I got the program to work exactly how I want to.

Thanks again!