重複起動を制御するには？
同じプログラムが幾つも起動する事を避けたい時の対処法。
※ＶＢ６ではＡｐｐ．ＰｒｅｖＩｎｓｔａｎｃｅなどを使用
（コーディング例）
'アプリケーションのインスタンスが生成されているか判定する
If App.PrevInstance =False Then
' 起動していない
'Else
' 既に起動中
EndIf
|
※ＶＢ２００３ではＧｅｔＰｒｏｃｅｓｓｅｓＢｙＮａｍｅメソッドなどを使用
（コーディング例）
'重複起動をチェックする
If Diagnostics.Process.GetProcessesByName( _
Diagnostics.Process.GetCurrentProcess.ProcessName).Length > 1 Then
' 既に起動中
End If
|
ＶＢ２００５以前では上記の方法で重複起動を防止していました。
ＶＢ２００５以降では…
１）ソリューションエクスプローラでソリューションを選択する
２）右クリックで「プロパティ」を選択する
３）「アプリケーション」タグをクリックする
４）「単一インスタンスのアプリケーションを作成する」をチェックする
※たったこれだけで重複起動は防止できます