Access中如何设定鼠标指针?

原创 2004年01月25日 21:29:00

Access中如何设定鼠标指针?

 

问题:

如何设定鼠标指针?

 


方法一:

Private Declare Function alxSetCursor Lib "user32" Alias "SetCursor" (ByVal hCursor As Long) As Long
'将指定的鼠标指针设为当前指针
Private Declare Function alxGetCursor Lib "user32" Alias "GetCursor" () As Long
'获取目前选择的鼠标指针的句柄



Private Sub MouseType()
'取得左右形光标的值
    Screen.MousePointer = 9 '设屏幕鼠标为9(左右型鼠标)。
    lngMouseOne = alxGetCursor() '返回左右型鼠标在WINDOWS(2000/98/XP)的值。
    Screen.MousePointer = 7 '设屏幕鼠标为11(沙漏)。
    lngMouseTwo = alxGetCursor() '返回左右型鼠标在WINDOWS(2000/98/XP)的值。
    Screen.MousePointer = 0 '重设屏幕鼠标为0(ACCESS自确定)。
    blTextout = False
    blTextlook = False
End Sub

 


方法二:


随便找一个 .cur文件copy到mdb文件相同的目录
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 + "/Cursor.cur"
    '可随意调用其他的.cur鼠标样式文件,以达到显示各种指针的目的
    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


 

在网页中改变鼠标指针?

HTML中用style="cursor:hand"这样的来改变。 -------------------------------------------------------------------...
  • fjnu2008
  • fjnu2008
  • 2010年04月06日 16:28
  • 528

隐藏鼠标指针

qt-全屏显示主要是设置setWindowFlags可以这样使用全屏幕 yourwidget->setWindowFlags(Qt::window | Qt::FramelessWindowHint...
  • long1437
  • long1437
  • 2015年12月28日 17:10
  • 673

动态创建一个鼠标指针图案

function CircleCursor(// 创建一个圆形的鼠标图案  AColor: TColor;// 指定圆形的颜色  ASize: Integer // 指定圆形的直径): HCursor...
  • zswang
  • zswang
  • 2007年09月07日 14:55
  • 2578

QtE4.6.3触摸屏隐藏鼠标指针的方法总结

QtE4.6.3触摸屏隐藏鼠标指针的方法总结
  • lihui126
  • lihui126
  • 2015年12月02日 14:23
  • 1162

bootStrap输入框鼠标指针样式设定

bootstrap中鼠标划过,或者是输入框中输入内容,鼠标离开,右边显示的x号。当鼠标划到X号上面的时候出现鼠标的基本样式 cursor:default;//鼠标划上去默认的一个箭头...
  • Mrsanger
  • Mrsanger
  • 2017年11月09日 22:05
  • 381

C#设置和恢复系统的鼠标指针

using System.Runtime.InteropServices; [DllImport("User32.DLL")]public static extern bool SetSystemCu...
  • zswang
  • zswang
  • 2007年03月20日 17:55
  • 1907

Access和Access VBA学习总结

access具有哪些数据类型,各有什么作用 Access允许九种数据类型:文本、备注、数值、日期/时间、货币、自动编号、是/否、OLE对象、超级链接、查询向导。在表的设计视图中,每一个字段都...
  • bcbobo21cn
  • bcbobo21cn
  • 2016年08月04日 09:31
  • 1341

两套供左撇子人士使用的鼠标指针(带自动安装inf文件)

一套来自于游戏“星际”,另外一套来自 OS X 风格的,请君享用:)
  • zhangxin09
  • zhangxin09
  • 2011年04月18日 13:05
  • 6759

Android中用Java代码模拟鼠标指针(可显示于整个系统界面之上)

Android有几款平板是有USB接口,连上鼠标后,界面上面就会出现一个鼠标指针,然后就可以用鼠标代替手势操作平板了,最近有项目需要用到鼠标指针,但是苦于不知道怎么调出系统的鼠标指针,所以只能用代码去...
  • maxos
  • maxos
  • 2014年11月14日 14:02
  • 1386

鼠标指针的隐藏

如何隐藏我们wince系统中的鼠标指针?当然通过在应用程序中通过ShowCursor(FALSE)或SetCursorPos将鼠标指针隐藏(没试过,应该可以)。但是用这种方法在应用程序启动前的一段时间...
  • xiaolei05
  • xiaolei05
  • 2011年06月04日 07:07
  • 2515
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:Access中如何设定鼠标指针?
举报原因:
原因补充:

(最多只允许输入30个字)