アニメーションカーソルへの変更
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)
上記のコードでアニメーションカーソルへの変更は
できたのですが、元に戻すことができません。
どなたか、お知恵を拝借ください。
よろしくお願いします。
お礼
普通のカーソルへの変更はこれできました。 アニメーションカーソルも使用したいのですが、 調べてみると、.net frameworkのcursor関数では対応してなく Win32APIのgetcursorfromfile関数を利用すればよいことが わかりました。 ただ、カーソルが元に戻るようにするやり方がわからず困っています。 よろしくお願いします。