[RESOLVED] Remove item from menu and add code to Dynamic menu items

Hi.
I build my menu dynamically from a recordset.

Code:

---

While Not listTypes.EOF             
    Load mnufiles(mnufiles.UBound + 1)
    With mnufiles(mnufiles.UBound)
        .Caption = listTypes.Fields(1)
        .Enabled = True
        .Visible = True
        .Checked = True
    End With
    listTypes.MoveNext
Wend

---

What happens is that i've got this menu, by default with one item (the first).
I wan't to remove it because it doesn't matter anymore after loading fields from DB.
How can I do this?

Another question:
How do I associate code to the dynamically generated menu items?
Thanks.

As for unloading the placeholder menu item, the help file says you can't. But you can hide it:

mnufiles(0).Visible = False

As a (better) alternative, when creating the menu in code, have it check to see if this is the first item you're adding. If so, instead of creating another menu item, just use the placeholder item. (And skip incrementing your index counter for that one, of course.)

Re-using menu items is faster than unloading/reloading them all from scratch anytime the underlying data changes.

As for the code, it works just like any other menu. In your form you have:

Code:

---

Private Sub mnufiles_Click(Index As Integer)
    ' Do your thing based on the Index
End Sub

---

This sub fires when any of the menu items are clicked.

Thank you very much.
That worked.:thumb:
:wave: