63.txt

来自「介绍VB里的各种控件的使用方法,窗口控制,图像编程以及OCX等内容,还提供了一个」· 文本 代码 · 共 18 行

 显示和隐藏鼠标   
       
声明：
Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long
显示鼠标：
lReturned = ShowCursor (1)
隐藏鼠标：
lReturned = ShowCursor (0)

取得并设置双击间隔时间
取得双击间隔时间：
Declare Function GetDoubleClickTime Lib "user32" Alias "GetDoubleClickTime" () As Long
使用：
返回千分之一秒的时间间隔数。
设置双击间隔时间：
Declare Function SetDoubleClickTime Lib "user32" Alias "SetDoubleClickTime" (ByVal wCount As Long) As Long
使用：
wCount 为千分之一秒的时间间隔数。