菜单问题

[wty143]

菜单单击事件，怎样用一个函数写出所有的主菜单和子菜单的单击事件。

[hamadou]

Private Sub Item_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Item_file.Click, Item_new.Click, Item_open.Click, Item_exit.Click, Item_edit.Click, Item_copy.Click, Item_paste.Click
Dim x As MenuItem = CType(sender, MenuItem)
If x Is Item_file Then

ElseIf x Is Item_new Then

ElseIf x Is Item_open Then
.
.
.

End If
End Sub

[wty143]

这种方法适用于固定的少数菜单，如果菜单很多呢，要全部写出来那就难了。最好是能获得菜单的id难后再判断。

[hamadou]

判断不判断，每个菜单项的处理代码还能少吗？？？呵呵，都一样了！

[wty143]

我知道结果了，你说的是静态的菜单，我这是动态生成的菜单。要先加动态事件，难后用参数传进来。不过还是要谢谢你的。

[骑车的娃儿]

addhander MenuItem.MouseDown, addressOf MenuItem_MouseDown

其中MenuItem是一个菜单项，在事件中通过Sender来判断具体是哪个菜单项触发的事件

[hamadou]

呵呵。是动态菜单啊，方法大致相同的。