[VB6] OnShowイベントの作成

2005年3月23日

VB6のではフォームを開いた瞬間を捕らえるイベントが無い。
Form_OnLoadがあるじゃ無いかと言うかもしれませんがアレは違う。

VB6でフォームを呼び出す、閉じるにはいくつかの段階がある。
１、フォームをメモリーに読み込む。
２、フォームの値を操作する。
３、フォームをディスプレイ上に表示する。
４、フォームをディスプレイ上から隠す。
５、フォームをメモリーから消す。
６、プログラムを終了する。

これらを正確にコードで書くと

Dim frmTmp As Form
Set frmTmp= Form1           '・・・・１
frmTmp.Caption = "てすと中" '・・・・２
Call frmTmp.Show            '・・・・３
Call frmTmp.Hide            '・・・・４
Call Unload(Form1)          '・・・・５

となる。

Form_Onloadイベントは ２の時に走るものであって、ディスプレイの表示された瞬間(Show実行時)に走るものではない。
ちなみにForm_Initialize は１の時、
Form_QueryUnload、Form_Unloadは４の時に走り、Form_QueryUnloadの方が先。
Form_Terminate は、プログラム終了時に呼び出される。

プログラムをしているとどうしても３の時、つまりShowの瞬間に呼び出したい関数と言うものがでてくる。
こうした場合には下記の方法を提案する。

まずフォームの対し、PrivateなBool値を用意する。（仮にBlnFlg1とする)
そして、Onloadイベント時に BlnFlg1 をFalseに設定する処理を書き、
Form_Resizeイベントの先頭に下記のコードを追加する。

If Not(BlnFlg1) Then
  BlnFlg1 = True
  Call 呼び出したい関数
End If

Call 呼び出したい関数 の個所は各々好きなように変更する。
関数でなくとも処理を直接書いてもよい。

Show実行時に必ずForm_Resizeイベントが実行されるのを利用した技だ。
使ってみると案外使いやすいので是非お勧めしたい。