vb.net - Interop Forms Toolkit を使用して、フォーム読み込みイベントが 2 回発生する

Question

私は、相互運用フォームツールキットの使用に関する codeproject の記事に従っています (基本的には、開発者が VB6 で .net コンポーネントを実行できるようにすることで、VB6 プロジェクトを .net にゆっくりとアップグレードする方法です)。

.NET フォームは他のすべてのテストプロジェクトおよび環境で正常に動作していますが、Form_load イベントが VB6 ランタイムで実行されると、実際には 2 回発生することがわかりました。

煩わしいだけでなく、初期化コードを 2 回実行する必要があります (2 回目の実行であらゆる種類の問題が発生します)。

なぜこれが起こっているのかについての説明はありますか (理由を理解したいのですが)?

これを回避するためのより良い方法はありますか

 If (runBefore = True) Then

score 2 · Accepted Answer

別のモジュールからフォーム内のパブリック変数にアクセスして暗黙的にフォームの読み込みを開始し、読み込みが完了する前にフォームを明示的に表示すると、これが発生する可能性があります。

score 0 · Accepted Answer

こんにちは、私はこれを試しましたが、動作します..

私はそれをform_activateに入れました。基本的に、フォームが既にロードされているかどうかをテストします。ある場合は、アンロードします。i をカウンターとして使用します。

Private Sub Form_Activate()

Dim TestForm As Form
i = 0
For Each TestForm In Forms
    If TestForm.Name = "frmStocks" Then i = i + 1
    If i = 2 Then Unload Me
Next TestForm

サブ終了

2 に答える 2