• 締切済み

Windowsのカーソルを変更

VB6からWindowsのカーソルを変更する方法を教えてください。 お願いします。

みんなの回答

  • bin-chan
  • ベストアンサー率33% (1403/4213)
回答No.5

WinME上のVSVB6で試してみたところ、 Sub Main() Dim nCounter As Long Screen.MousePointer = vbHourglass For nCounter = 0 To 420000000 ''''ここは時間稼ぎ Next nCounter Screen.MousePointer = vbDefault End End Sub で、カーソルは変わるには変わります。 でも DoEvents を入れたらとたんに変になりますね。

  • amania
  • ベストアンサー率22% (2/9)
回答No.4

マウスポインターを変更するには、screen.mousepointerに値を設定すれば良いのです。 設定する値は、VBで変数が提供されています。 (詳しくは、HELPで見てくださいね。) 砂時計=vbHourGrass 初期値=vbDefault 処理を実行する前に砂時計をセットして、終了したら初期値をセットするといった感じで、いかがでしょう? 最後に一言。 回答と返す人たちも、手助けできるようにと思って回答してくれていると思います。 質問する人も、どうしたら意図を感じとってもらえるか、少しだけ考えてから質問しましょう。 じゃあ、頑張ってください。

PPinky
質問者

お礼

ご忠告ありがとうございます。 私の方でも質問の仕方がよくなかったと思ったので、 下のほうに再度書かせて頂いています。 そちらも見ていただけたら幸いです。 一応書かせていただきます。 フォームのない実行ファイルを起動したときに、 マウスポインタを砂時計にしたいんです。 screen.mousepointerはフォーム内でしか有効じゃないかと思います。 やりたいのは「デスクトップ上、どこにいても砂時計」です。 ご理解いただけましたでしょうか?

  • kee
  • ベストアンサー率13% (63/457)
回答No.3

マウスカーソルは通常、実行しているアプリケーションが握っています。 ゆえに、VBで作ったものは簡単に変更できることは了承していることと思います。 そして、シェルに関連しているものも、ウィンドウズの設定で可能です。 ただし、他のアプリケーションに関しては、ウィンドウハンドルを取得して、 それに関して、ウィンドウのクラスのhCursorメンバを変更することによって 変更することになります。

PPinky
質問者

お礼

ありがとうございます。 ご参考にさせていただきます。

  • mnabe
  • ベストアンサー率33% (427/1283)
回答No.2

なんのカーソル?? マウスカーソル? 入力カーソル?  マウスカーソルなら、使用しているコントローラに依存して変更可能です。  入力カーソルの変更は簡単に出来ません。APIを駆使するか、入力カーソルを変更出来るコンポーネントを作ればOKです。  なんにせよどんな事がしないのかを明確に書いて下さいね。

PPinky
質問者

お礼

失礼しました。 下でも書きましたが、フォームのない実行ファイルを起動した際に、 マウスポインタをデフォルトから砂時計にしたいです。 で、実行終了前に砂時計からデフォルトに戻したいのです。 APIでSetCursorだとかLoadImageだとか使おうとしたのですが、 うまくできません。 すいませんが、よろしくお願いします。

  • bin-chan
  • ベストアンサー率33% (1403/4213)
回答No.1

> VB6からWindowsのカーソルを変更する方法を教えてください。 実行中に砂時計にするならScreen.MousePointer=vbHourGlass(つづり忘れた!)という意味でしょうか? 自分自身のフォーム上ならMe(ここにはフォーム名).MousePointerでOK。 それとも[コントロールパネル]-[マウス]-[ポインタ]-[デザイン]で 指定するマウスポインタでしょうか?

PPinky
質問者

お礼

失礼しました。 詳しく書かせて頂きます。 フォームのない実行ファイルを起動した際に、 マウスポインタをデフォルトから砂時計にしたいです。 (なのでScreen.Mousepointerは使えない?) で、実行終了前に砂時計からデフォルトに戻したいのです。 すいません、よろしくお願いします。

関連するQ&A

  • マウスカーソルを自作のものに変更する

    現在、VB2005でアプリケーションを作成しております。 マウスカーソルがある特定の位置にあるときに、 マウスカーソルを自分で作成したものに変更 したいと思っております。 マウスカーソルの位置の特定はできたのですが、 マウスカーソルを自作のマウスカーソルへの変更 方法がわかりません。 どなたか、お知恵を拝借ください。 よろしくお願いします。

  • Windowsのマウスカーソル変更について

    Windows10でマウスカーソルを独自のものに変更しようと思うのですが、cursorファイルに入れているのにその画像に変更できません拡張子はちゃんと.curになっています、何故でしょう?

  • カーソルの変更

    カーソルを変更したいのでが検索してもほとんどがWIN対応なので困ってます。Macのカーソルは変えられないのですか?ちなみにパワーパフガールズのカーソルにしたいです!変更方法を教えて下さい!OSは9です。

    • ベストアンサー
    • Mac
  • カーソルの変更ができない…

    Windows7のHomePremium32ビットを使用しています。 カーソルのデザインを変更したくて、ネット上でダウンロードしてきたものに変えていきました。 その時はきちんと変更できていたのですが、パソコンを再起動した際、元のカーソルデザイン(Windows Aero)に戻っていました。 何度変更しても再起動するたびに戻ってしまいます。 どうすれば好みのカーソルデザインに固定することができるのでしょうか? 回答、アドバイス等よろしくお願いします。

  • カーソル変更

    Windows100%(6月号・7月号)のディスクに入っていたカーソル変更ソフトをインストールしたんですが、 問題が発生したため、CurXPUtil.exeを終了します。ご不便をおかけして申し訳ありません。 と表示され、 さらに、変更用テーマをダブルクリックしても同じものが表示されます。 なにをやってもカーソルを変更できません。 なんとかなりませんか?

  • ExcelVBA上でのマウスカーソルの大きさ変更

    ExcelVBAに関する質問です。 ExcelVBAに関する質問です。ExcelVBAではデフォルトのマウスカーソルの大きさを変更(例えば2倍に大きくするなど)すること可能なのでしょうか? マウスカーソルが特定のボタンに触れたとき、マウスカーソルが大きくなるようなプログラムを、VBAで作成したいと考えております。 VBAに関して知識のある方、是非お力を貸していただきたいです! ・自分で考えたこと マウスカーソルの大きさを変更する手段は2つあると考えました。 1,マウスカーソルをデフォルトのn倍にすること 2,マウスカーソルをデフォルトから、n倍の大きさのマウスカーソルの画像に置き換えること 前者については、調べた中では難しそうだと感じました。 後者に関しては、javaやVBなどの言語でマウスカーソルを特定の画像に置き換えることが可能であることがわかりました。 ただ、VBAである特定の条件になった時に、マウスカーソルをデフォルトから特定の画像に変更するプログラムのサンプルは見つかりませんでした。 (VB.Netだとhttp://d.hatena.ne.jp/RIREX/20120507/1336397369にあるような例が見つかりました) ・回答していただきたいこと(1が難しいと感じた場合でも、他の1つでも回答していただけると嬉しいです) 1.特定のボタン上にきた時に(注意:左右クリックはしない)、マウスカーソルが大きくなるようなプログラムの具体的なサンプルを教えていただきたいです! やってほしい度合い:★★★★★ 2.VBAにおいてマウスカーソルをデフォルトからn倍にする方法はあるのか?マウスカーソルの座標とは切り離して、実行すればマウスカーソルの大きさが変更されるプログラムの具体的なサンプルを教えていただきたいです! やってほしい度合い:★★ また、仮にVBAで特定の画像を読み込み、デフォルトカーソルをその画像と変更できる場合の画像は、例えばどのような形式のファイルで、どの様にパスを設定すれば良いかも簡単に教えていただけると嬉しいです! ・注意  「マウスカーソルをデフォルトから、他の形に変更したい」のではなく、「マウスカーソルの大きさをExcelVBAのプログラム上で変更したい」です!

  • マウスカーソルを変更したい。

    CSSでマウスカーソルを変更したいと思います。 標準マウスのカーソルを変更するのはできるのですが、 テキストフォーム上、ボタン上、GoogleMapsAPI上での マウスカーソルの変更方法などはありませんか?

  • カーソルの変更について教えて下さい

    ホームページで、カーソルをZIPの画像を使ってカーソルを変更したいのですが、それはどの様なソースで変更出来るのかを教えて下さいませんでしょうか?宜しくお願い致します。

  • カーソルの大きさが太くなった

    Windows7のパソコンを使い始めたのですが、しばらくするとカーソルが太くなってしまいました(5ミリ位)。BackやDeleteのときや間に文字を挿入するときに位置が定まらずとても不便です。カーソルサイズの変更の方法を教えてください。

  • Windows10で、カーソルが消えるので...

    Windows10で、コマンドラインを使っているとカーソルが消えることがあります。 ネット検索すると、 一度powershellしてexitして戻ってくればカーソルが復活する 的な情報発見 実際にやってみるとその通りでした。 しかし、powershellが起動するまでが遅いし、更にそれを待ってからexitと打たなければなりません。 これ、時間が掛かるのはしょーがないとして、せめて待つのを何とかしようと C:>powershell -command "exit" としたのですが、戻ってくるんだけど、その時にカーソルが消えたままなんです。 他に方法はないんすかね