Source of OOobbs3/82

** [[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