*

[VB6] OnShowイベントの作成

公開日: : 未分類

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

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

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

Dim frmTmp As Form
Set frmTmp= Form1           '・・・・1
frmTmp.Caption = "てすと中" '・・・・2
Call frmTmp.Show            '・・・・3
Call frmTmp.Hide            '・・・・4
Call Unload(Form1)          '・・・・5


となる。

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

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

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

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

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

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

関連記事

no image

オーネットいてきた

宣言通り、結婚相談所に行てきた。 説明受けてきて家に帰ると中の電車でこれ書いています。

記事を読む

no image

しゅっちょー

朝っぱらから出張でだるかったです。都内某所へアパートから直行で出張。ほんで人気(ひとけ)の無い会議室

記事を読む

no image

IPATの仕組み。

昨日は見事1380円ほど儲けたわけだが、なんか俺の口座にIPATから振込みがあった。3300円ほど。

記事を読む

no image

休日出勤万歳過ぎる

つーわけでただ働き大好き人間の俺の登場です。・・・ふざけていますね。ウチの会社は本当に。と思います。

記事を読む

no image

タイグラマー2日目!(生活用品買い出し)

サワディーカー(タイ語でおはよう、こんにちわ、こんばんわをこれ1個でカバーできる単語) って感

記事を読む

no image

りんごじゅーちゅ

今日ドンキホーテで買ったアップルタイザーなる怪しいことこの上ないジュースを飲みながらの日記です。この

記事を読む

no image

三十路が近いのう

体重計に乗ったら54.1kgとか出て、コレはバグだ!と決め付けて もう一回計りなおしたら53.9k

記事を読む

no image

金曜日

金曜日。平日っす。平日らしい生活をいたしました。仕事でVBやって。5:15に仕事上がって帰って。でホ

記事を読む

no image

タイグラマー13日目(さっぱり王子降臨!)

このネタ分かる人いるのか?まあいいや。 えーとですね。今日はもう何やってもさっぱりな日でした。

記事を読む

no image

その後。

書く必要あるかな?と思ったんですけど、風呂にお湯を張る時間にちょこっと書きますか。 今日は日記

記事を読む

TinkerBoard+Armbian Stretch+chromedriver インストール手順

apt install chromium chromium-dri

予防接種8匹分完了しました!

にゃんこの予防接種打ってきました☓8匹分。 昨年は猫が風

イヤホン買いました。(KZ ZS10)

KZ ZS10 っていう中華イヤホン買いました。5000円也。

no image
新しいPCの見積り中

お晩です。 今月誕生日で37歳になりました。おーいえー。

SSDを換装した感想。

SSD買いました。 MLCならなんでもよかった。

→もっと見る

  • まだデータがありません。

PAGE TOP ↑