GetCursorShape 得到鼠标形状 |
|
得到当前鼠标的形状特征 |
|
参数1 整数型，参数 |
|
整数型，鼠标的形状值 |
|
//参数: 0 是6.83之前的版本默认的参数
//参数: 1 可用于一些在参数0下无法区分鼠标形状代码的情况
//下面是我们普通的WINDOWS鼠标形状特征
//不同电脑上鼠标形状特征也许不同，请使用"抓点抓色"功能抓取正确的鼠标形状特征
Shape1 = 1593350287
//下面是我们访问网页超链接时候的手型鼠标形状
Shape2 = 1055991329
shape=GetCursorShape(0)
If shape = shape1 Then
MessageBox "当前鼠标形状是普通的WINDOWS鼠标"
ElseIf shape = shape2 Then
MessageBox "当前鼠标形状是手型鼠标"
Else
MessageBox "不认识当前鼠标形状！"
End If
|
|
|
|
//参数: 0 是6.83之前的版本默认的参数
//参数: 1 可用于一些在参数0下无法区分鼠标形状代码的情况
//下面是我们普通的WINDOWS鼠标形状特征
//不同电脑上鼠标形状特征也许不同，请使用"抓点抓色"功能抓取正确的鼠标形状特征
Shape1 = 1593350287
//下面是我们访问网页超链接时候的手型鼠标形状
Shape2 = 1055991329
VBSCall Shape=GetCursorShape(0)
If shape = shape1
MessageBox 当前鼠标形状是普通的WINDOWS鼠标
ElseIf shape = shape2
MessageBox 当前鼠标形状是手型鼠标
Else
MessageBox 不认识当前鼠标形状！
EndIf
|