[Dave S]

I was wondering if there is a way to determine the mouse position when a button is pressed, without using the button click event. Imagine a grid of 100 buttons, one of them is pressed.
Do I need to add code to every button click event?

Thanks
Dave

[Cassio]

I dont know if this is what you mean, but if want to use the same code for every button you can do this:

Private Sub ClickButtons(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click, Button3.Click

'code here

End Sub

[Dave S]

That is cool, but I also need feedback so I can figure out which button was pressed.

Use the sender that is passed into that function:
For ex.

If sender is Button1 Then
       MessageBox.show("Button1 was clicked")
End If

[Dave S]

Then I am better off using the click event for each button. I was hoping to condense the code a bit.

[Nerseus]

Depending on what you're trying to accomplish, there could be an easier solution. Maybe each button has some data associated to it. You could put the data in the Tag property of each button and using the sender parameter, pull out the data of whatever button was clicked. If you tell us more about what you're trying to do, specifically, with each button's click event, we can help more.

-Ner

[Dave S]

I am im the process of programming a minesweeper type game for a final exam. I don't want a lot of help, but I am thinking there must be a elegant way to determine which button is pressed without adding code to each of the 100 buttons.
Maybe this .net isn't as powerful as I thought it was.

[Dave S]

Thanks Cassio, you da man
[vb]
Private Sub btn1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles btn1.MouseDown, btn2.MouseDown, btn3.MouseDown
Dim pintTemp As System.Object
pintTemp = sender
If e.Button = MouseButtons.Right Then
If pintTemp.ImageIndex = 2 Then
pintTemp.ImageIndex = 0
Else
pintTemp.ImageIndex += 1
End If
End If
'left click stuff here
End Sub
[vb]

[hog]

When I use multiple handlers I use code like this to determine which control called the routine:

Private Sub ClickButtons(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click, Button3.Click

Dim ctlSender as Button = DirectCast(sender, Button)

Select Case ctlSender.Name

   Case "Button1"

       ' code

   Case "Button"
    
       ' code

End Select

End Sub

[Heiko]

You may also add the handlers dynamically:

'P S E U D O C O D E

Private Sub AddHandlers()
Dim btnType As Type = GetType(System.Windows.Forms.Button)
Dim aCtl as Control

For each aCtl in me.Contols
   If btnType.IsInstanceOfType(aCtl) Then
      AddHandler aCtl.ButtonClick, AddressOf me.ButtonClick
    end if
Next aCtl

End sub

Private Sub ButtonClick (Sender as Object, e as System.EventArgs)
'Here you can possibly determine the x/y coordinates of the mousepointer! This will probably make your code much more straightforward
DoStuff
End sub

[Dave S]

Thanks for the great ideas!
Dave