Access中如何设定鼠标指针?

海绵宝宝05240

海绵宝宝05240

2016-02-19 17:53

今天图老师小编给大家展示的是Access中如何设定鼠标指针?,精心挑选的内容希望大家多多支持、多多分享,喜欢就赶紧get哦!

访问地址
中文Access2000速成教程--1.8定义

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/bianchengyuyan/)

ACCESS集锦

Access新手来看:Access的特点、概要精通ACCESS需掌握的内容用Access 2000进行班级管理一篇详细讲述mysql和access区别的

中文Access2000速成教程--1.1使用

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/bianchengyuyan/)

Access使用查询

Access 数据库安全攻防策略

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(200098XP)的值。
    Screen.MousePointer = 7 '设屏幕鼠标为11(沙漏)。
    lngMouseTwo = alxGetCursor() '返回左右型鼠标在WINDOWS(200098XP)的值。
    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

展开更多 50%)
分享

猜你喜欢

Access中如何设定鼠标指针?

编程语言 网络编程
Access中如何设定鼠标指针?

如何修改鼠标指针样式

电脑入门
如何修改鼠标指针样式

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

如何使Mac截图带有鼠标指针

电脑入门
如何使Mac截图带有鼠标指针

鼠标指针主题包怎么安装 鼠标指针主题包怎么用

软件教程
鼠标指针主题包怎么安装  鼠标指针主题包怎么用

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

鼠标指针图标怎么换

鼠标 电脑
鼠标指针图标怎么换

如何在基于对话框的程序中动态设置鼠标指针

C语言教程 C语言函数
如何在基于对话框的程序中动态设置鼠标指针

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

用VB制作下雪的特技景象

用VB制作下雪的特技景象

不用JDBC:ODBC bridge直接操作Access 数据库

不用JDBC:ODBC bridge直接操作Access 数据库
下拉加载更多内容 ↓