投稿日	： 2003/09/24(Wed) 15:07
投稿者	： 名無しのドンべえ
Ｅメール	：
ＵＲＬ	：
タイトル	： Re^3: フォーム右上の×ボタンに条件付加

> Sayさん、お早い回答有難うございます。
>
> > 終了ボタンのClickイベントプロシージャではUnload Meするに留め、
> > 終了処理自体はQueryUnloadまたはUnloadイベントプロシージャに記述してください。
>
> 早速試させてもらったのですが、どうもうまくいきませんでした。説明自体は理解
> しているつもりなのですが・・・。結局のところ、フォームの×ボタンと終了ボタンの
> Clickイベントプロシージャを連動させたい、同じ動きをさせたい（表示される
> メッセージ等も全て）という事だったのですが、Sayさんの回答をもっと考えないと
> 駄目なのかな・・・。すみません。何しろ素人なもので、考え方からしておかしいのかも
> しれません。もう一度詳しく教えて頂けませんか？

Sayさん横からスミマセン。
ひろさん、コマンドボタン(Command1)１つ貼り付けて以下で一度試して下さい。

Option Explicit
Private Sub Command1_Click()
    Unload Me
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    MsgBox "Form_QueryUnload"
End Sub
Private Sub Form_Unload(Cancel As Integer)
    MsgBox "Form_Unload"
End Sub

Command1クリック時、"Unload Me"の代わりに"End"になっていると
QueryUnload,Unload処理は実行されませんよ。間違ってたらごめんね。

★ - フォーム右上の×ボタンに条件付加 - ひろ 09/24-10:14No.6028
• Re: フォーム右上の×ボタンに条件付加 - Say 09/24-10:47 No.6029
  • Re^2: フォーム右上の×ボタンに条件付加 - ひろ 09/24-14:27 No.6030
    • Re^3: フォーム右上の×ボタンに条件付加 - 名無しのドンべえ 09/24-15:07 No.6032
      • できました！ - ひろ 09/24-16:41 No.6034