Solved How to pass parameters to a function via context menu bar? (1 Viewer)

[KitaYama]

I have a button on a form that clicking it brings up a menubar with several controls.
Then selecting each control, will execute a function.
Here's a simplified version of what I have :

Dim Mnu As CommandBar
Dim itm As CommandBarControl

Set Mnu = CommandBars.Add("", msoBarPopup, , True)
Set itm = Mnu.Controls.Add: itm.Caption = "Control1": itm.OnAction = "Function1"
Set itm = Mnu.Controls.Add: itm.Caption = "Control2": itm.OnAction = "Function2"
    
Mnu.ShowPopup

The above works perfect.

The advice I need:
How can I pass one or more parameters to these functions?
I tried
itm.OnAction = "Function1(100,200,300)"

but after adding the parameters, nothing happens. Function1 is not executed.


thank you.

 

[June7]

Use Parameter property.
Review https://learn.microsoft.com/en-us/office/vba/api/Office.CommandBarControl.Parameter and https://www.appsloveworld.com/vba/100/5/vba-pass-arguments-with-onaction#:~:text=Create your command bar and the button. For,= "PressMe" cbb.OnAction = "TheCallback" cbb.Parameter = 456
No idea how to pass multiple arguments or if it's even possible.

 

[KitaYama]

Million thanks.

 

[arnelgp]

maybe create a Global array/collection to hold the values you want to use in your function.
you can destroy the array/collection when you are done with the function.
see Form1 from this demo.