Top > OOobbs3 > 82

OOobbs3/82 Edit

  • サマリ: ダイアログを自動で終了させたいのですが?
  • 環境: Basic
  • 状態: 解決
  • 投稿者: croppy?
  • 投稿日: 2012-02-17 (金) 18:09:32

質問 Edit

オープンオフィス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

回答 Edit

  • ダイアログエディタで実行ボタンとするボタンの種類を OK に、キャンセルボタンを Cancel としてください。 OK にしておいた方のボタンが押されると、自動的にダイアログが閉じて execute メソッドの返り値が 1 になります。Cancel の方のボタンが押されたときには 0 が返るので判定できます。 -- はにゃ? 2012-02-17 (金) 20:29:41
  • いつもありがとうございます!無事解決しました! -- クロッピ 2012-02-18 (土) 09:34:24

感想,コメント,メモ Edit



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