Visual Basic

アプリケーション終了 (subEndApp)

 

‘//*************************************************/
‘/* [ 名 称 ] subEndApp              : アプリケーション終了                  
‘/* [ 引 数 ] なし                                                           
‘/* [ 戻 値 ] なし                                                           
‘/* [ 概 要 ] 当アプリケーションを終了する。                                 
‘/* [ 履 歴 ] 2003/11/01 新規 v01.00 会社名 担当者名                      
‘//*************************************************/
Public Sub subEndApp()
On Error Resume Next
‘変数宣言———————————————————————
    Dim frmMine     As Form     ‘フォームコントロール変数
‘—————————————————————————–

    ‘各種コントロールを制御したコレクションの開放を開放する
    Set pcltData = Nothing

    ‘For 画面(フォーム)が無くなるまで
    For Each frmMine In Forms
        ‘画面(フォーム)を閉じる
        Unload frmMine
        Set frmMine = Nothing 
    Next frmMine

    ‘ＤＢを閉じる
    Call subCloseDB    

    ‘当アプリケーションを終了する
    End

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