SendParameter
Opens a messagebox with parameters of the calling procedure.
This example shows:
  • the calling of a MapBasic-routine with parameter implemented in the mbx-file
Include "MapBasic.def"

Declare Sub Main
Declare Sub SendParameter(byval ID as integer, byval Comment as string)
Declare Sub RunParameter(byval Commando as string)


'Ribbon SDK *************
	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 Main

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

End Sub
'************************************************************************************
Sub EndHandler
	call Unload(myAddIn)
End Sub
'************************************************************************************
Function AddIn_Name() As String
	AddIn_Name = "SendParameter"
End Function
'************************************************************************************
Sub SendParameter(byval ID as integer, byval Comment as string)
	note Comment + ID 
End Sub
'************************************************************************************
Sub RunParameter(byval Commando as string)
	run command Commando
End Sub