Android Question Combining a variable with a button name, if possible how?

[MikeSimpson]

I have created 44 buttons named Button1 to Button44 with the designer.
Is it possible to change a property of a button depending on a variable?
For example if I make a code like this to disable all 44 buttons:

For X = 1 to 44
        ButtonX.Enabled = False
Next

Apperently this is not correct, but is there a way for "ButtonX"?

 

[DonManfred]

Create a list and put all references to your buttons inside this list (after LoadLayout!).
You then can use

dim btn as Button = mybuttonlist.Get(X)
btn.Text = "New Textvalue"
[..]

 

[derez]

You can create the buttons as an array, simple way is by code:
Dim buttons(44) as button
Then you can do

For i= 0 to 43
        Buttons(i).Enabled = False
Next

 

[DonManfred]

You can create the buttons as an array, simple way is by code:
Dim buttons(44) as button
Then you can do

For i= 0 to 43
        Buttons(i).Enabled = False
Next

Yes that works really good for programmatically added buttons. To get this to work with buttons from Designer you need to put references to the right buttons into this array after loading the layout.

Buttons(0) = Button0
Buttons(1) = Button1
Buttons(2) = Button2
[..]
Buttons(43) = Button43

 

[MikeSimpson]

Thank you, DonManfred. As I don't know jet how to handle lists, I went to the suggestion from derez, but was confused how that could work with my already created button.

With your 2nd post you clered this up, so I will try with the references.

Thank you.

 

[DonManfred]

If you encounter problems you can export your project as zip and upload it here.
Please describe what you want to archieve and what errors you get.
We´ll have a look at it then.

 

[MikeSimpson]

Thank you for the offer to look at my code. I am learning, so it is probably not the smartest code, but it is working with no errors, eccept the buttons. If you click on "Alphabet" and then on "Play", I want to disable all 44 buttons so they can't be pressed during the alphabet is playing.
I added the code to the btnPlay_Click, but nothing happend to the buttons.

I did the following:

Dim Buttons(45) As Button


Buttons(1) = Button1
Buttons(2) = Button2
.
.
Buttons(43) = Button43
Buttons(44) = Button44

And to disable the buttons:

Sub btnPlay_Click

    For i = 1 To 44
        Buttons(i).Initialize("Buttons")
        Buttons(i).Enabled = False
    Next
   
    Timer1.Initialize("Timer1", 500)
    Timer1.Enabled = True
    Ende = False
    Playcount = 1
   
End Sub

The file is to big for an attachment, but you can download it here

 

[LucaMs]

In the Designer you should set the same "Event Name" for all the buttons (ex. "BtnEvPlay").
Also, you should use the Tag property of each button setting it to the name of the button (the "order number", in your case).

then

Sub BtnEvPlay_Click
  private btn as Button = Sender
  ' here you could use:
  ' Select case btn.Tag
  '    Case 1
  '    Case 2
  '   ...
  ' End Select
  Timer1...
End Sub

P.S. sorry, I was thinking of something else.

To set a property is ok to use the code DonManfred.

Another way is:
put all and only your buttons in a panel and use:

For Each V As View In Panel1.GetAllViewsRecursive
        Private btn As Button = V
        ' or:
        ' If GetType(V) Is Button Then
        btn.Enabled = False
    Next

 

[udg]

Luca was faster than me..
anyway, please find attached a test app that shows how to use the GetAllViewRecursive function.

For Each b As Button In Activity.GetAllViewsRecursive
    If b.Tag <> "untouchable" Then b.Enabled=False
Next

I use a specific Tag value for those buttons that should never be disabled.
If your buttons are on a panel, just substitute Panelx to Activity in above code.

 

[klaus]

Attached you find a project where the buttons are added in the code, which is much easier.
The Buttons are in an array.
You should verify the characters in the buttons, I put them in a string array to add them easily to the buttons.
I added a new empty panel for the buttons, but I left the original one with the buttons in the layout file, renamed it to pnlAlpha1 and set it to invisible and. You should remove it after testing.

This is the code to add the buttons:

Sub InitButtons
    Dim Row, Col, i As Int
   
    pnlAlpha.Top = 36%y
    pnlAlpha.Height = 64%y
    For Row = 0 To RowNb - 1
        For Col = 0 To ColNb - 1
            i = Row * ColNb + Col
            Buttons(i).Initialize("btnAlpha")
            pnlAlpha.AddView(Buttons(i), Col * btnWidth, Row * btnHeight, btnWidth, btnHeight)
            Buttons(i).Text = btnText(i)
            Buttons(i).Tag = i + 1
            Buttons(i).TextSize = 28
            Buttons(i).Typeface = Typeface.DEFAULT_BOLD
        Next
    Next
End Sub

You see the other modification in the files below.

As the whole zip file is too big I post only the changed files.
You must rename ThaiLeseTrainer.txt to ThaiLeseTrainer.b4a.

 

[MikeSimpson]

Thank you very much.
I will have a closer look later and study your solution.

 

[LucaMs]

So maybe I'm not wrong when I "say":
http://www.b4x.com/android/forum/threads/getview-by-name.44195/

 

[klaus]

The Buttons are dimed in Globals with Dim Buttons(44) As Buttons, so the names are known.

 

[LucaMs]

The Buttons are dimed in Globals with Dim Buttons(44) As Buttons, so the names are known.

Yes, I was talking in general, not of these excellent examples.
In general, we feel the lack of this possibility.

 

[klaus]

In general, we feel the lack of this possibility.

I have no trouble with this .