Top > 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

Reload   New Lower page making Edit Freeze Diff Upload Copy Rename   Front page List of pages Search Recent changes Backup   Help   RSS of recent changes