How to get the index of a clicked button in a multidimensional array?

Schmurr 1

Trying to change the value of two variables (one for each dimension of my array) based on the index of a button in that array.

Example:
I click button array[2][6], and it should set my x variable to 2 and y to 6.

How do I get this to work? Can I?

JR 126 Reputation points

2022-06-09T11:41:44.78+00:00

Schmurr,
Following your first post. Here is an example. Just hit any button and it will give you which textbox and the x and y dimensions for it. Small Basic can do multidimensional arrays, but doesn't have the capabilities to handle them as well as the higher level languages do.

IGraphicsWindow.width=graphicswindow.width+70
For x = 1 To 8
For y=1 to 7
z=z+1
If Text.GetLength(z)=1 Then
z=Text.Append(0,z)
endif
array[x][y] = Controls.AddButton("Button"+z, x*70, 20*y )
EndFor
endfor
Controls.buttonclicked=onbuttonclicked

' when button next to array[ax][ay] is clicked, this is in a Sub
Sub onbuttonclicked
TextWindow.WriteLine(Controls.lastclickedbutton)
For x=1 To 8
For y=1 to 7
If array[x][y]=controls.lastclickedbutton Then
ax=x
ay=y
endif
EndFor
EndFor
TextWindow.WriteLine("ax "+ax+" ay "+ay)

' this is where I need to change ax or ay depending on which button is clicked
'Controls.ShowControl(array[ax][ay])
'Controls.ShowControl(array[ax+1][ay])
'Controls.ShowControl(array[ax-1][ay])
'Controls.ShowControl(array[ax][ay+1])
'Controls.ShowControl(array[ax][ay-1])
endsub
Schmurr 1 Reputation point

2022-06-09T18:32:11.323+00:00

This is it, thanks!

6 answers

Small Visual Basic 411

I updated the code to store x and y in the button.Tag property instead of parsing button name. Also, no need for an array to store button names, since we can generate the button name for a given x and y value ob the form form1.buttonX_Y, as sVB references control names to their forms. This is the new code:

   For X = 1 To 8  
      For Y = 1 To 7  
         Btn = Me.AddButton(  
            "Button" + X + "_" + Y,  
            10 + 80 * X,  
            10 + 30 * Y,  
            80,  
            30  
         )  
         Btn.Text = X + "," + Y  
         Btn.Tag = {X, Y}  
         Btn.OnClick = Btn_Click  
         Btn.Visible = False  
      EndFor  
        
      Button1 = GetButton(4, 3)  
      Button1.Visible = True  
   EndFor  
     
     
   Sub Btn_Click()  
      For x = 1 To 8  
         For y = 1 To 7  
            Button1 = GetButton(x, y)  
            Button1.Visible = False  
         Next  
      Next  
        
      Button1 = Event.SenderControl  
      xy = Button1.Tag  
      ax = xy[1]  
      ay = xy[2]  
        
      ShowButtons(  
         {  
            {ax, ay},  
            {ax + 1, ay},  
            {ax - 1, ay},  
            {ax, ay + 1},  
            {ax, ay - 1}  
         }  
      )  
   EndSub  
     
     
   Sub ShowButtons(xyArr)  
      ForEach xy In xyArr  
         Button1 = GetButton(xy[1], xy[2])  
         Button1.Visible = True  
      Next  
   EndSub  
     
     
   Function GetButton(x, y)  
      Return "form1.button" + x + "_" + y  
   EndFunction

Share via

How to get the index of a clicked button in a multidimensional array?

6 answers

Your answer