如何显示手型图标

huiyi88

我在ACCESS窗体上做了一个按钮，怎么实现按钮放上去就显示手型图标？

kevindeng

属性---超链接地址  加个空格就行了

beenet

是指鼠标吧！

自定义鼠标指针

Private Declare Function CopyCursor Lib "user32" Alias "CopyIcon" (ByVal hcur As Long) As Long
Private Declare Function LoadCursorFromFile Lib "user32" Alias "LoadCursorFromFileA" (ByVal lpstrCurFile As String) As Long
Private Declare Function GetCursor Lib "user32" () As Long
Private Declare Function SetSystemCursor Lib "user32" (ByVal hcur As Long, ByVal id As Long) As Long
Private Const OCR_NORMAL = 32512
Dim lngMyCursor As Long
Dim lngSystemCursor As Long




Private Sub cmdMyCursor_Click() '更改指针样式

    Dim strCurFile As String
   
    strCurFile = CurrentProject.Path + "\Working.ani"
   
    lngMyCursor = LoadCursorFromFile(strCurFile)
    lngSystemCursor = GetCursor()
    lngSystemCursor = CopyCursor(lngSystemCursor)
    SetSystemCursor lngMyCursor, OCR_NORMAL
    Text1.SetFocus
    Text1.Text = "鼠标指针已经设定为您要的状态"
    cmdMyCursor.Enabled = False
    cmdSystemCursor.Enabled = True

End Sub

Private Sub cmdSystemCursor_Click()    '恢复系统指针样式

    SetSystemCursor lngSystemCursor, OCR_NORMAL
    Text1.SetFocus
    Text1.Text = "鼠标指针已经恢复为系统状态"
    cmdMyCursor.Enabled = True
    cmdSystemCursor.Enabled = False
    lngSystemCursor = 0

End Sub


Private Sub Form_Close()
If lngSystemCursor <> 0 Then SetSystemCursor lngSystemCursor, OCR_NORMAL
End Sub

Private Sub Form_Unload(Cancel As Integer)
If lngSystemCursor <> 0 Then SetSystemCursor lngSystemCursor, OCR_NORMAL
End Sub

huiyi88

我已经试了，还是二楼的那个简单，谢谢！