How to get name from mainmenu control in vb.net?

Question

0.00/5 (No votes)

See more:

I made winform by vb.net and put Mainmenu control in form.

One thing that I want to achieve is to get each sub name by loop from Mainmenu control

For example)
Parent Menu-fruit(textname) f1(name)
Child Menu-banana(textname) b1 (name)
Child Menu-melon(textname) m1 (name)
Child Menu-apple(textname) a1 (name)

I want to get b1, m1, a1 but I don't know how to make it by vb.net

Could you help me to use this code as below?

VB

Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    Me.SetMenuItemStates(Me.MainMenu1.MenuItems)
End Sub

Private Sub SetMenuItemStates(ByVal items As MenuItem.MenuItemCollection)
    Dim fruit_name As String

    For Each item As MainMenu In items

        fruit_name = item.Name

    Next item
End Sub

End Class

Posted 23-Aug-15 23:14pm

Member 11410248

Updated 24-Aug-15 19:04pm

Patrice T

v6

Add a Solution

Comments

Patrice T 24-Aug-15 6:00am

This code can't work at all, nowhere.

Member 11410248 24-Aug-15 8:37am

Can you help me to correct this code?

Andy Lanng 24-Aug-15 6:21am

ppolymorphe is correct. Your code appears to be missing some lines.

Member 11410248 24-Aug-15 8:36am

Can you help me to correct this code?

Andy Lanng 24-Aug-15 8:41am

You have an End If within the For Each. End If can only appear after an If clause.

menu01 changes on each loop and does nothing within the loop. perhaps this was part of the If clause?

Me.Controls refers to the controls on the form / page. This will not show you the menu items.

post the code / markup for the mainmenu control. It'll be easier to help you if we know what your manu is

Member 11410248 24-Aug-15 9:58am

It was wrong one..

sorry I put the code again..

1.

Public Class Form1

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
LoopMenu(MainMenu1)
End Sub

Private Sub LoopMenu(ByVal Parent As Menu)

Dim getname As String
Dim mnuChild As MenuItem
For Each mnuChild In Parent.MenuItems
getname = mnuChild.Name
Call LoopMenu(mnuChild)
Next
End Sub
End Class

2.

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.SetMenuItemStates(MainMenu1.MenuItems)
End Sub

Private Sub SetMenuItemStates(ByVal items As MainMenu.MenuItemCollection)
Dim a As String

For Each item As MenuItem In items

a = item.Name

Me.SetMenuItemStates(MainMenu1.MenuItems)
Next item
End Sub

--------------------------------------
I have two code.. but both of them are not working at all..

I want to get name in tmmenu from mainmenu.

ex) mainmenu

fruit (this is menu)
-> banana(textname) a1 (name)
-> melon(textname) a2 (name)
-> apple(textname) a3 (name)

Patrice T 25-Aug-15 1:07am

New code that does nothing.

1 solution

Add a Solution

Add your solution here

Treat my content as plain text, not as HTML

Preview 0

…

Existing Members

Sign in to your account

...or Join us

Download, Vote, Comment, Publish.

Your Email
Password
Forgot your password?

Your Email
This email is in use. Do you need your password?
Optional Password

I have read and agree to the Terms of Service and Privacy Policy
Please subscribe me to the CodeProject newsletters

When answering a question please:

Read the question carefully.
Understand that English isn't everyone's first language so be lenient of bad spelling and grammar.
If a question is poorly phrased then either ask for clarification, ignore it, or edit the question and fix the problem. Insults are not welcome.
Don't tell someone to read the manual. Chances are they have and don't get it. Provide an answer or move on to the next question.

Let's work to help developers, not make them feel stupid.

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

Patrice T · Answer 1 · 2015-08-24T19:37:00

Solution 1

There is no solution to find

Your code is probably doing what you want, which is I want to get b1, m1, a1, but since you simply do nothing and discard what you got, you don't see anything.

Advice: try to do something with what you get.
Decide what you want to do with what you get.

Posted 24-Aug-15 19:37pm

Patrice T

Updated 24-Aug-15 19:45pm

v2