🚀 go-pugleaf

$B$3$s$K$A$O!#6L>k$G$9!#(J

$BF#86!!N<0l(J <rfuji@coco.ned.co.jp> wrote in article
<6cm5hd$l4f$1@nedsv.ned.co.jp>...
> $B=i$a$^$7$F!"#V#B$N=i?4<T$G$9!#(J
> 
> $B%U%)!<%`$N30$K%^%&%9%+!<%=%k$,=P$?$H$-$K$b!"(J
> $B%+!<%=%k$N7A>u$rJQ$($?$$$N$G$9$,(J
> $B$I$&$d$C$F$b=PMh$^$;$s!#(J
> $B$I$J$?$+!"$4B8$8$NJ}$,$$$^$7$?$i!"65$($F2<$5$$!#(J

Screen$B%*%V%8%'%/%H$N(JMousePointer$B%W%m%Q%F%#$r@_Dj$9$l$P(J
$B$h$$$N$G$O$J$$$G$7$g$&$+!#(J

_/_/_/ $B6L>k??I'(J tamaki@tinet-i.ne.jp
_/_/_/ Visual Basic$BA}6/:n@o(J http://www.vector.co.jp/authors/VA010786/

さっそくの御返事ありがとうございます。
ScreenオブジェクトのMousePointerプロパティを設定すれば・・・
ということですが、現在以下のようなプログラムで実現しようと
しています。（最初から処理方法を書いておけば良かった）
フォーム内であれば、マウスカーソルは変更できています。

Private Sub Timer1_Timer()
    'マウスカーソルを変更する
    Screen.MousePointer = 99
    Screen.MouseIcon = LoadPicture(FileName)

どこか他に注意点はあるでしょうか？
もう、完全に煮詰まっています。よろしくお願いします。
ちなみにＶＢ５を使っています。

ＰＳ．　ニュースグループ初体験なので、返事を直接メールを送信
　　　　してしまいました。大変失礼しました。
ＰＳ２．どうしても、思った場所にメッセージを送ることが出来ずに、
　　　　あちこちにメールを送ってしまいました。
　　　　わざとではないので、勘弁してください。次回から注意します。

　　　　２度も変なメールを送ってしまいすみません＞玉城さん
　　　　返信を変な場所に書き込んでしまいすみません＞皆様


TAMAKI Masahiko wrote in message
<01bd3faa$9e4a46a0$LocalHost@tamaki.tinet-i.ne.jp>...
>こんにちは。玉城です。
>
>藤原　亮一 <rfuji@coco.ned.co.jp> wrote in article
><6cm5hd$l4f$1@nedsv.ned.co.jp>...
>> 初めまして、ＶＢの初心者です。
>>
>> フォームの外にマウスカーソルが出たときにも、
>> カーソルの形状を変えたいのですが
>> どうやっても出来ません。
>> どなたか、ご存じの方がいましたら、教えて下さい。
>
>ScreenオブジェクトのMousePointerプロパティを設定すれば
>よいのではないでしょうか。
>
>_/_/_/ 玉城真彦 tamaki@tinet-i.ne.jp
>_/_/_/ Visual Basic増強作戦 http://www.vector.co.jp/authors/VA010786/
>
>

$B$3$s$K$A$O!#6L>k$G$9!#(J

$BF#86!!N<0l(J <rfuji@coco.ned.co.jp> wrote in article
<6crcon$g99$1@nedsv.ned.co.jp>...
> $B$5$C$=$/$N8fJV;v$"$j$,$H$&$4$6$$$^$9!#(J
> Screen$B%*%V%8%'%/%H$N(JMousePointer$B%W%m%Q%F%#$r@_Dj$9$l$P!&!&!&(J
> $B$H$$$&$3$H$G$9$,!"8=:_0J2<$N$h$&$J%W%m%0%i%`$G<B8=$7$h$&$H(J
> $B$7$F$$$^$9!#!J:G=i$+$i=hM}J}K!$r=q$$$F$*$1$PNI$+$C$?!K(J
> $B%U%)!<%`Fb$G$"$l$P!"%^%&%9%+!<%=%k$OJQ99$G$-$F$$$^$9!#(J

$B$9$$$^$;$s!#;d$NAa$H$A$j$G$7$?!#(J
From.MousePointer$B$G@_Dj$7$FBLL\$J$i!"(J
Screen.MousePointer$B$G@_Dj$9$l$P(J...$B$H9M$($?$o$1$G$9!#(J

$B$=$l$G!"JL$N2r7hJ}K!$G$9$,!"(J
($B2>$K!";HMQ$5$l$F$$$k(JVB$B$,(Jfor Windows$B$@$C$?$H$9$k$H(J)
$B%3%s%H%m!<%k%P%M%k$N@_Dj$rD>@\JQ99$9$k$N$,(J
$B:G$b3N<B$G$O$J$$$+$H;W$$$^$9!#(J
# $B$"$^$j$*4+$a$G$-$^$;$s$,(J....

_/_/_/ $B6L>k??I'(J tamaki@tinet-i.ne.jp
_/_/_/ Visual Basic$BA}6/:n@o(J http://www.vector.co.jp/authors/VA010786/

田川＠イントラネットシステムです。

先日は誤って別のニュースグループにポストするはずのものを
ここにポストしてしまいました。すいません。(_o_)


藤原　亮一 wrote in message <6cm5hd$l4f$1@nedsv.ned.co.jp>...
>フォームの外にマウスカーソルが出たときにも、カーソルの形状を変えたいのです
が
>どうやっても出来ません。
>どなたか、ご存じの方がいましたら、教えて下さい。


ちょっと違う質問です。

フォームの枠の上に来たときに <--> みたいなマウス形状にしたいのですが
どうやればいいのでしょうか？

以前は勝手に変わってくれていたのですが、
Form_Resize イベントを拾うようにしたら、マウスポインタを枠の上に
持っていっても形状が変わらなくなってしまいました。

Visual Basic 5.0 + SP3 です。
----
    〒105  港区芝大門2-5-5 住友芝大門ビル9F
    イントラネットシステム株式会社 ＩＴ部
    田川  勇治  (Email: yujit@intranet.co.jp)
    (TEL: 03-5403-2688(Ext.537)    FAX: 03-5403-0940)

>ScreenオブジェクトのMousePointerプロパティを設定すれば
>よいのではないでしょうか。

私も元記事を読んでその方法で出来るんじゃないかと試してみましたが、
出来ませんでした。

-- 
By Akio    Email: aiwasaki@pb.highway.ne.jp

>
>すいません。私の早とちりでした。
>From.MousePointerで設定して駄目なら、
>Screen.MousePointerで設定すれば...と考えたわけです。
>
>それで、別の解決方法ですが、
>(仮に、使用されているVBがfor Windowsだったとすると)
>コントロールバネルの設定を直接変更するのが
>最も確実ではないかと思います。
># あまりお勧めできませんが....
>

こんにちは、藤原です。
どうしても、あきらめきれないのでもう少し質問させて下さい。
コントロールパネルを直接変更するというのは、ＶＢからでも
可能なのでしょうか？
もし、可能であればその方法を教えて下さるとありがたいです。


素朴な疑問ですが、マウスが「たまごっち」になるソフトを見た
ことがあるのですが、どうやって実現しているのでしょうか？
ＶＢでは不可能なのでしょうか？

ＶＢはｗｉｎｄｏｗｓ版を使用しています。
Ｖｅｒ５．０ですがＳＰなしです。

In article <6d04h3$3su$1@nedsv.ned.co.jp>, 藤原　亮一 wrote:
>こんにちは、藤原です。
>どうしても、あきらめきれないのでもう少し質問させて下さい。
>コントロールパネルを直接変更するというのは、ＶＢからでも
>可能なのでしょうか？
>もし、可能であればその方法を教えて下さるとありがたいです。

上記の方法と等価かどうか分かりませんが、Win32 API の
SetSystemCursor 関数を使用すれば、なんとかなるのでは
ないでしょうか。

-- 
Computer Institute of Japan, Ltd.
佐藤正宏 masahiro@cij.co.jp