メニューバーについて (ID:87337)

名前

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

本文 ドラッグ中では、ありません。具体的にいうと フォームにボタン１つ、プログレスバーを１つ貼り付けて、 メニューをmnuOption を追加します。 メインフォームでボタンを押すと以下のようなプログレスバーを単純に 表示するような処理をおこないます。そのままだと制御が戻ってこなくなるので DoEvents をいれておきます。 ボタンを押すとプログレスバーに経過が表示され始めます。そこで 淡色表示の メニュー mnuOptionをクリックするとmnuOption がへこんだままプログレスバーの表示が止まってしまいます。（制御が戻らないようです） mnuOption.Enabled = False を True にしておけば、クリックした時 だけ制御が移るようです。淡色表示の時になぜ制御が戻ってこないのでしょうか？ Private Sub Command1_Click() Dim i As Integer, j As Integer mnuOption.Enabled = False For i = 0 To 1000 For j = 0 To ProgressBar1.Max ProgressBar1.Value = j DoEvents Next j Next i End Sub