Results 1 to 2 of 2

Thread: Read all items from a menu

  1. #1

    Thread Starter
    Junior Member
    Join Date
    Jul 2003
    Posts
    22

    Read all items from a menu

    How can I read all the items from a menu which contains several sub-menus? I need to retrieve all the items name from a menu.

    Regards,
    Calvin

  2. #2
    Lively Member ayan's Avatar
    Join Date
    Jan 2004
    Posts
    112
    halu,

    this might help...

    VB Code:
    1. Private mnuCountries As MainMenu
    2.     Private mnuItemEuropeNations As MenuItem
    3.     Private mnuItemItaly As MenuItem
    4.     Private mnuItemGermany As MenuItem
    5.     Private mnuItemFrance As MenuItem
    6.  
    7.     Public Sub CreateNationMenu()
    8.         ' Create instances of global MainMenu and MenuItem objects
    9.         mnuCountries = New MainMenu()
    10.         mnuItemEuropeNations = New MenuItem("Some Nations of E&urope")
    11.         mnuItemItaly = New MenuItem("&Italy")
    12.         mnuItemGermany = New MenuItem("&Germany")
    13.         mnuItemFrance = New MenuItem("&France")
    14.  
    15.         ' Add mnuItemEuropeNations to MainMenu component's MenuItem collection
    16.         mnuCountries.MenuItems.Add(mnuItemEuropeNations)
    17.  
    18.         ' Add submenus to mnuItemEuropeNations
    19.         mnuItemEuropeNations.MenuItems.Add(mnuItemItaly)
    20.         mnuItemEuropeNations.MenuItems.Add(mnuItemGermany)
    21.         mnuItemEuropeNations.MenuItems.Add(mnuItemFrance)
    22.  
    23.         ' Make mnuCountries the form's menu
    24.         Me.Menu = mnuCountries
    25.     End Sub
    26.  
    27.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    28.         Dim s As MenuItem
    29.         For Each s In mnuItemEuropeNations.MenuItems
    30.             ListView1.Items.Add(s.Text)
    31.         Next
    32.     End Sub
    33.  
    34.     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    35.         CreateNationMenu()
    36.     End Sub

    good luck...

    courtesy of MSDN...
    i did have a short coding on this... any progress, please let me know... i'm a newbie though.

    thanx times ten to the power of forever...

    writing hello world is fine but developing large project needs a forum like this...

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  



Click Here to Expand Forum to Full Width