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

名前

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

本文 >ちょっと作ってみました。 少し変えました。 Option Explicit Private Sub Command1_Click() Dim i As Long Dim j As Long Label1.Caption = "" Label2.Caption = "" Label3.Caption = "" Label1 = "処理中です!!" Command2.Enabled = False Me.Refresh Form2.Show 0, Me For i = 0 To 100000 Label3.Caption = i & "/100000" ' DoEvents Next i Command2.Enabled = True Label1.Caption = "" End Sub Private Sub Command2_Click() Label2.Caption = "反応しました" End Sub これを実行していただくとわかるのですが、こういう感じになるのです。 このコードではDoEventsをコメントにしていますが、この場合だとDoEventsを書くと正しく動作はします。 しかし、自分が書いているコードではループしている場所のコードが違う感じです。DoEventsを入れると5秒ぐらいは大丈夫ですが、処理が終わる3秒前ぐらいに押すとイベントが起きてしまいす。