相同的子，多个控件点击事件 [英] same sub, multiple control click events

问题描述

我想让菜单项成为一个主菜单栏，代表本周的日子

。当您点击它们时，它们会从已选中交替显示为

未选中。现在我有7个看起来像这个的子站点：


Private Sub SunMenuItem_Click（ByVal sender As System.Object，ByVal e As

System.EventArgs）处理SunMenuItem.Click

如果SunMenuItem.Checked则

SunMenuItem.Checked = False

否则

SunMenuItem.Checked = True

结束如果

结束子


我想使用相同的子句来处理所有7个菜单项。我怎么会写这个呢？

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_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles SunMenuItem.Click
If SunMenuItem.Checked Then
SunMenuItem.Checked = False
Else
SunMenuItem.Checked = 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，


private sub Form_Load（...）

AddHandler MenuItem1.Click，AddressOf MenuItemClickHandler

AddHandler MenuItem2.Click，AddressOf MenuItemClickHandler

...

AddHandler MenuItemN.Click，AddressOf MenuItemClickHandler


End Sub


Private Sub MenuItemClickHandler（byval sender）作为对象，byval e as EventArgs）


Dim tMenuItem as MenuItem = sender

tMenuItem.Checked = not tMenuItem.Checked


End Sub

Hello cj,

private sub Form_Load(...)

AddHandler MenuItem1.Click, AddressOf MenuItemClickHandler
AddHandler MenuItem2.Click, AddressOf MenuItemClickHandler
...
AddHandler MenuItemN.Click, AddressOf MenuItemClickHandler

End Sub

Private Sub MenuItemClickHandler(byval sender as object, byval e as EventArgs)

Dim tMenuItem as MenuItem = sender
tMenuItem.Checked = Not tMenuItem.Checked

End Sub

我希望菜单项是一个主菜单栏，代表一周中的几天。当您点击它们时，它们会从已检查的
交替到未选中。现在我有7个看起来像这个的子：

Private Sub SunMenuItem_Click（ByVal sender As System.Object，ByVal e
As System /EventArgs）处理SunMenuItem.Click
如果SunMenuItem.Checked那么
SunMenuItem.Checked = False
其他
SunMenuItem.Checked = True
结束如果
结束Sub
我会喜欢使用相同的子句来处理所有7个菜单项。我怎么写这个？

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_Click(ByVal sender As System.Object, ByVal e
As
System.EventArgs) Handles SunMenuItem.Click
If SunMenuItem.Checked Then
SunMenuItem.Checked = False
Else
SunMenuItem.Checked = True
End If
End Sub
I would like to use the same sub to handle all 7 menu items. How
would I write this?

Private Sub SunMenuItem_Click（ByVal sender As System.Object，ByVal e As

System.EventArgs）处理SunMenuItem.Click，SunMenuItem2.Click，

SunMenuItem3.Click，SunMenuItem4。点击你想得到的点:-)

如果SunMenuItem。然后检查

SunMenuItem.Checked = False

否则

SunMenuItem.Checked = True

结束如果

End Sub


问候


Michel Posseth [MCP]


" ; CJ"写道：

Private Sub SunMenuItem_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles SunMenuItem.Click, SunMenuItem2.Click,
SunMenuItem3.Click, SunMenuItem4.Click well you get the point i guess :-)
If SunMenuItem.Checked Then
SunMenuItem.Checked = False
Else
SunMenuItem.Checked = True
End If
End Sub

regards

Michel Posseth [MCP]

"cj" wrote:

我希望菜单项是一个主菜单栏，代表一周的天数。当您点击它们时，它们会从检查交替到取消选中。现在我有7个看起来像这个的子站点：

Private Sub SunMenuItem_Click（ByVal sender As System.Object，ByVal e As
System.EventArgs）处理SunMenuItem.Click
如果SunMenuItem.Checked那么
SunMenuItem.Checked = False
其他
SunMenuItem.Checked = True
结束如果
结束Sub

我会喜欢使用相同的子句来处理所有7个菜单项。我怎么写这个？

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_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles SunMenuItem.Click
If SunMenuItem.Checked Then
SunMenuItem.Checked = False
Else
SunMenuItem.Checked = True
End If
End Sub

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

是但我的目标不是让所有这些都改变SunMenuItem。它需要

来仅更改被点击的那个。


Private Sub DaysMenuItem_Click（ByVal sender As System.Object，ByVal e As

System.EventArgs）处理SunMenuItem.Click，MonMenuItem.Click，

TueMenuItem.Click，WedMenuItem.Click，ThuMenuItem.Click，

FriMenuItem.Click，SatMenuItem。点击

''我如何在这里使用发件人来检查或取消选中点击的项目？

结束子

M. Posseth写道：

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_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles SunMenuItem.Click, MonMenuItem.Click,
TueMenuItem.Click, WedMenuItem.Click, ThuMenuItem.Click,
FriMenuItem.Click, SatMenuItem.Click
''how do I use sender here to check or uncheck the item clicked?
End Sub
M. Posseth wrote:

Private Sub SunMenuItem_Click（ByVal sender As System.Object，ByVal e As
System.EventArgs）处理SunMenuItem.Click，SunMenuItem2.Click，
SunMenuItem3.Click，SunMenuItem4.Click you you得到点我猜:-)
如果SunMenuItem.Checked则
SunMenuItem.Checked = False
其他
SunMenuItem.Checked = True
结束如果
结束子



Michel Posseth [MCP]

" cj"写道：

Private Sub SunMenuItem_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles SunMenuItem.Click, SunMenuItem2.Click,
SunMenuItem3.Click, SunMenuItem4.Click well you get the point i guess :-)
If SunMenuItem.Checked Then
SunMenuItem.Checked = False
Else
SunMenuItem.Checked = True
End If
End Sub

regards

Michel Posseth [MCP]

"cj" wrote:

我希望菜单项是一个主菜单栏，代表一周的天数。当您点击它们时，它们会从检查交替到取消选中。现在我有7个看起来像这个的子站点：

Private Sub SunMenuItem_Click（ByVal sender As System.Object，ByVal e As
System.EventArgs）处理SunMenuItem.Click
如果SunMenuItem.Checked那么
SunMenuItem.Checked = False
其他
SunMenuItem.Checked = True
结束如果
结束Sub

我会喜欢使用相同的子句来处理所有7个菜单项。我怎么写这个？

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_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles SunMenuItem.Click
If SunMenuItem.Checked Then
SunMenuItem.Checked = False
Else
SunMenuItem.Checked = True
End If
End Sub

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

这篇关于相同的子，多个控件点击事件的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！