• 締切済み
  • すぐに回答を!

Windowsのカーソルを変更

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

共感・応援の気持ちを伝えよう!

  • 回答数5
  • 閲覧数710
  • ありがとう数6

みんなの回答

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

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 を入れたらとたんに変になりますね。

共感・感謝の気持ちを伝えよう!

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

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

共感・感謝の気持ちを伝えよう!

質問者からのお礼

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

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

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

共感・感謝の気持ちを伝えよう!

質問者からのお礼

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

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

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

共感・感謝の気持ちを伝えよう!

質問者からのお礼

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

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

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

共感・感謝の気持ちを伝えよう!

質問者からのお礼

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

関連するQ&A

  • カーソルの変更

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

    • ベストアンサー
    • Mac
  • カーソルの変更について教えて下さい

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

  • mac風のカーソル欲しい~~!!

    今使用しているwindowsのカーソルをmac風のカーソルに変更して見たいのですが 見つかりません。mac風のアイコンは沢山見つかったのですが、 マウスカーソルがなかなか見つけられません。 どなたかご存知の方おりましたら教えてください。 お願いします。

  • Windowsアプリケーションでカーソルを変える

    Windowsアプリケーションで クライアント領域のみでカーソルを変える方法がわかりません。 wc.hCursor = (HCURSOR)LoadImage(NULL, "scope.cur", //カーソルファイル IMAGE_CURSOR, 0, 0, LR_DEFAULTSIZE | LR_SHARED); と、ウィンドウクラスの登録を行えばできると思うのですがやってみてもできません。カーソルを変える方法をご存知でしたら教えてください。

  • カーソルの変更ができない…

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

  • カーソル変更

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

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

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

  • テキストボックスでのカーソルについて

    VB6で作ったフォームでテキストボックスにフォーカスが移ったときに既に入っている文字列の先頭にカーソルがいるのですが、これを文字列をすべて選択した様に(反転表示)にならないか、または文字列の最後尾にカーソルを置けないか、悩んでいます。よろしくお願いいたします。

  • Photoshopで目立つカーソルに変更したい

    以前CorelPhotoPaintを使っていて、最近Photoshop Ver7に変更しました。そこでとても不便に思うのは、例えば写真の中の円形の物を切り取りをする場合、円形の選択ツールで円形の左端、上端を結んだ交点から右端、下端の交点へドラッグして選択することになるのですが、モニターの設定が1280x1024で使っているのですが、カーソルがとても小さく見にくく、バックがグレーだともう分かりません。オプションのカーソル変更でも無理なようです。Corelでは十字カーソルの縦横が端から端まで伸びる設定があったのでこの交点はとても見やすかったのです。同じような機能、もしくはカーソルが大きく目立つように設定を変更できる機能はありませんか? よろしくお願いします。

  • テキストカーソル(キャレット)の変更

    午前中 カーソルの変更についてお尋ねしましたが 質問のしかたが悪かったようで 意味が伝わらなかったようですので 再度お尋ねします。 タイトル通り キャレットに色を付ける簡単な方法は無いでしょうか。現在は 灰色です。ブリンクの間隔は 簡単に変わるのですが 色・形の変更の項目はありません。よろしく お願い致します。