Visual Basic

二重起動チェック (subCheckDuplicateApp)

 

‘/*************************************************/
‘/* [ 名 称 ] subCheckDuplicateApp   : 二重起動チェック                      
‘/* [ 引 数 ] なし                                                           
‘/* [ 戻 値 ] なし                                                           
‘/* [ 概 要 ] 当アプリケーションが二重起動されてないかチェックをする。       
‘/*           二重起動されている時はメッセージを出して、強制終了する。       
‘/* [ 履 歴 ] 2003/11/01 新規 v01.00 会社名 担当者名                      
‘/*************************************************/
Public Sub subCheckDuplicateApp()
On Error GoTo Err_subCheckDuplicateApp
‘変数宣言———————————————————————
    Dim intRet As Integer    ‘二重起動チェック結果の戻り値
‘—————————————————————————–   

    ‘アプリケーションのインスタンスが既に実行されているかどうかを示す値をセットする。
    intRet = App.PrevInstance    

    ‘同じインスタンスを持っているソフトが起動されている場合
    If intRet = True Then
        ‘マウスポインターのデフォルトに戻す
        Screen.MousePointer = vbDefault
        ‘画面にエラーメッセージを出力する
        MsgBox “このアプリケーションはすでに起動されています。”, _
                vbOKOnly + vbInformation, App.Title
        ‘当プログラムは強制終了する
        End
    End If
    ‘プロシージャを終了する
    Exit Sub    

Err_subCheckDuplicateApp:
    ‘ランタイムエラーが発生したのでエラー処理をする
    Call subErrSyori(“subCheckDuplicateApp”, Err.Number, Err.Description)
End Sub

 





Visual Basic TIPS集

初期登録日: 2003年11月09日

最終更新日: 2003年11月10日

< Home ヘ戻る >

キーボード

ブラウザ画面の文字サイズを変更するショートカットキー

  1. [ CTRL ] + [ + ]  :  文字を大きく
  2. [ CTRL ] + [ – ]  :  文字を小さく

Shortcut Keys

  1. [ CTRL ] + [ + ]  :  Up the font size
  2. [ CTRL ] + [ – ]  :  Down the font size