投稿日	： 2004/07/22(Thu) 20:37
投稿者	： 鍋
Ｅメール	：
ＵＲＬ	：
タイトル	： Re^8: アプリの複数起動を禁止したい

う〜ん、なるほど。

実は、確かにUnload Meの後にもコードがあります。2つのフレームを使っていまして、
なくても良かったのですが初期表示を明示的にしておく意味でフレームの表示・非表示を書いていました。
結果、こんなコードで落ち着きました。

Private Sub Form_Load()

        If App.PrevInstance = True Then
            captionName = "検索画面"
            Me.Caption = "二重起動"
            lnghwnd = FindWindow(vbNullString, captionName)
            retValue = SetForegroundWindow(lnghwnd)
            'End
            Unload Me
            Exit Sub
        End If
        
        Frame1.Enabled = True
        Frame2.Enabled = False
        Frame1.Visible = True
        Frame2.Visible = False
End Sub

画面のチラつきがなくなり、プロセスも残らなくなりました。
どうもありがとうございました。

魔界の仮面弁士様
私はン年前の入社時にASPで開発をしていて、会社の先輩から
「ページ処理が終わればメモリから開放されるからNothingしなくてもいいけど
　わかりやすくするためにもNothingするのが礼儀だ」
ということを言われていて深く考えずに使っていました。
（Response.Redirectするときはメモリが残るからそのときは注意、とも言われていましたが）
紹介いただいたサイトを読んで身につまされる思いです。初心に帰ってじっくり考えてみます。
ありがとうございました。

★ - アプリの複数起動を禁止したい - 鍋 07/21-14:12No.9700
• Re: アプリの複数起動を禁止したい - ゆ 07/21-14:34 No.9701
  • Re^2: アプリの複数起動を禁止したい - 鍋 07/21-16:14 No.9704
    • Re^3: アプリの複数起動を禁止したい - 花ちゃん 07/21-18:31 No.9707
      • Re^4: アプリの複数起動を禁止したい - 鍋 07/22-16:27 No.9736
        • Re^5: アプリの複数起動を禁止したい - 花ちゃん 07/22-17:33 No.9738
          • Re^6: アプリの複数起動を禁止したい - 鍋 07/22-19:18 No.9742
            • Re^7: アプリの複数起動を禁止したい - 魔界の仮面弁士 07/22-19:46 No.9743
            • Re^7:確認してみたら - 花ちゃん 07/22-20:04 No.9744
              • Re^8: アプリの複数起動を禁止したい - 鍋 07/22-20:37 No.9747
                • Re^9: アプリの複数起動を禁止したい - 魔界の仮面弁士 07/23-10:48 No.9753
• Re: アプリの複数起動を禁止したい - 魔界の仮面弁士 07/22-18:04 No.9740