Access中如何设定鼠标指针?
来源:互联网 发布:下载视频软件 知乎 编辑:程序博客网 时间:2024/05/18 00:35
问题:
如何设定鼠标指针?
方法一:
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
<script type="text/javascript"><!--google_ad_client = "pub-2947489232296736";/* 728x15, 创建于 08-4-23MSDN */google_ad_slot = "3624277373";google_ad_width = 728;google_ad_height = 15;//--></script><script type="text/javascript"src="http://pagead2.googlesyndication.com/pagead/show_ads.js"></script>
- Access中如何设定鼠标指针?
- Access中如何设定鼠标指针?
- bootStrap输入框鼠标指针样式设定
- css中设定鼠标状态图
- Win7中鼠标指针捕捉
- 如何在基于对话框的程序中动态设置鼠标指针
- JavaScript中onmouseover时如何让鼠标指针变成一个小手状
- JavaScript中onmouseover时如何让鼠标指针变成一个小手状
- JavaScript中onmouseover时如何让鼠标指针变成一个小手状
- c++ builder\delphi中如何改变操作数据库时的鼠标指针形状
- css中如何修改鼠标光标(指针)的样式和颜色
- 如何取消Qt中的鼠标指针?
- 截图时如何显示鼠标指针
- 如何ie中div设定最小高度
- JDBC中如何设定空值
- 如何在MindMapper中设定边界
- ACCESS中如何使用SQL
- Access中如何开始事务处理?
- 导入文本文件时如何指定字段类型?(二)
- 如何在Access报表中每隔N行显示一条粗线
- C# 2.0 Specification(泛型五)
- Access中如何用 Jet SQL 语句删除表关系?
- 内存转换Image到Icon格式
- Access中如何设定鼠标指针?
- ASP.NET中的错误处理支持(转)
- Oracle 10G的Data Pump (Part I)
- C# 2.0 Specification (泛型四)
- 用 Access 分析网站一例
- 让Asp.Net输出图形
- 如何使Microsoft SQL Server的日志文件不会增大
- VB.NET:又将是个跨越十年的美丽...
- ASP自定义函数,仿VBA中域函数 DLookup