2. Transfer Steps

1.Copy the green highlighted code into your MapBasic x32 source code.
2.Give an Addin_Name
3.Delete your old menu and buttonpad commands

declare sub Main

declare sub mShow

declare sub mTheme

 

Declare Sub EndHandler

Declare Method New_RibbonSDK Class "GeoAS.RibbonSDK.Addin" Lib "GeoAS.RibbonSDK.dll" Alias Ctor_CreateInstance() as This

Declare Method Initialize Class "GeoAS.RibbonSDK.Addin" Lib "GeoAS.RibbonSDK.dll" Alias Initialize(ByVal p1 as This, ByVal p2 as refptr, ByVal p3 as String)

Declare Method Unload Class "GeoAS.RibbonSDK.Addin" Lib "GeoAS.RibbonSDK.dll" Alias Unload(ByVal p1 as This)

Declare Function AddIn_Name() As String

Global myAddIn as This

 

'******************************

Sub EndHandler

 call Unload(myAddIn)

End Sub

'******************************

Function AddIn_Name() As String

 AddIn_Name = "MyApp"

End Function

'********************************

sub Main

 'Create Menu "MyApp" as

 '        "Show" calling mShow,

 '        "Theme" calling mTheme

 'Alter Menu bar add "MyApp"

 

 myAddIn = New_RibbonSDK()

 call Initialize(myAddIn, SYSTEMINFO(SYS_INFO_IMAPINFOAPPLICATION), ApplicationName$() )

end sub

'********************************

sub mShow

 note "Show"

end sub

'********************************

sub mTheme

 note "Theme"

end sub

'********************************