XTopWindowListener
原案: OOobbs2/80 - OOo BasicでQuickLauncherを作成する試み 話題は XTopWindowListener です。 ウィンドウではウィンドウを開いたり、閉じたり、アクティブかされたりといったイベントを検出するために XTopWindowListener を利用できます (検出ではなく BroadCaster から通知を受ける)。 ウィンドウがアクティブになると ウィンドウがアクティブでなくなると となるようにしてみました。 OOo Basic で XTopWindowListener を利用すると、ウィンドウを手動で最小化しようとするとなぜかウィンドウのタイトルバーだけ残ります (OOo + Win。その他は不明)。Py-UNO だと再現しないので原因不明です。OOo API からウィンドウを最小化できないのでどうしようもありません。 ExecuteDispatch の部分を以下のように修正。2007/11/15 Sub ExecuteDispatch(sCommand) aURL = CreateUnoStruct("com.sun.star.util.URL") aURL.Complete = ".uno:" & sCommand CreateUnoService("com.sun.star.util.URLTransformer").parseStrict(aURL) oDispatch = StarDesktop.queryDispatch(aURL,"_self",0) If NOT IsNull(oDispatch) Then oDispatch.dispatch(aURL,Array()) End IF End Sub |