マウスポインタの変更

マウスポインタの変更に関する質問です．

現在VB6を用いて作成しているアプリケーションにおいて
ピクチャボックスに画像を描画する部分があります．
この画像に関しまして，拡大・縮小を行えるようにしました．
これに加え表示部を移動させる機能を加えたいと思っております．
イメージとしてはPDFファイルを読むときのように
手のようなアイコンを用いてドラッグして操作する形です．

このとき，アイコンがピクチャボックス上にあるときのみ
アイコンを手の形に変えたいと思っています．
やり方が今いちわかりませんので，よろしくお願いします．
また，手のアイコン画像の入手先も教えていただけると助かります．

以上，よろしくお願いいたします．

No.2 ベストアンサー 回答者： Wizard_Zero 回答日時： 2009/08/18 16:58

おそらく拡大されています。

マウスカーソルの画像は32x32で用意してください。

この回答へのお礼

ありがとうございます！
こんなことに気づかないとは・・・失礼いたしました．
希望がすべてかないましたので解決とさせていただきます．
大変ありがとうございました．

お礼日時：2009/08/18 19:07

No.1 回答者： Wizard_Zero 回答日時： 2009/08/16 23:05

' ファイルから読み込む場合

Picture1.MousePointer = vbCustom
Picture1.MouseIcon = LoadPicture("hogehoge.cur")

' リソースから読み込む場合
Picture1.MousePointer = vbCustom
Picture1.MouseIcon = LoadResPicture("hogehoge")

手形のカーソルはご自分で用意する必要があります。(入手先は分かりません。私は自分で書いてます)
ICOファイルだとホットスポットの設定が(VBだけでは)できなかったと思うので、CURファイルで用意したほうがよいと思います。

この回答へのお礼

ご回答ありがとうございます！
参考にやってみましたところ目的を達成いたしました．
リソースファイルにCURファイルを組み込む方法を採用しております．

期待通り，ピクチャボックス上でマウスアイコンを変更することが
出来たのですが，表示されるアイコンが妙に大きくなってしまいます．
16×16ピクセルで作っているのですが，どうも
倍くらいに表示されているような・・・

もしこれを直す方法がありましたらぜひお教えください．
よろしくお願いいたします．

お礼日時：2009/08/18 11:20