‘//*************************************************/ ‘/* [ 名 称 ] subEndApp : アプリケーション終了 ‘/* [ 引 数 ] なし ‘/* [ 戻 値 ] なし ‘/* [ 概 要 ] 当アプリケーションを終了する。 ‘/* [ 履 歴 ] 2003/11/01 新規 v01.00 会社名 担当者名 ‘//*************************************************/ Public Sub subEndApp() On Error Resume Next ‘変数宣言——————————————————————— Dim frmMine As Form ‘フォームコントロール変数 ‘—————————————————————————– ‘各種コントロールを制御したコレクションの開放を開放する ‘For 画面(フォーム)が無くなるまで ‘DBを閉じる ‘当アプリケーションを終了する End Sub |
Visual Basic TIPS集
初期登録日: 2003年11月09日
最終更新日: 2003年11月10日
< Home ヘ戻る >
ブラウザ画面の文字サイズを変更するショートカットキー
Shortcut Keys
|