Multiple Button Clicks Handled By One Sub

Apocolypse2005 · May 13th, 2009, 05:01 AM

Hi,
I'm making an EPOS (Electronic Point of Sale) for a pub and it's all going to be touch screen inputting. So i will have alot of buttons, so i thought and i'm pretty sure i have made one sub for all like below

Code:

Private Sub Multiple_Button(ByVal sender As Button, ByVal e As System.EventArgs) Handles Button1.Click . . etc . . 'All buttons here'Any Code Here
End Sub

But vb doesn't like it what so ever.

Any Ideas?

gbianchi · May 13th, 2009, 07:44 AM

2 things.

What error do you receive??

Also, if you are having a lot of buttons, I would strongly suggest against it, Or you will do a big select case to know what to do in each case???

alliancejhall · May 13th, 2009, 08:53 AM

Your issue is your handler

You are specifying the handler in the procedure when you should be adding the handler to the object.

Instead of this:

Code:

Private Sub Multiple_Button(ByVal sender As Button, ByVal e As System.EventArgs) Handles Button1.Click

do this

Code:

Private Sub Multiple_Button(ByVal sender As Button, ByVal e As System.EventArgs)

and then use addhandler to add a handler to the buttons you want to use this sub.

you can do this in the load

Code:

addhandler Button1.Click, addressof Multiple_Button
addhandler Button2.Click, addressof Multiple_Button

Apocolypse2005 · May 19th, 2009, 06:58 AM

Nope nope nope, your all wrong. Ha, nah its just that you dim the sender as an object NOT button then inside the function because i know that they're all buttons then i can make variable inside the function by type of Button. then equate the sender to the button then from there on i can manipulate it how i like!

Thanks for the comments though, they did jog some memory!

Cheers