コマンドボタンのイベントを回避するには？ (ID:104158)

名前

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

本文 コマンドボタンのClickイベント中に押された マウスイベントを無効にするには、コマンド ボタンを無効(Enableプロパティ = False)状態 にしてイベントを受取ってあげれば良いです。 無効状態の時にマウスクリックしても、イベントは 発生しませんよね。 具体的には次のようになります。 ただ、DoEventsはその他の弊害も考えないといけないので 多用しない方が良いと思いますが...。 Private Sub Command1_Click() Dim I As Long Static iCount As Integer Command1.Enabled = False ' ここで無効にして Command1.Visible = False DoEvents ' ボタンを見えなくするために入れた ' なんかの忙しい処理のかわり For I = 1 To 10000000 Next I ' クリックイベントを受けとてないことを確認するため ' クリックイベント発生ごとに数字をカウントして表示 iCount = iCount + 1 Label1.Caption = CStr(iCount) DoEvents ' 上の長い処理中に発生した ' イベントを吐き出す Command1.Enabled = True ' ボタンを有効にする Command1.Visible = True End Sub