実行時エラー5

[戻る]
まだまだVB6 2010/06/02(水) 11:17:42
以下のようなプログラムのEXEファイルを作成してから、EXEファイルにて実行すると
実行時エラー(5)が発生するのですが、理由と回避策がわかりず、困っています。
このような現象を知っている方がおられましたら、ご教授ください。

※VBのIDE環境なら動くのですが、EXEファイルで実行すると発生します。

(1)フォームを2つ新規に作成する。
   これをForm1、Form2とする。
(2)Form1にコマンドボタン(Command1)とテキストボックス(Text1)を貼り付ける。
(3)Form1のコードを以下のようにする。

Option Explicit

Private Sub Command1_Click()
    Form2.bFlag = False
    Form2.Show vbModal
    If Form2.bFlag = True Then
        MsgBox "OK"
    End If
End Sub

Private Sub Form_Activate()
    Me.Text1.SetFocus
End Sub

(4)Form2にコマンドボタン(Command1)を貼り付ける。
(5)Form2のコードを以下のようにする。

Option Explicit

Public bFlag As Boolean
Private Sub Command1_Click()
    bFlag = True
    Me.Hide
End Sub

古いスレッドには追加発言できません。