以下のようなプログラムの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
返信する
最新の投稿: お久しぶりです、いかがお過ごしでしょうか。 最新のメンバー: gantez 最近の投稿 未読の投稿
