アニメーションカーソルへの変更

VB2005,WindowsXPproの環境で開発を行っております。

ある特定の操作を行った場合にカーソルをアニメーションカーソルに
変更したいのですが、うまくいっていません。

.net frameworkのcursorクラスはアニメーションカーソルを
サポートしてないとのことなので、Win32APIを利用しています。

Declare Function LoadCursorFromFile Lib "user32.dll" Alias "LoadCursorFromFileA" (ByVal lpFileName As String) As Integer
Declare Function SetSystemCursor Lib "user32.dll" (ByVal hCursor As Integer, ByVal uId As Integer) As Integer
Const IDC_ARROW As Integer = 32512

hCursor = LoadCursorFromFile("アニメーションカーソルファイル")
SetSystemCursor(hCursor, IDC_ARROW)

上記のコードでアニメーションカーソルへの変更は
できたのですが、元に戻すことができません。

どなたか、お知恵を拝借ください。

よろしくお願いします。

No.1 回答者： stiffels 回答日時： 2007/01/22 13:50

Call SetSystemCursor(LoadCursor(0, IDC_ARROW), IDC_ARROW)

などとして元にもどせないでしょうか？

この回答へのお礼

回答ありがとうございます。
試してみたのですが、LoadCursorでおかしくなります。

GetLastError関数で調べたところ、

指定されたリソースの種類がイメージ ファイルに見つかりません。(Code:00001813)
とのことでした。
IDC_ARROWがなくなってしまっているのでしょうか。

お礼日時：2007/01/22 16:16