same sub, multiple control click events

[cj]

I would like to have menu items a main menu bar that represent the days
of the week. When you click on them they alternate from checked to
unchecked. Right now I have 7 subs that look like this one:

Private Sub SunMenuItem_Cli ck(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles SunMenuItem.Cli ck
If SunMenuItem.Che cked Then
SunMenuItem.Che cked = False
Else
SunMenuItem.Che cked = True
End If
End Sub

I would like to use the same sub to handle all 7 menu items. How would
I write this?

[GhostInAK]

Hello cj,

private sub Form_Load(...)

AddHandler MenuItem1.Click , AddressOf MenuItemClickHa ndler
AddHandler MenuItem2.Click , AddressOf MenuItemClickHa ndler
...
AddHandler MenuItemN.Click , AddressOf MenuItemClickHa ndler

End Sub

Private Sub MenuItemClickHa ndler(byval sender as object, byval e as EventArgs)

Dim tMenuItem as MenuItem = sender
tMenuItem.Check ed = Not tMenuItem.Check ed

End Sub

I would like to have menu items a main menu bar that represent the
days of the week. When you click on them they alternate from checked
to unchecked. Right now I have 7 subs that look like this one:

Private Sub SunMenuItem_Cli ck(ByVal sender As System.Object, ByVal e
As
System.EventArg s) Handles SunMenuItem.Cli ck
If SunMenuItem.Che cked Then
SunMenuItem.Che cked = False
Else
SunMenuItem.Che cked = True
End If
End Sub
I would like to use the same sub to handle all 7 menu items. How
would I write this?

[M. Posseth]

Private Sub SunMenuItem_Cli ck(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles SunMenuItem.Cli ck, SunMenuItem2.Cl ick,
SunMenuItem3.Cl ick, SunMenuItem4.Cl ick well you get the point i guess :-)
If SunMenuItem.Che cked Then
SunMenuItem.Che cked = False
Else
SunMenuItem.Che cked = True
End If
End Sub

regards

Michel Posseth [MCP]

"cj" wrote:

I would like to have menu items a main menu bar that represent the days
of the week. When you click on them they alternate from checked to
unchecked. Right now I have 7 subs that look like this one:

Private Sub SunMenuItem_Cli ck(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles SunMenuItem.Cli ck
If SunMenuItem.Che cked Then
SunMenuItem.Che cked = False
Else
SunMenuItem.Che cked = True
End If
End Sub

I would like to use the same sub to handle all 7 menu items. How would
I write this?

[cj]

yes but my goal is not to have all of them change SunMenuItem. It needs
to change only the one that was clicked.

Private Sub DaysMenuItem_Cl ick(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles SunMenuItem.Cli ck, MonMenuItem.Cli ck,
TueMenuItem.Cli ck, WedMenuItem.Cli ck, ThuMenuItem.Cli ck,
FriMenuItem.Cli ck, SatMenuItem.Cli ck
'how do I use sender here to check or uncheck the item clicked?
End Sub
M. Posseth wrote:

Private Sub SunMenuItem_Cli ck(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles SunMenuItem.Cli ck, SunMenuItem2.Cl ick,
SunMenuItem3.Cl ick, SunMenuItem4.Cl ick well you get the point i guess :-)
If SunMenuItem.Che cked Then
SunMenuItem.Che cked = False
Else
SunMenuItem.Che cked = True
End If
End Sub

regards

Michel Posseth [MCP]

"cj" wrote:

I would like to have menu items a main menu bar that represent the days
of the week. When you click on them they alternate from checked to
unchecked. Right now I have 7 subs that look like this one:

Private Sub SunMenuItem_Cli ck(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles SunMenuItem.Cli ck
If SunMenuItem.Che cked Then
SunMenuItem.Che cked = False
Else
SunMenuItem.Che cked = True
End If
End Sub

I would like to use the same sub to handle all 7 menu items. How would
I write this?

[cj]

Ok, I tried in debug to see what sender is
? sender
{System.Windows .Forms.MenuItem }
[System.Windows. Forms.MenuItem]: {System.Windows .Forms.MenuItem }

but it doesn't explain much to me. After running the first line of your
code I tried to see what tmenuitem is

? tmenuitem {System.Windows .Forms.MenuItem }
BarBreak: False
Break: False
Checked: False
Container: Nothing
DefaultItem: False
Enabled: True
FindHandle: 0
FindShortcut: 1
Handle: 2009465263
Index: 3
IsParent: False
MdiList: False
MdiListItem: Nothing
MenuItems: {System.Windows .Forms.Menu.Men uItemCollection }
MergeOrder: 0
MergeType: Add
Mnemonic: Nothing
OwnerDraw: False
Parent: {System.Windows .Forms.MenuItem }
RadioCheck: False
Shortcut: None
ShowShortcut: True
Site: Nothing
Text: "Wednesday"
Visible: True

That's a lot more info. Don't know why I couldn't say ? sender but...
If Sub MenuItem is getting the sender by value and then it would seem we
are making a (well is it new) instance of a menu item and giving it the
same properties of the sender. Well I just don't get how it sets the
original clicked menuitem on and off.

GhostInAK wrote: Hello cj,

private sub Form_Load(...)

AddHandler MenuItem1.Click , AddressOf MenuItemClickHa ndler
AddHandler MenuItem2.Click , AddressOf MenuItemClickHa ndler
...
AddHandler MenuItemN.Click , AddressOf MenuItemClickHa ndler

End Sub

Private Sub MenuItemClickHa ndler(byval sender as object, byval e as
EventArgs)

Dim tMenuItem as MenuItem = sender
tMenuItem.Check ed = Not tMenuItem.Check ed

End Sub

I would like to have menu items a main menu bar that represent the
days of the week. When you click on them they alternate from checked
to unchecked. Right now I have 7 subs that look like this one:

Private Sub SunMenuItem_Cli ck(ByVal sender As System.Object, ByVal e
As
System.EventArg s) Handles SunMenuItem.Cli ck
If SunMenuItem.Che cked Then
SunMenuItem.Che cked = False
Else
SunMenuItem.Che cked = True
End If
End Sub
I would like to use the same sub to handle all 7 menu items. How
would I write this?

[cj]

I love the way you change the menu item checked on an off
(tMenuItem.Chec ked = Not tMenuItem.Check ed) but I don't get the add
handler lines and I'm not sure how the sender is working in your
example. Perhaps you can help me understand from this starting point.

Private Sub DaysMenuItem_Cl ick(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles SunMenuItem.Cli ck, MonMenuItem.Cli ck,
TueMenuItem.Cli ck, WedMenuItem.Cli ck, ThuMenuItem.Cli ck,
FriMenuItem.Cli ck, SatMenuItem.Cli ck
'how do I use sender here to check or uncheck the item clicked?
End Sub

GhostInAK wrote:

Hello cj,

private sub Form_Load(...)

AddHandler MenuItem1.Click , AddressOf MenuItemClickHa ndler
AddHandler MenuItem2.Click , AddressOf MenuItemClickHa ndler
...
AddHandler MenuItemN.Click , AddressOf MenuItemClickHa ndler

End Sub

Private Sub MenuItemClickHa ndler(byval sender as object, byval e as
EventArgs)

Dim tMenuItem as MenuItem = sender
tMenuItem.Check ed = Not tMenuItem.Check ed

End Sub

I would like to have menu items a main menu bar that represent the
days of the week. When you click on them they alternate from checked
to unchecked. Right now I have 7 subs that look like this one:

Private Sub SunMenuItem_Cli ck(ByVal sender As System.Object, ByVal e
As
System.EventArg s) Handles SunMenuItem.Cli ck
If SunMenuItem.Che cked Then
SunMenuItem.Che cked = False
Else
SunMenuItem.Che cked = True
End If
End Sub
I would like to use the same sub to handle all 7 menu items. How
would I write this?

[Terry]

Hi Again,
First just a thought - you should probably only have one thread for this
discussion going at one time, IMHO.
The AddHandler is a way of 'connecting' an event to a routine to handle
it at runtime. Note that in Ghost's example that the MenuItemClickHa ndler
has no 'handles' clause at the end of it (unlike the other solutions you have
seen). He connects the event to the routine at run time through the use of
AddHandler.
Hope this helps.
--
Terry
"cj" wrote:

I love the way you change the menu item checked on an off
(tMenuItem.Chec ked = Not tMenuItem.Check ed) but I don't get the add
handler lines and I'm not sure how the sender is working in your
example. Perhaps you can help me understand from this starting point.

Private Sub DaysMenuItem_Cl ick(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles SunMenuItem.Cli ck, MonMenuItem.Cli ck,
TueMenuItem.Cli ck, WedMenuItem.Cli ck, ThuMenuItem.Cli ck,
FriMenuItem.Cli ck, SatMenuItem.Cli ck
'how do I use sender here to check or uncheck the item clicked?
End Sub

GhostInAK wrote:

Hello cj,

private sub Form_Load(...)

AddHandler MenuItem1.Click , AddressOf MenuItemClickHa ndler
AddHandler MenuItem2.Click , AddressOf MenuItemClickHa ndler
...
AddHandler MenuItemN.Click , AddressOf MenuItemClickHa ndler

End Sub

Private Sub MenuItemClickHa ndler(byval sender as object, byval e as
EventArgs)

Dim tMenuItem as MenuItem = sender
tMenuItem.Check ed = Not tMenuItem.Check ed

End Sub

I would like to have menu items a main menu bar that represent the
days of the week. When you click on them they alternate from checked
to unchecked. Right now I have 7 subs that look like this one:

Private Sub SunMenuItem_Cli ck(ByVal sender As System.Object, ByVal e
As
System.EventArg s) Handles SunMenuItem.Cli ck
If SunMenuItem.Che cked Then
SunMenuItem.Che cked = False
Else
SunMenuItem.Che cked = True
End If
End Sub
I would like to use the same sub to handle all 7 menu items. How
would I write this?

[Michel Posseth [MCP]]

cast sender to the sending object type and read the name property , this way
you can handle every control individual
regards

Michel Posseth [MCP]
"cj" <[e-mail] am> schreef in bericht
news:uW******** ******@TK2MSFTN GP02.phx.gbl...

yes but my goal is not to have all of them change SunMenuItem. It needs
to change only the one that was clicked.

Private Sub DaysMenuItem_Cl ick(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles SunMenuItem.Cli ck, MonMenuItem.Cli ck,
TueMenuItem.Cli ck, WedMenuItem.Cli ck, ThuMenuItem.Cli ck,
FriMenuItem.Cli ck, SatMenuItem.Cli ck
'how do I use sender here to check or uncheck the item clicked?
End Sub
M. Posseth wrote:

Private Sub SunMenuItem_Cli ck(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles SunMenuItem.Cli ck, SunMenuItem2.Cl ick,
SunMenuItem3.Cl ick, SunMenuItem4.Cl ick well you get the point i guess :-)
If SunMenuItem.Che cked Then
SunMenuItem.Che cked = False
Else
SunMenuItem.Che cked = True
End If
End Sub

regards Michel Posseth [MCP]

"cj" wrote:

I would like to have menu items a main menu bar that represent the days
of the week. When you click on them they alternate from checked to
unchecked. Right now I have 7 subs that look like this one:

Private Sub SunMenuItem_Cli ck(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles SunMenuItem.Cli ck
If SunMenuItem.Che cked Then
SunMenuItem.Che cked = False
Else
SunMenuItem.Che cked = True
End If
End Sub

I would like to use the same sub to handle all 7 menu items. How would
I write this?

[cj]

Agree on the thread but multiple people answer my question and I'm just
writing back to each of them instead of picking only one persons response.

what would be the advantage of using addhandler vs handles clause?
Terry wrote:

Hi Again,
First just a thought - you should probably only have one thread for this
discussion going at one time, IMHO.
The AddHandler is a way of 'connecting' an event to a routine to handle
it at runtime. Note that in Ghost's example that the MenuItemClickHa ndler
has no 'handles' clause at the end of it (unlike the other solutions you have
seen). He connects the event to the routine at run time through the use of
AddHandler.
Hope this helps.

[cj]

It doesn't seem to have a name property. I guess it's going by the
handle property or something.

{System.Windows .Forms.MenuItem }
BarBreak: False
Break: False
Checked: False
Container: Nothing
DefaultItem: False
Enabled: True
FindHandle: 0
FindShortcut: 1
Handle: 2009465263
Index: 3
IsParent: False
MdiList: False
MdiListItem: Nothing
MenuItems: {System.Windows .Forms.Menu.Men uItemCollection }
MergeOrder: 0
MergeType: Add
Mnemonic: Nothing
OwnerDraw: False
Parent: {System.Windows .Forms.MenuItem }
RadioCheck: False
Shortcut: None
ShowShortcut: True
Site: Nothing
Text: "Wednesday"
Visible: True
Michel Posseth [MCP] wrote:

cast sender to the sending object type and read the name property , this way
you can handle every control individual
regards

Michel Posseth [MCP]
"cj" <[e-mail] am> schreef in bericht
news:uW******** ******@TK2MSFTN GP02.phx.gbl...

yes but my goal is not to have all of them change SunMenuItem. It needs
to change only the one that was clicked.

Private Sub DaysMenuItem_Cl ick(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles SunMenuItem.Cli ck, MonMenuItem.Cli ck,
TueMenuItem.Cli ck, WedMenuItem.Cli ck, ThuMenuItem.Cli ck,
FriMenuItem.Cli ck, SatMenuItem.Cli ck
'how do I use sender here to check or uncheck the item clicked?
End Sub
M. Posseth wrote:

Private Sub SunMenuItem_Cli ck(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles SunMenuItem.Cli ck, SunMenuItem2.Cl ick,
SunMenuItem3.Cl ick, SunMenuItem4.Cl ick well you get the point i guess :-)
If SunMenuItem.Che cked Then
SunMenuItem.Che cked = False
Else
SunMenuItem.Che cked = True
End If
End Sub

regards Michel Posseth [MCP]

"cj" wrote:

I would like to have menu items a main menu bar that represent the days
of the week. When you click on them they alternate from checked to
unchecked. Right now I have 7 subs that look like this one:

Private Sub SunMenuItem_Cli ck(ByVal sender As System.Object, ByVal e As
System.EventArg s) Handles SunMenuItem.Cli ck
If SunMenuItem.Che cked Then
SunMenuItem.Che cked = False
Else
SunMenuItem.Che cked = True
End If
End Sub

I would like to use the same sub to handle all 7 menu items. How would
I write this?