🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: fj.lang.visualbasic
Article #621

フォームの外でもマウスの形状を変えたい

#621
From: 藤原 亮一
Date: Mon, 23 Feb 1998 00:00
43 lines
2210 bytes
さっそくの御返事ありがとうございます。
ScreenオブジェクトのMousePointerプロパティを設定すれば・・・
ということですが、現在以下のようなプログラムで実現しようと
しています。(最初から処理方法を書いておけば良かった)
フォーム内であれば、マウスカーソルは変更できています。

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

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

PS.ニュースグループ初体験なので、返事を直接メールを送信
   してしまいました。大変失礼しました。

-----Original Message-----
差出人 : TAMAKI Masahiko <tamaki@tinet-i.ne.jp>
ニュースグループ : fj.lang.visualbasic
日時 : 1998年2月23日 1:20
件名 : Re: フォームの外でもマウスの形状を変えたい。

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

Show Full Headers
Complete Article Headers
X-Google-Language: Japanese,JIS
X-Google-Thread: 105c2e,797772087c42e376,start
X-Google-Attributes: gid105c2e,public
From: "藤原 亮一" <rfuji@coco.ned.co.jp>
Subject: フォームの外でもマウスの形状を変えたい
Date: 1998/02/23
Message-ID: <6cr8su$ea0$1@nedsv.ned.co.jp>
X-Deja-AN: 327753869
Content-Transfer-Encoding: 7bit
Mime-Version: 1.0
Content-Type: text/plain; charset="iso-2022-jp"
X-MimeOLE: Produced By Microsoft MimeOLE V4.71.1712.3
Organization: NIPPON ELECTRONICS DEVELOPMENT CO.,LTD.
Newsgroups: fj.lang.visualbasic