展开全部
//(xxxx1,yyyy1)左上角坐标,(xxxx2,yyyy2)右上角坐标
//取得当前鼠标形状1
shape1 = GetCursorShape(0)
i = 1
x = xxxx1
y = yyyy1
While i
MoveTo x, y
//取当前鼠标形状2
shape2 = GetCursorShape(0)
If shape1 = shape2 Then
i=0
End If
//向下移动2
y = y + 2
If y > yyyy2 Then
y = yyyy1
//向右移动2
x = x + 2
If x > xxxx2 Then
x=xxxx1
End If
End If
Wend
//取得当前鼠标形状1
shape1 = GetCursorShape(0)
i = 1
x = xxxx1
y = yyyy1
While i
MoveTo x, y
//取当前鼠标形状2
shape2 = GetCursorShape(0)
If shape1 = shape2 Then
i=0
End If
//向下移动2
y = y + 2
If y > yyyy2 Then
y = yyyy1
//向右移动2
x = x + 2
If x > xxxx2 Then
x=xxxx1
End If
End If
Wend
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
苏州明浩电子有限公司
2023-08-25 广告
作为苏州明浩电子有限公司的工作人员，我可以向您推荐我们的产品——明浩电子按键面板。这款按键面板采用高品质材料制作，经过精细加工和处理，具有出色的耐用性和可靠性。按键设计符合人体工程学原理，操作手感舒适，易于使用。此外，我们的按键面板具有多种...
点击进入详情页
本回答由苏州明浩电子有限公司提供
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
