accessVBAで下記のプログラムを作りました。
使用OSはXP、ソフトはaccess2003です
Private Sub コマンド2_Click()
Me.コマンド2.Caption = "計 算 中 で す"
Me.コマンド2.ForeColor = 255 ' 赤に
For i = 1 To 10000000
aa = 2 ^ 20
Next
Me.コマンド2.Caption = "待 機 中 で す"
Me.コマンド2.ForeColor = 8421376 ' 緑に
End Sub
"待 機 中 で す" ・・・は変更されますが、最初の"計 算 中 で す"は変更されません。
「コマンド2」をクリックした直後に、"計 算 中 で す"・・・と表示させたいのですが、
どうすれば良いでしょうか?
No.1ベストアンサー
- 回答日時:
画面を変更しても「変更イベント」が処理されるまで
何も変化しません。処理が終わって、Subを抜けた
時に溜まったイベントが一気に処理され、最後に
変更した"待機中です"だけが結果として見えます。
途中でイベントを消化させるにはDoEventsを実行
します。但し、このステートメントはイベントを反映
するため、危険を伴うこともあります。
とりあえず、最初の2個の命令後にDoEventsを
置けばよいでしょう。
No.2
- 回答日時:
Me.コマンド2.Caption = "計 算 中 で す"
Me.コマンド2.ForeColor = 255 ' 赤に
Me.Repaint ' ★この記述を追加
のようにしてみて、どうなりますか。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ①ExcelVBAでカレンダーを作り、別のユザーフォームで日付を入力したいのですがエラーになります。 1 2023/02/17 18:39
- Visual Basic(VBA) ユーザーフォーム「frm_基本❶」を立ち上げると新規で入力する行数を右下のNoとして表示しています。 1 2023/03/16 19:02
- Access(アクセス) Access IF文でテーブルに存在しない場合の処理について 2 2022/10/10 18:09
- MySQL 参考書に従って入力したつもりでしたが、最後はエラーがでました。 1 2022/09/28 03:45
- MySQL データベースの複製の仕方(mysql) 2 2023/05/30 18:24
- Access(アクセス) Accessのテキストボックスの入力文字制限 1 2023/01/18 20:43
- Visual Basic(VBA) EXCELのVBAについて 2 2023/07/05 17:17
- Visual Basic(VBA) Accessフォームで全レコードを指定のExcelのセルへ転送し印刷する方法について 2 2022/09/08 18:23
- Access(アクセス) アクセス テーブルの空白を変数に置換するボタンが作りたい 4 2022/07/08 11:19
- その他(SNS・コミュニケーションサービス) 自分のpcがハッキングされたようなメールが来たのですがどうすればいいですか? 4 2022/10/02 16:14
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
バッチファイルでキー操作を行う。
-
コマンドプロンプトで表示が多...
-
コマンドプロンプトが実行中か...
-
VBユーザーフォームで時間入力
-
RTX1100の削除コマンド
-
ttlで戻り値を取得する方法
-
コマンドプロンプトで文字入力...
-
コンボボックス(最終行取得)
-
コマンドプロンプトですべてのU...
-
Tera Term Proに関する質問です。
-
python でos.systemでの実行時...
-
VC++,SendMessage()の使い方
-
開発者コマンドプロンプト for ...
-
powershellで全角文字が文字化...
-
tcl/tkで標準出力に出される値...
-
HEXから元に戻すには
-
ルーターにつながっている全て...
-
Windows コマンドの使い方を教...
-
vb6.0のプログラム
-
シェルスクリプト
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
バッチファイルでキー操作を行う。
-
コマンドプロンプトで表示が多...
-
コマンドプロンプトが実行中か...
-
ttlで戻り値を取得する方法
-
VBユーザーフォームで時間入力
-
Tera Term Proに関する質問です。
-
TEXの表の位置が・・・
-
EEPROMのデータの初期化について
-
別のユーザーフォームのコマン...
-
PowerShell実行結果をデスクト...
-
コンボボックス(最終行取得)
-
コマンドキーがないんですけど...
-
コマンドプロンプトですべてのU...
-
dosバッチ起動後、画面を閉じな...
-
RTX1100の削除コマンド
-
ディスクの空き容量を取得する...
-
文字の点滅はどうやるのですか?
-
ルーターにつながっている全て...
-
makeコマンドのエラー
-
UDP通信での受信方法について
おすすめ情報