アニメーションの砂時計を出したいです (ID:84479)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 アニメーションカーソルというのをご存知でしょうか？ 拡張子が.aniのファイルです。WindowsフォルダのCursorsにいくつかあると思います。 とりあえずコードを示します。外れてたらすいません。 Private Declare Function LoadCursorFromFile Lib "user32.dll" (ByVal lpFileName As String) As Long Private Declare Function SetSystemCursor Lib "user32.dll" (ByVal hCursor As Long, ByVal uId As Long) As Long Private Declare Function LoadCursor Lib "user32.dll" (ByVal hInst As Long, ByVal uId As Long) As Long Private Const IDC_ARROW As Long = 32512 Private Sub Form_Load() Dim hCursor As Long 'カーソルをロード 適宜LoadCursorなどに変えてやってください。 hCursor = LoadCursorFromFile("Test.ani") 'システムカーソルを設定。 SetSystemCursor hCursor, IDC_ARROW End Sub Private Sub Form_QueryClose(Cancel As Integer, CloseMode As Integer) '戻さないとずっとそのままです(笑)。 SetSystemCursor LoadCursor(0, IDC_ARROW), IDC_ARROW End Sub