戻る

二重起動を防ぐ

目的

アプリケーションの二重起動を防ぎます。

ポイント

FormのLoadイベントでApp.PrevInstanceの値を確認します。

サンプルコード

Option Explicit Private Sub Form_Load() ' 二重起動を防ぐサンプル          If App.PrevInstance Then                  MsgBox "すでに「" & App.Title & "」は起動されています。", _                 vbExclamation                         End              End If      End Sub Private Sub cmdClose_Click() ' 閉じる     End      End Sub

ソースのダウンロード