By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
455,684 Members | 1,338 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 455,684 IT Pros & Developers. It's quick & easy.

Menu Question.

P: n/a
I have a Menu with 5 Menus as:

Menu Name Menu Text
M1 File
M2 Edit
M3 View
M4 Insert

I want to execute the code depending upon which menu is clicked. Since most
of the code is same therefore, I want to write the one procedure. Therefore
I tried to write something like...

Private Sub Menu_Click (ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles _
M1.Click, M2.Click, M3.Click, M4.Click

******************
*****************
*************

x = sender.text
msgbox (x)

********
End Sub

When I click the message box shows the Text property of menu i.e. if I click
M1 it shows "File", if I click M2 it shows "Edit" etc. However, I want to
show Name i.e. when I click M1 it should show M1, when I click M2 it should
show M2, and so on.

The second thing I want to ask is that why is that when we type SENDER and
the type dot (.) it doesn't show properties or methods associated with the
sender. However, still we can type TEXT. How would we know what other
methods or properties are associated with SENDER OBJECT.

Thanks in advance!
Nov 20 '05 #1
Share this Question
Share on Google+
8 Replies


P: n/a
I can handle the second half of oyur question.

the SENDER object is late bound - it is defined purely as an "object", it
doesn't actually take the form of a menu item until runtime. Therefore the
intellisense in the IDE doesn't know the methods that could be applicable as
it doesn't know the type of object it is .

HTH

Simon
"I_AM_DON_AND_YOU?" <us**@domain.com> wrote in message
news:eA***************@tk2msftngp13.phx.gbl...
I have a Menu with 5 Menus as:

Menu Name Menu Text
M1 File
M2 Edit
M3 View
M4 Insert

I want to execute the code depending upon which menu is clicked. Since most of the code is same therefore, I want to write the one procedure. Therefore I tried to write something like...

Private Sub Menu_Click (ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles _
M1.Click, M2.Click, M3.Click, M4.Click

******************
*****************
*************

x = sender.text
msgbox (x)

********
End Sub

When I click the message box shows the Text property of menu i.e. if I click M1 it shows "File", if I click M2 it shows "Edit" etc. However, I want to
show Name i.e. when I click M1 it should show M1, when I click M2 it should show M2, and so on.

The second thing I want to ask is that why is that when we type SENDER and
the type dot (.) it doesn't show properties or methods associated with the
sender. However, still we can type TEXT. How would we know what other
methods or properties are associated with SENDER OBJECT.

Thanks in advance!

Nov 20 '05 #2

P: n/a
Hi Don,

I still get a chuckle out of that name! And you? ;-))

Sender is, as Simon pointed out, a 'pure object' which Intellisense can't
fathom beyond its 'objectness'.

You, on the other hand, know that it is always going to be a MenuItem so
you can cast it as such.
Dim oMenuItem As MenuItem = DirectCast (sender, MenuItem)

Now, with oMenuItem, you can use '.' to your heart's content. Except, that
is, if you want the Name property of the MenuItem. Why? Because while you can
set the Name when you Design your menu on the Form, the MenuItem 'control'
doesn't <have> a Name. Why? I don't know. But the Control class, which most
controls inherit from, is the one that provides the Name property. And
MenuItem doesn't inherit from Control.

How important is it that you have the actual name of the MenuItem ? Ie.
what do you want to do with it?

Regards,
Fergus


Nov 20 '05 #3

P: n/a
How important is it that you have the actual name of the MenuItem ? Ie. what do you want to do with it?


Actually I just wrote the example. In my actual program the menu is very
(very very very ) big comprising of more than 300 options in different
menus, sub-menus. So when I was designing the Menus I designed by giving
name like M1, M2, M3, M4......... N1, N2, N3....................... These
are Menu Name. The Menu Names (what we call caption in VB 6.0) are very big
like "PREVIOUS ENTRY", "FILE PRINT".... so I thought I should write coding
based upon the menu names.

That's why I want to know how to access the menu name in the code.

In VB 6.0 we have two properties
(1) menuname.name
(2) menuname.caption
Nov 20 '05 #4

P: n/a
Hi Don,

Very ^ 4 = 300. Oh yes, that's big!

You can still use the MenuItem name in code, you just can't use its name
as text.

Private Sub Menu_Click (...) Handles _
M1.Click, M2.Click, M3.Click, M4.Click
If sender Is M1 Then _
MsgBox ("It's M1")
If sender Is M2 Then _
MsgBox ("It's M2")
etc

But I'm thinking that that may not do the trick. What is you that you
actually want to achieve?

Regards,
Fergus
Nov 20 '05 #5

P: n/a
"I_AM_DON_AND_YOU?" <us**@domain.com> wrote in
news:eA*************@tk2msftngp13.phx.gbl:

The second thing I want to ask is that why is that when we type SENDER
and the type dot (.) it doesn't show properties or methods associated
with the sender. However, still we can type TEXT. How would we


Make sure you have Option Strict On. Then when you cast sender to a
menuitem (or other object depending on the event), you should see all the
properties of the correct type when you type the dot.

Chris
Nov 20 '05 #6

P: n/a
Hi Don, try this:

Private Sub OnMenuClick(...) Handles ...

Dim miMenu As MenuItem = DirectCast(sender, MenuItem)

Select Case True
Case Is M1
' M1
Case Is M2
' M2
End Select

End Sub

--
HTH,
-- Tom Spink, Über Geek

Please respond to the newsgroup,
so all can benefit

" System.Reflection Master "

==== Converting to 2002 ====
Remove inline declarations
"I_AM_DON_AND_YOU?" <us**@domain.com> wrote in message
news:eA*************@tk2msftngp13.phx.gbl...
I have a Menu with 5 Menus as:

Menu Name Menu Text
M1 File
M2 Edit
M3 View
M4 Insert

I want to execute the code depending upon which menu is clicked. Since most of the code is same therefore, I want to write the one procedure. Therefore I tried to write something like...

Private Sub Menu_Click (ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles _
M1.Click, M2.Click, M3.Click, M4.Click

******************
*****************
*************

x = sender.text
msgbox (x)

********
End Sub

When I click the message box shows the Text property of menu i.e. if I click M1 it shows "File", if I click M2 it shows "Edit" etc. However, I want to
show Name i.e. when I click M1 it should show M1, when I click M2 it should show M2, and so on.

The second thing I want to ask is that why is that when we type SENDER and
the type dot (.) it doesn't show properties or methods associated with the
sender. However, still we can type TEXT. How would we know what other
methods or properties are associated with SENDER OBJECT.

Thanks in advance!

Nov 20 '05 #7

P: n/a
Hi Tom,

How does that one work?

Regards,
Fergus
Nov 20 '05 #8

P: n/a
Magic. You need to pretend that I've casted "True" to sender. ;-) (Nice one
Fergus)

Correction:

' ///
Select Case True
Case sender Is M1
' M1
Case sender Is M2
' M2
End Select
' ///

--
HTH,
-- Tom Spink, Über Geek

Please respond to the newsgroup,
so all can benefit

" System.Reflection Master "

==== Converting to 2002 ====
Remove inline declarations
"Fergus Cooney" <fi******@tesco.net> wrote in message
news:#o**************@TK2MSFTNGP11.phx.gbl...
Hi Tom,

How does that one work?

Regards,
Fergus

Nov 20 '05 #9

This discussion thread is closed

Replies have been disabled for this discussion.