** [[OOobbs3/82]] [#a1c5ff1c] -''サマリ'': ダイアログを自動で終了させたいのですが? -''環境'': Basic -''状態'': 解決 -''投稿者'': [[croppy]] -''投稿日'': 2012-02-17 (金) 18:09:32 *** 質問 [#s2d6c6d1] オープンオフィス3.2です。 カルクの中に印刷ボタンを作ってます。 印刷ボタンの誤操作を避けるために ボタンを押す>印刷の確認>印刷と変更したいのですが、 印刷の確認にダイアログを作成しました。 ダイアログから実行とキャンセルボタンをつくり。 実行ボタン>印刷マクロの実行 キャンセルボタン>印刷中止 にしました。両ボタン共にマクロでダイアログの終了をさせたいのですが、自動終了が出来ません。 どうしたらいいのでしょうか? オープンオフィス3.3のバージョンアップは他に影響があるので 考えておりません。 よろしくお願い致します。 以下そのコードです。 Sub Dialog_1 Dim oDialog As Object DialogLibraries.LoadLibrary("Standard") oDialog = CreateUnoDialog(DialogLibraries.Standard.Dialog1) oDialog.execute() End Sub Sub CloseDialog Dim oDialog As Object DialogLibraries.LoadLibrary("Standard") oDialog = CreateUnoDialog(DialogLibraries.Standard.Dialog1) oDialog.endExecute() End Sub *** 回答 [#l28b2217] - ダイアログエディタで実行ボタンとするボタンの種類を OK に、キャンセルボタンを Cancel としてください。 OK にしておいた方のボタンが押されると、自動的にダイアログが閉じて execute メソッドの返り値が 1 になります。Cancel の方のボタンが押されたときには 0 が返るので判定できます。 -- はにゃ? &new{2012-02-17 (金) 20:29:41}; - いつもありがとうございます!無事解決しました! -- クロッピ &new{2012-02-18 (土) 09:34:24}; #comment *** 感想,コメント,メモ [#ned4ce20] #comment |