投稿日	： 2004/07/22(Thu) 17:33
投稿者	： 花ちゃん
Ｅメール	：
ＵＲＬ	：
タイトル	： Re^5: アプリの複数起動を禁止したい

そうそうすべてどんぴしゃのサンプルは転がっていませんよ。
名前が同じで区別できなければ変更すればいいだけの事です。
Private Sub Form_Load()
    Dim strCaptionName As String
    Dim retValue As Long
    Dim lnghwnd  As Long
    If App.PrevInstance = True Then
        Me.Caption = "２重起動"
        strCaptionName = "検索画面"
        lnghwnd = FindWindow(vbNullString, strCaptionName)
        retValue = IsIconic(lnghwnd)
        If retValue Then
            retValue = OpenIcon(lnghwnd)
         End If
        retValue = SetForegroundWindow(lnghwnd)
        Unload Me
    End If
End Sub

最小化されている場合の処理が抜けていましたので追加

又、End ステートメント は使用しない方がいいかと。

★ - アプリの複数起動を禁止したい - 鍋 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