別フォームの呼び出し

質問

6.0でやってます。
form1からform2を呼び出す時、Command1_Clickの処理内で

Set FORM = New form2
Call FORM.Show

と書いて、form2が呼び出されたらYesNoメッセージボックスを表示し、
Yesを押したらform1のPublicプロシージャに飛んでからform2をUnloadし、Noだったらform2をUnloadするプログラムを作りたいのですが、クリックするとform2が表示されずに、メッセージボックスだけが表示されて、YesNoを選択した後でform2が表示されてしまいます。

それに、Call FORM.Showの処理に行くと、"既にアンロードされています"といったエラーが出ます。
書く順番がおかしいのでしょうか？

*****form1のコード*******
Private Sub Command1_Click()
Set FORM = New form2
Call FORM.Show
End Sub

Public sub aaa()
(処理)
End Sub

*****form2のコード******
Private Sub Form_Load()
msg = MsgBox("戻りますか？？", 4, "確認メッセージ")

If msg = vbYes Then
Form1.aaa
Unload Me
Else
Unload Me
End If

回答No.3

noname#140971 · ベストアンサー

通常は、フォームがアクティブになることはオープン後の１回だと思います。
が、そうでない場合も想定しロード時だけ確認メッセージを表示するようにチェック。

静的変数 isActivate は 初期値=False です。
よって、フォームがロードされアクティブなれば確認メッセージを表示します。
が、この際　isActivate　には True　を代入しています。
当然のことですが、この値は Sub から抜け出ても保持されます。
ですから、次に 非アクティブからアクティブになって Sub がコールされても二度と問いません。

もちろん、アクティブ→非アクティブ→アクティブというフォームの制御予定がなければ冗長なコード。

Answer = Verify("戻りますか？？")

は、第四世代言語を模したものです。

msg = MsgBox("戻りますか？？", 4, "確認メッセージ")

では、他者がコードを読んだ時に直感的に理解することが困難かと思います。
この点を作法の問題として注意を喚起した次第です。
ちょっと、おせっかいでしたが、そこは還暦目前のジイ様のことです。大目に見られたし。

なお、Verify は標準モジュールに書けばいいです。

回答No.2

noname#140971

×Answer = Verify("戻りますか？？", 4, "確認メッセージ")
○Answer = Verify("戻りますか？？")

失礼！

回答No.1

noname#140971

<Form1>
Option Explicit

Private Sub Command1_Click()
　　Form2.Show
End Sub

Public Sub aaa()
　　MsgBox "aaa"
End Sub

<Form2>

Option Explicit

Private Sub Form_Activate()
　　Static isActivate As Boolean
　　Dim Answer　　　　As Integer

　　If Not isActivate Then
　　　　isActivate = True
　　　　Answer = Verify("戻りますか？？", 4, "確認メッセージ")
　　　　If Answer = vbYes Then
　　　　　　Form1.aaa
　　　　　　Unload Me
　　　　Else
　　　　　　Unload Me
　　　　End If
　　End If
End Sub

Public Function Verify(ByVal Msg As String, _
　　　　　　　　　　　 Optional ByVal DefaultButton As Integer = vbDefaultButton1) As Integer
　　Verify = MsgBox(Msg, vbYesNo + vbQuestion + DefaultButton, " 確認メッセージ")
End Function

１、Option Explicit　でコードを書くようにしたがいいです。
２、読めば判るように変数名や書き方を工夫されたがいいです。

補足

お早い回答ありがとうございます。

少しお聞きしたいのですが、

If Not isActivate Then
　　isActivate = True
　　Answer = Verify("戻りますか？？", 4, "確認メッセージ")

の部分は、どういった内容の処理なのでしょうか？
Verify()とは、自分で作るプロシージャでしょうか？