[VB6] SP3: UserDocument にモーダルダイアログ ボックスを表示する

先頭へ戻る

再現手順

1. Visual Basic で新規の ActiveX Document EXE プロジェクトを作成します。
2. User Document にコマンド ボタンを配置します。 User Document に次のコードを記述します。

        Private Sub Command1_Click()
              Dim frm1 As New Form1
              frm1.Show vbModal, Me
              Unload frm1
              Set frm1 = Nothing
        End Sub
   

3. プロジェクトに新しいフォームを追加し、名前を Form1 にします。
4. このフォームにコマンド ボタンを配置します。
5. フォームに次のコードを記述します。

        Private Sub Command1_Click()
             Dim frm1 As New Form1
             frm1.Show vbModal, Me
             Unload frm1
             Set frm1 = Nothing
        End Sub
   

6. プロジェクトを実行します。
7. Command1 ボタンをクリックします。Form1 が表示されます。
8. Form1 のコマンド ボタンをクリックします。もう 1 つのフォームのインスタンスが表示されます。
9. すべてのフォームを閉じます。
10. インターネット エクスプローラのウインドウを閉じます。

先頭へ戻る