Hi experts,
I'm trying to create a sample add-on but it throws "Failed to create form. Please check the form attributes." Sorry I'm just new with this development tool and I want to adopt it. Here's the code.
In my Menu.vb
Imports SAPbouiCOM.Framework
Namespace SBOAddonProject6
Public Class Menu Private WithEvents SBO_Application As SAPbouiCOM.Application Sub New() SBO_Application = Application.SBO_Application End Sub Sub AddMenuItems() Dim oMenus As SAPbouiCOM.Menus Dim oMenuItem As SAPbouiCOM.MenuItem oMenus = Application.SBO_Application.Menus Dim oCreationPackage As SAPbouiCOM.MenuCreationParams oCreationPackage = (Application.SBO_Application.CreateObject(SAPbouiCOM.BoCreatableObjectType.cot_MenuCreationParams)) oMenuItem = Application.SBO_Application.Menus.Item("43520") 'Modules oCreationPackage.Type = SAPbouiCOM.BoMenuType.mt_POPUP oCreationPackage.UniqueID = "SBOAddonProject6" oCreationPackage.String = "SBOAddonProject6" oCreationPackage.Enabled = True oCreationPackage.Position = -1 oMenus = oMenuItem.SubMenus Try 'If the manu already exists this code will fail oMenus.AddEx(oCreationPackage) Catch End Try Try 'Get the menu collection of the newly added pop-up item oMenuItem = Application.SBO_Application.Menus.Item("SBOAddonProject6") oMenus = oMenuItem.SubMenus ''Create s sub menu oCreationPackage.Type = SAPbouiCOM.BoMenuType.mt_STRING 'Please replace following 2 "Form1" with real form class in current project oCreationPackage.UniqueID = "SBOAddonProject6.Form1" oCreationPackage.String = "Form1" oMenus.AddEx(oCreationPackage) Catch 'Menu already exists Application.SBO_Application.SetStatusBarMessage("Menu Already Exists", SAPbouiCOM.BoMessageTime.bmt_Short, True) End Try End Sub Sub SBO_Application_MenuEvent(ByRef pVal As SAPbouiCOM.MenuEvent, ByRef BubbleEvent As Boolean) Handles SBO_Application.MenuEvent BubbleEvent = True Try If (pVal.BeforeAction And pVal.MenuUID = "SBOAddonProject6.Form1") Then 'Please replace following 3 "Form1" with real form class in current project Dim activeForm As Form1 activeForm = New Form1 activeForm.Show() End If Catch ex As System.Exception Application.SBO_Application.MessageBox(ex.ToString(), 1, "Ok", "", "") End Try End Sub End Class
End Namespace
In my Form1.b1f.vb
Option Strict Off
Option Explicit On
Imports SAPbouiCOM.Framework
Namespace SBOAddonProject6
<FormAttribute("SBOAddonProject6.Form1", "Form1.b1f")> Friend Class Form1 Inherits UserFormBase Public Sub New() End Sub Public Overrides Sub OnInitializeComponent() Me.Button0 = CType(Me.GetItem("Item_0").Specific, SAPbouiCOM.Button) Me.EditText0 = CType(Me.GetItem("Item_1").Specific, SAPbouiCOM.EditText) End Sub Public Overrides Sub OnInitializeFormEvents() AddHandler LoadAfter, AddressOf Me.Form_LoadAfter End Sub Private WithEvents Button0 As SAPbouiCOM.Button Private WithEvents EditText0 As SAPbouiCOM.EditText Private Sub Form_LoadAfter(pVal As SAPbouiCOM.SBOItemEventArg) Throw New System.NotImplementedException() End Sub End Class
End Namespace
Thanks,