|
マウスカーソルを砂時計にしたいのですが |
- 01: 名前：‚ゆう投稿日：2007/10/02(火) 22:09
- マウスカーソルを砂時計にしたいのですが、できません。
やり方を押しててください。
基本的な質問で申し訳ありません。
過去ログも調べてみたし、ヘルプも見てみたのですが、分かりませんでした。
お手数ですが、ご回答お待ちしております。
- 02: 名前：yoda投稿日：2007/10/03(水) 06:23
- windows のＡＰＩ関数を使う必要があると思います。
詳しくは、覚えていませんので、インターネットで
検索してみてください。
- 03: 名前：ゆう投稿日：2007/10/03(水) 11:05
- 了解しました。
ExcelのVBAみたいに、Application.〜〜というわけにはいかないのですね、、、、。
ありがとうございます。
- 04: 名前：‚ゆう投稿日：2007/10/03(水) 11:53
- 自己レスです。
次のページを参考に、以下のようなプロシージャを作ることでうまくいきました。
http://q.hatena.ne.jp/1054534388 [source] [check]
Private Declare Function LoadCursor Lib "user32" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long
Private Declare Function setCursor Lib "user32" Alias "SetCursor" (ByVal hCursor As Long) As Long
Public Enum CURSOR_TYPE
IDC_ARROW = 32512&
IDC_WAIT = 32514&
End Enum
Public Sub setMouseCursor(ByVal hcur As CURSOR_TYPE)
hcur = LoadCursor(0&, IDC_WAIT)
Call setCursor(hcur)
End Sub
|
|