ポインタの砂時計代わりにランプで処理を表示する方法

このQ&Aのポイント
  • ポインタの砂時計の代わりにランプで処理を表示する方法を教えてください。
  • 次の処理中はランプを赤で表示し、処理が終わったら黒で表示したいです。
  • Shape1.FillColor = &HFF の部分を処理の前に設定し、処理が終了したら Shape1.FillColor = &H0& にする方法ではうまくいかないようです。なにか他の方法がありますか?
回答を見る
  • ベストアンサー

ポインタの砂時計の代わりにランプで。。。。

ある処理を行うときに、処理中はポインタを砂時計にするには  Screen.MousePointer = vbHourglass   処理内容  Screen.MousePointer = vbDefault にしますが、砂時計の代わりに、ランプを赤で表示するにはどうしたら いいのですか?(処理が終わったら黒で表示)  Shape1.FillColor = &HFF   処理内容  Shape1.FillColor = &H0& でいけると思ったのですが、どうやら、完全に処理が終わらないと、 色が変化してくれないようなので・・・・。(黒のまま) なにかいい方法があったら教えてください。(Shapeでなくても可)

質問者が選んだベストアンサー

  • ベストアンサー
  • honiyon
  • ベストアンサー率37% (331/872)
回答No.1

こんにちは、honiyonです。 Shape1.FillColor = &HFF DoEvents ^^^^^^^^   処理内容 Shape1.FillColor = &H0&  としてみてはいかがでしょうか?    外していたらごめんさない(..

mashiro78
質問者

お礼

アドバイスどおりで出来ました!! ありがとうございました。。。m(._.)m また機会があったらよろしくお願いいたします。 それでは。

関連するQ&A

  • マウスポインタが頻繁に砂時計に

    最近新しくパソコンを買いました。 中に入っているOSはWinXPHomeですが、買ってそうそうおかしい部分があります。 マウスポインタが頻繁に砂時計になってしまうのです。 だからといって、長時間砂時計になっているのでなく、 一瞬、砂時計に変わったと思ったら1秒のみで、また普通のマウスポインタに 変わってしまいます。なので、別に使っていて処理が思いたい事はないのですが、 すごく気になります。 このような現象というのは、何が原因で起きているのでしょうか?

  • 矢印の横の砂時計は どうして消えないの?

    マウスを動かすと付いてくる ← 矢印(ポインター)って言うのかな?その横に砂時計が出ていて これが、中々消えません^^; パソコンの電源の近くに ハードディスク・アクセスランプもずっと点滅したままなんですが、どうしてでしょうか  すっごく重たいです。 今も、このタイピングを打つのも重たくて大変で・・・^^; いつも こんなに重くないのに どうしてなのか分かりません。 ウィルスにやられちゃったのかなって思ったり…(こわぃ^^;) この砂時計は どうして消えないのか  ウインドウを全部閉じても ずっと出てるんです。 さっき(関係ないかも知れないけれど)デフラグもやってみました。 重いのは、この矢印の横にある砂時計と関係あるでしょうか? 再起動してみたりしても消えないんです。 重い~ここに質問する文字を打つのも一苦労~^^;; 助けて下さい。もしかしたらウィルスにやられちゃったのでしょうか 昨日までは何でもなかったんです。(ノTωT)ノ  砂時計は どうしていつまでも消えないのでしょうか  

  • ポインタの表示の右横に砂時計のアイコンが表示されたまま取れません。1回

    ポインタの表示の右横に砂時計のアイコンが表示されたまま取れません。1回再起動して、今度は電源を切りコードも一度抜いてから再度立ちあげたのですが、ポインタと砂時計のアイコンが一緒になって現れたままです。どこかで何かが作動中なのでしょうか。いまインターネットとメール、エクセル等は使えます。アドビリーダーが接続できなくなってます。原因はこれでしょうか。

  • 砂時計を違う表示にする方法は?

    処理中の砂時計を違う表示にするにはどうすればいいですか? ほかの人で、犬が走っているものになっているのを見ました。

  • ポインタの待ち状態で

    マウスのポインタが待ち状態の時、 砂時計にし、かつ、砂時計の上下を反転させたいのですが、 何か方法はありますか? 「コントロールパネル」→「マウス」→「ポインタ」→「待ち状態」をクリック すると、プレビューに砂時計が表示されるのですが、反転はしてくれません。 参照で違うマウスを選んでも同様です。 何が足りないのでしょうか。 教えてください。お願いします。

  • PrintScreenでポインタが消える

    PrintScreenをするとマウスのポインタが消えます。 ドラッグなどの処理は出来ますがポインタは消えたままで、 普段のポインタ→砂時計 になると現れます。 よく分からないのですがデバイスのディスプイレイアダプタの 問題でしょうか?

  • pdfファイルにマウスを移動すると砂時計になる

    エクスプローラに表示されているpdfファイルにマウスポインタを移動するとポインタが砂時計になります。 タスクマネージャのタスクを見ると砂時計になっている間(1~2秒)だけAcroRd32.exeが起動されていました。 pdfファイルをマウスが通過するたびに砂時計になり、うっとうしいのでやめたいです。 設定変更は出来ますか? また、この時AcroRd32.exe(アクロバットリーダーだと思うのですが)は何をしているのでしょうか? ご存じのかたがいらっしゃいましたら教えて下さい。

  • 何もしないで放置しているとポインタが砂時計表示

    パソコンを何も触っていない状態で放っておくと 数分後にマウスのポインタに砂時計表示が現れ一秒おきに 正確に点滅を始めます。 その時キーボードやマウスをちょっとでも動かしたりすると砂時計は消えます。 不正プログラムやウイルスの類かと思い AVGウイルススキャン、zone alarm、ad-aware、 またスキャンディスク、デフラグ等も試しましたが症状は消えません。 環境は自作PCでWinXPHome、Pen41.8G、メモリ512MB サウンド&ビデオはオンボード 起動しているソフトは ぷちらんちゃ、POPFile、マウ筋、AVG、UD-Agent、zonealarmです。 何度か起動させるソフトを変えたりしてみましたが 恐らくzone alarmかavgでは無いかと思ってます。 実害が無いなら良いのですが点滅する理由が分かる方 いらっしゃればご教授ください

  • マウスポインターを赤色にしたい。

    マウスポインターは砂時計や黒色を選ぶことが出来ますが赤色(矢印)にする事は出来ないでしょうか。

  • パソコンの砂時計が消えない

    友人のPCが起動してもデスクトップの画像とマウスポインタ(砂時計状態)しか表示されない状態になってしまったそうです。 そこで私はセーフモードで起動してシステムの復元をすることを勧めたのですが、セーフモードで起動しても上と同じ状態でシステムの復元をすることができないそうです。 この状態でシステムの復元をする方法はないでしょうか? もし知っている方がいましたら教えてください。 追記、OS Me    故障原因 windows アップデートの失敗(らしい)