実行時エラー5

最新の投稿

RSS

まだまだVB6

(@まだまだVB6)

ゲスト

結合: 14年前

投稿: 4

2010年6月2日 11:19 AM

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

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

(1)フォームを２つ新規に作成する。
これを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

(6)EXEファイルを作成する。
(7)EXEファイルにて実行する。
(8)Form1のコマンドボタン(Command1)を押下し、
Form2のコマンドボタン(Command1)を押下する。

引用解決済

トピックタグ

VB VisualBasic