Sharing common events

[jcrouse]

I am trying to share mouse events (click, up, down, move and the such) for
30 different label controls: Here is my code:

Dim myLabel as Label

Private Sub lblP1JoyUp_Mous eDown(ByVal sender As System.Object, ByVal e As
System.Windows. Forms.MouseEven tArgs) Handles lblP1JoyUp.Mous eDown

myLabel = lblP1JoyUp

myLabelMouseDow n()

End Sub

Public Sub myLabelMouseDow n()

If e.Button = MouseButtons.Le ft Then

My code here

ElseIf e.Button = MouseButtons.Ri ght Then

My code here

End If

End Sub
The problem is that it tells me "e" isn't declared. Am I missing something
with my handlers? I thought I had this working at one time with help from
Cor but can't find it no how.

Thanks,
John

[jcrouse]

I seem to have found Cor's example and a post from Jay. I'll give it another
go.

John

"jcrouse" <me> wrote in message
news:ur******** ******@TK2MSFTN GP09.phx.gbl...

I am trying to share mouse events (click, up, down, move and the such) for
30 different label controls: Here is my code:

Dim myLabel as Label

Private Sub lblP1JoyUp_Mous eDown(ByVal sender As System.Object, ByVal e As
System.Windows. Forms.MouseEven tArgs) Handles lblP1JoyUp.Mous eDown

myLabel = lblP1JoyUp

myLabelMouseDow n()

End Sub

Public Sub myLabelMouseDow n()

If e.Button = MouseButtons.Le ft Then

My code here

ElseIf e.Button = MouseButtons.Ri ght Then

My code here

End If

End Sub
The problem is that it tells me "e" isn't declared. Am I missing something
with my handlers? I thought I had this working at one time with help from
Cor but can't find it no how.

Thanks,
John

[Imran Koradia]

>

Private Sub lblP1JoyUp_Mous eDown(ByVal sender As System.Object, ByVal e As
System.Windows. Forms.MouseEven tArgs) Handles lblP1JoyUp.Mous eDown

myLabel = lblP1JoyUp

myLabelMouseDow n()
change this to: myLabelMouseDow n(e)

End Sub
Public Sub myLabelMouseDow n()
and this to: Public Sub myLabelMouseDow n(ByVal e as
System.Windows. Forms.MouseEven tArgs)

If e.Button = MouseButtons.Le ft Then

My code here

ElseIf e.Button = MouseButtons.Ri ght Then

My code here

End If

End Sub
The problem is that it tells me "e" isn't declared.

That's exactly what that means. In the procedure myLabelMouseDow n 'e' hasn't
been declared anywhere.
hope this helps..
Imran.

[Herfried K. Wagner [MVP]]

* "jcrouse" <me> scripsit:

I am trying to share mouse events (click, up, down, move and the such) for
30 different label controls: Here is my code:

Dim myLabel as Label

Private Sub lblP1JoyUp_Mous eDown(ByVal sender As System.Object, ByVal e As
System.Windows. Forms.MouseEven tArgs) Handles lblP1JoyUp.Mous eDown

myLabel = lblP1JoyUp

myLabelMouseDow n()

End Sub

Instead of adding one handler per control, add a common handler. To do
that, add all 30 controls to the 'Handles...' list at the procedure
head's end ('Handles Label1.MouseDow n, Handles Label2.MouseDow n, ...'),
or use 'AddHandler to add the common handler to all of the controls'
'MouseDown' event. Then you can check the event handler's 'sender'
parameter to see which control caused the event:

\\\
Dim SourceControl As Control = DirectCast(send er, Control)
....
///

--
M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://dotnet.mvps.org/dotnet/faqs/>

[jcrouse]

Got it resolved!

Thanks for your patience guys,
John
"jcrouse" <me> wrote in message
news:ur******** ******@TK2MSFTN GP09.phx.gbl...

I am trying to share mouse events (click, up, down, move and the such) for
30 different label controls: Here is my code:

Dim myLabel as Label

Private Sub lblP1JoyUp_Mous eDown(ByVal sender As System.Object, ByVal e As
System.Windows. Forms.MouseEven tArgs) Handles lblP1JoyUp.Mous eDown

myLabel = lblP1JoyUp

myLabelMouseDow n()

End Sub

Public Sub myLabelMouseDow n()

If e.Button = MouseButtons.Le ft Then

My code here

ElseIf e.Button = MouseButtons.Ri ght Then

My code here

End If

End Sub
The problem is that it tells me "e" isn't declared. Am I missing something
with my handlers? I thought I had this working at one time with help from
Cor but can't find it no how.

Thanks,
John