●詳細●
処理が実行されていることや、どのボタンがクリックされたのかを表す手段の1つとして、コマンドボタンがクリックされたら標題や前景色を変更する方法があります。
例えば、クリック前は標題に「更新処理」と設定されているコマンドボタンがあるとします。クリックされると標題が「更新処理中」と変化すれば、処理が実行されていることを知らせることができます。
サンプルでは、「実行」という標題のボタンをクリックすると、「処理実行中」と標題が変更され、更に前景色が赤になります。そして、メッセージボックスが表示され、[OK]ボタンをクリックすると、標題と前景色が元の状態に戻ります。
このプロシージャは、コマンドボタンがクリックされた時に発生するイベント「Click」に作成します。
●準備●
フォームにコマンドボタン「コマンド0」を配置してください。
コマンドボタンのプロパティシートで、標題には「実行」、前景色を黒に設定します。
●サンプル●
Private Sub コマンド0_Click()
Me!コマンド0.Caption = "処理実行中"
Me!コマンド0.ForeColor = RGB(255, 0, 0)
MsgBox "処理が終了しました"
Me!コマンド0.Caption = "実行"
Me!コマンド0.ForeColor = RGB(0, 0, 0)
End Sub
