以下のようなプログラムを作成し、実行すると、実行時エラー(5)が発生するのですが、
理由と回避策がわかりず、困っています。このような現象を知っている方がおられ
ましたら、ご教授ください。
(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
すいません、送信を押し間違えました。
返信する
最新の投稿: モードレスダイアログの子のモーダルダイアログ表示中に親のモードレスダイアログを操作禁止にしたい 最新のメンバー: amamiya 最近の投稿 未読の投稿
