My buttons won't work :(

Question

Again, I have failed and need help.

I tried to "hook-up" my buttons with events, but I can't get it to work.

Here is my source code:

GraphicsWindow.Title = "Random Buttons"
GW = "20"
GH = "20"
GW=GraphicsWindow.Width
GH=GraphicsWindow.Height
DW=Desktop.Width
DH=Desktop.Height
GraphicsWindow.Top = (DH - GH) / 2
GraphicsWindow.Left = (DW - GW) / 2

GraphicsWindow.BrushColor = "Black"
GraphicsWindow.DrawText(225, 0, "Please click a button below:")
GraphicsWindow.BrushColor = "Blue"
P1 = Controls.AddButton("Person 1", 30, 30)
GraphicsWindow.BrushColor = "Green"
P2 = Controls.AddButton("Person 2", 260, 30)
GraphicsWindow.BrushColor = "Red"
P3 = Controls.AddButton("Person 3", 485, 30)
Controls.SetSize(P1, 100, 67)
Controls.SetSize(P2, 100, 67)
Controls.SetSize(P3, 100, 67)

Controls.ButtonClicked = OnButtonClicked
Sub OnButtonClicked
  buttonClicked = Controls.LastClickedButton
  If buttonClicked = "P1" Then
    TextWindow.Write("You clicked Person 1's button!")
  ElseIf buttonClicked = "P2" Then
    TextWindow.Write("You clicked Person 2's button!")
  ElseIf buttonClicked = "P3" Then
    TextWindow.Write("You clicked Person 3's button!")
  EndIf
EndSub

I want to expand this soon, but can't until the buttons can act right on the event of being clicked.

Please help! Any and all appreciated!

---

------------------------------------------------------------------------------------------

Answer 1

What about this?

GraphicsWindow.Title = "Buttons"
button1 = Controls.AddButton("Button 1", 1, 1)
button2 = Controls.AddButton("Button 2", 80, 1)
Controls.ButtonClicked = ButtonClick
Sub ButtonClick
  pressedButton = Controls.LastClickedButton
  If pressedButton = button1 Then
    GraphicsWindow.ShowMessage("You clicked button 1!", "Button 1")
  EndIf
  If pressedButton = button2 Then
    GraphicsWindow.ShowMessage("You clicked button 2!", "Button 2")
  EndIf
  EndSub

Good luck! :)

---

-Noah J. Buscher "Nothing is Impossible Until Proven Impossible."

Answer 2

You just don't need the quotes! :)

---

-Noah J. Buscher "Nothing is Impossible Until Proven Impossible."

Answer 3

Oh! {smack forehead} That should help! Thank you!

---

------------------------------------------------------------------------------------------

Answer 4

Thanks! Do you mind posting it as the answer?

---

-Noah J. Buscher "Nothing is Impossible Until Proven Impossible."

Answer 5

There, just removed the quotes and it works! I don't use buttons or GraphicsWindow all that often, so I forgot the proper arguments and setup for it.

Thanks again, Noah!

---

------------------------------------------------------------------------------------------

Answer 6

Anytime! :)

---

-Noah J. Buscher "Nothing is Impossible Until Proven Impossible."

Answer 7

Hi Joman!

As I somewhat uselessly & recently did in this thread, I prefer to use button captions instead of a var containing a button's name.

So, instead of a direct button = Controls.LastClickedButton, I use button = Controls.GetButtonCaption( Controls.LastClickedButton ).

This way, I can check a button using the caption displayed in it!

I even go without assigning any variables to store a button's name!  Just an extra tip!  :-P

---

Click on "Propose As Answer" if some post solves your problem or "Vote As Helpful" if some post has been useful to you! (^_^)

Answer 8

I very recently also just figured out that you could do that as also!

---

-Noah J. Buscher "Nothing is Impossible Until Proven Impossible."

Answer 9

That would make coding faster and easier! Thanks for the tip, GoToLoop!

---

------------------------------------------------------------------------------------------