Office中国论坛/Access中国论坛

标题: 如何显示手型图标 [打印本页]

作者: huiyi88 时间: 2008-9-15 16:49
标题: 如何显示手型图标
我在ACCESS窗体上做了一个按钮，怎么实现按钮放上去就显示手型图标？

作者: kevindeng 时间: 2008-9-15 16:52
属性---超链接地址加个空格就行了

作者: beenet 时间: 2008-9-16 09:41
是指鼠标吧！

自定义鼠标指针

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 时间: 2008-9-16 11:18
我已经试了，还是二楼的那个简单，谢谢！

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)