ANI

文件擴展名

ANI（APPlicedon Startins Hour Glass）文件是MS－Windows的動畫游標文件，其文件擴展名為“.ani”。它一般由四部分構成：文字說明區、信息區、時間控制區和數據區，即ACONLIST塊。anih塊、rate塊和LIST塊。任何游標編輯軟體都能打開。

目錄

1簡介 2VB中使用

簡介

ani文件是滑鼠效果的文件，可以從控制面板--滑鼠--指針選項里瀏覽這個文件，就可以改變滑鼠的顯示效果。ani文件不能像bmp點陣圖一樣，直接插入資源里去。簡單的解釋它屬於一種動畫游標文件。

ani文件一般由四部分構成：文字說明區、信息區、時間控制區和數據區，即ACONLIST塊。anih塊、rate塊和LIST塊。任何游標編輯軟體都能打開，包括microangelo，Acdsee也完全能夠打開ani文件，雖然默認ani文件是沒有關聯到acdsee的，你必須用右鍵“open with”找到acdsee才能打開。

VB中使用

Visual Basic中MouseIcon不能設置.ani格式滑鼠，但可以通過API設置.ani格式的動畫。

代碼

1

2

3

4

5

6

7

8

9

10

11

12

13

14

Private Declare Function LoadCursorFromFile Lib "user32" Alias "LoadCursorFromFileA"(ByVal lpFilename As String) As Long

Private Declare Function DestroyCursor Lob "user32"(ByVal hCursor As Long) As Long

Private Declare Function SetClassLong Lib "user32" Alias "SetClassLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

Private Const GCL_HCURSOR = (-12)

Dim AniCur As Long

Private Sub Form_Load()

AniCur& = LoadCursorFromFile(App.Path & "\文件名.ani")

SetClassLong Me.hwnd,GCL_HCURSOR,AniCur

End Sub

Private Sub Form_Unload(Cancel As Integer)

DestroyCursor AniCur

End Sub

目錄