Creating Menu Items Dynamically

[scasystems]

How do you add items to an already existing menu via runtime. For instance I have created a mnuHistoryItem menu
at design time. When a Site is chosen I wish to :-

for i= 0 to mnuHistoryItem.ubound
if mnuHistoryItem(I).tag = site then exit for
next
if I > mnuHistoryItem.ubound then
'create item(I).caption = Site.Name
item(i).tag = Site.number
end if

Question is how do you extend the size of the menu
Tried redim preserve. Not sure how. All the books say you can do it but do not say how????

 

[AndyGroom]

When you want to create a new menu item, do:

Load mnuHistoryItem(ubound(mnuHistoryItem)+1)
With mnuHistoryItem(ubound(mnuHistoryItem))
.Caption = Site.Name
.Visible = True
End With

- Andy
__________________________________
"On a clear disk you can seek forever"

 

[scasystems]

Sussed It ->

for i= 0 to mnuHistoryItem.ubound
if mnuHistoryItem(I).tag = site then exit for
next
if I > mnuHistoryItem.ubound then
'create item(I).caption = Site.Name
Load mnuHistoryItem(I)
item(I).Caption = Site.name
item(i).tag = Site.number
end if

 

[scasystems]

To Andy Groom.
Sorry Mate didn't see your reply before sending in solution.
Cheers for the fast response though

 

[AndyGroom]

No problem. Remember that menu items loaded dynamically are invisible by default, it's easy to think it's not working but actually you can't see the menu item!


- Andy
__________________________________
"On a clear disk you can seek forever"