RightClickEvent

[Former Member]

hi,

By entering quotes, when I right click on the item code, a popup appears

how to add a line supplementire the submenu to the end for example

thank you

Edited by: Didier LEVAN on Jan 27, 2010 4:38 PM

[Former Member · Accepted solution]

Hi,

You may check this thread first:

Thanks,

Gordon

[Former Member]

Hi,

thank you

It works well

Here is my code for anyone seeking how to add a menu item (right click)

        Shared Sub Ajout_Synthese_Activite_Sur_Menu()
       
            Dim oMenuItem As SAPbouiCOM.MenuItem
            Dim oMenus As SAPbouiCOM.Menus

            Try
                Dim oCreationPackage As SAPbouiCOM.MenuCreationParams
                oCreationPackage = SBO_application.CreateObject(SAPbouiCOM.BoCreatableObjectType.cot_MenuCreationParams)

                oCreationPackage.Type = SAPbouiCOM.BoMenuType.mt_STRING
                oCreationPackage.UniqueID = "OcaSynthese"
                oCreationPackage.String = "Synthese activité"

                oCreationPackage.Enabled = False

                oMenuItem = SBO_application.Menus.Item("1280") 'Donnée'
                oMenus = oMenuItem.SubMenus
                oMenus.AddEx(oCreationPackage)
            Catch ex As Exception
                ' MessageBox.Show(ex.Message)
            End Try



        End Sub