処理中にイベントを起こさせないためには？ (ID:89936)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 ちょっと作ってみました。 意味がちがっていたらごめんなさい。 一応ボタンA押して、ボタンBにEnabled = false して、Form2 をモードレス表示してその間にボタンB押してみました。 ボタンBを押した動作は何も起きませんでした。 (VB6.0 Windows XP) Form1にcommand1 command2 timer1 Label1 Label2 を貼り付けました ---------------------Form1 Option Explicit Dim Flg_Loop% Private Sub Command1_Click() Label1.Caption = "" Label2.Caption = "" Command2.Enabled = False ' timerに10秒設定 Timer1.Enabled = True Timer1.Interval = 10000 Label1 = "処理中です!!" Form2.Show 0 ' モードレス表示 ' 10秒仮想処理させる Flg_Loop = False Do While Not Flg_Loop DoEvents Loop ' 使用拒否の解除とTimerの解除 Command2.Enabled = True Timer1.Enabled = False End Sub Private Sub Command2_Click() Label2.Caption = "反応しました" End Sub Private Sub Timer1_Timer() ' 処理の終了 Flg_Loop = True End Sub