vba里面可以控制鼠标的形状吗？

luo_yongquan

efan2000

下面的是一个VB的示例，供参考吧。

2. 
   
3. Private Declare Function LoadCursor Lib "user32" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long
   
4. Private Declare Function SetClassWord Lib "user32" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal wNewWord As Long) As Long
   
5. Private Declare Function LoadCursorFromFile Lib "user32" Alias "LoadCursorFromFileA" (ByVal lpFileName As String) As Long
   
6. Private Declare Function DestroyCursor Lib "user32" (ByVal hCursor As Long) As Long
   
7. Const GCW_HCURSOR = (-12)
   
8. Const IDC_SIZEALL = 32646&
   
9. Dim SysCursHandle As Long, Curs1Handle As Long, Curs2Handle As Long
   
10. Private Sub Form_Load()
    
11.     'KPD-Team 1999
    
12.     'URL: http://www.allapi.net/
    
13.     'E-Mail: KPDTeam@Allapi.net
    
14.     'Load a default cursor
    
15.     Curs1Handle = LoadCursor(ByVal 0&, IDC_SIZEALL)
    
16.     'Load a cursor from a file
    
17.     Curs2Handle = LoadCursorFromFile("C:\Windows\Cursors\pen_1.cur")
    
18.     'Set the form's mouse cursor
    
19.     SysCursHandle = SetClassWord(Me.hwnd, GCW_HCURSOR, Curs1Handle)
    
20.     'Set the button's cursor
    
21.     SysCursHandle = SetClassWord(Command1.hwnd, GCW_HCURSOR, Curs2Handle)
    
22. End Sub
    
23. Private Sub Form_Unload(Cancel As Integer)
    
24.     'Set the form's cursor back to the original cursor
    
25.     SetClassWord Me.hwnd, GCW_HCURSOR, SysCursHandle
    
26.     'Clean up
    
27.     DestroyCursor Curs1Handle
    
28.     DestroyCursor Curs2Handle
    
29. End Sub
    

<br /> Private Declare Function LoadCursor Lib "user32" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long<br /> Private Declare Function SetClassWord Lib "user32" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal wNewWord As Long) As Long<br /> Private Declare Function LoadCursorFromFile Lib "user32" Alias "LoadCursorFromFileA" (ByVal lpFileName As String) As Long<br /> Private Declare Function DestroyCursor Lib "user32" (ByVal hCursor As Long) As Long<br /> Const GCW_HCURSOR = (-12)<br /> Const IDC_SIZEALL = 32646&<br /> Dim SysCursHandle As Long, Curs1Handle As Long, Curs2Handle As Long<br /> Private Sub Form_Load()<br />     'KPD-Team 1999<br />     'URL: http://www.allapi.net/<br />     'E-Mail: KPDTeam@Allapi.net<br />     'Load a default cursor<br />     Curs1Handle = LoadCursor(ByVal 0&, IDC_SIZEALL)<br />     'Load a cursor from a file<br />     Curs2Handle = LoadCursorFromFile("C:\Windows\Cursors\pen_1.cur")<br />     'Set the form's mouse cursor<br />     SysCursHandle = SetClassWord(Me.hwnd, GCW_HCURSOR, Curs1Handle)<br />     'Set the button's cursor<br />     SysCursHandle = SetClassWord(Command1.hwnd, GCW_HCURSOR, Curs2Handle)<br /> End Sub<br /> Private Sub Form_Unload(Cancel As Integer)<br />     'Set the form's cursor back to the original cursor<br />     SetClassWord Me.hwnd, GCW_HCURSOR, SysCursHandle<br />     'Clean up<br />     DestroyCursor Curs1Handle<br />     DestroyCursor Curs2Handle<br /> End Sub<br />