GMenu-)[General]Menu追加

Sub CreateMenu()
    GlobalScope.BasicLibraries.loadLibrary("ScriptForge")
    Dim oDoc as Object, oMenu as Object
    Set oDoc = CreateScriptService("Document", ThisComponent)
    Set oMenu = oDoc.CreateMenu("My Menu")
    With oMenu
        .AddItem("Item A", Command := "About")
        .AddItem("Item B", Script := "vnd.sun.star.script:Standard.Module2.Main?language=Basic&location=document")
        .Dispose()
    End With
End Sub


SFWidgets.Menu service


サブメニューをつける時は、Popupmenuと
同じく不等号で表します。


【Item Bに設定したコード】

Sub Main()
	msgbox "Success"
End Sub