VB6でフォームがロードされているかチェックする。

この記事は2018年08月28日に投稿しました。

目次

1. はじめに
2. フォームがロードされているかチェックする方法
3. おわりに

Visual Basic 6.0 300の技

1. はじめに

こんにちは、iOSのエディタアプリPWEditorの開発者の二俣です。

今回は業務で使用しているVB6の話です。
フォームがロードされているかチェックする方法です。

目次へ

2. フォームがロードされているかチェックする方法

ロードされているフォームは、Formオブジェクトが保持しているformsコレクションに格納されています。
そのためフォームがロードされているチェックする方法は、formsコレクションの各フォームの名前を調べ、該当する名前に一致するかチェックします。
以下は関数化したチェック処理です。

'フォームがロードされているかチェックします。
'引数name チェックするフォーム名
'引数forms ロードされているフォームのコレクション
'戻り値 True:ロードされている / False:ロードされていない
Public Function IsFormLoaded(name As String, forms As Object) As Boolean
    Dim f As Form

    IsFormLoaed = False
    For Each f In Forms
        If f.Name = name Then
            IsFormLoaded = True
            Exit Function
        End If
    Next
End Function

目次へ

3. おわりに

ファームがロードされているかチェックするそもそもの発端は、画面を表示したにもかからずForm_Load関数が呼び出されないことがあったからです。
調べてみると、ある条件のとき意図せずForm_Load関数が呼び出されてしました。
こうなった後に画面を表示しようとしても、Form_Load関数が呼び出されずに画面が表示されていました。
この時はなぜForm_Load関数が呼び出されかわかりませんでした。

そのためフォームをロードする前にフォームがロードされているかチェックして、ロードされていたらアンロードしてからロードするようにしました。

後日さらに調べてみたところ、Form_Load関数が呼び出される原因がわかりました。
原因は暗黙のフォームロードした場合、フォームのアンロード後にタイマーなどがフォーム上のコントロールに参照したからでした。
この場合、コントロールを参照する際に自動的にフォームのインスタンスを生成するため、Form_Load関数が呼び出されていました。

オンラインブートキャンプ はじめてのプログラミングコース

決定版 Visual Basic6.0―アプリケーション開発とプログラミング

紹介している一部の記事のコードはGitlabで公開しています。
興味のある方は覗いてみてください。

目次へ

---

私が勤務しているニューラルでは、主に組み込み系ソフトの開発を行っております。
弊社製品のハイブリッドOS Bi-OSは高い技術力を評価されており、特に制御系や通信系を得意としています。
私自身はiOSモバイルアプリやウィンドウズアプリを得意としております。
ソフトウェア開発に関して相談などございましたら、お気軽にご連絡ください。

また一緒に働きたい技術者の方も随時募集中です。
興味がありましたらご連絡ください。

EMAIL : info-nr@newral.co.jp / m-futamata@newral.co.jp
TEL : 042-523-3663
FAX : 042-540-1688

目次へ