Question

求VB代码，关于鼠标的

1、鼠标移动到某一区域
2、按下鼠标左键或右键或中键
3、按下鼠标左键不放一段时间
4、我记得在控件属性那可以设置鼠标经过时的鼠标指针形状，怎么没反应的？

Answer 1

本例当在屏幕上画圆时将鼠标指针改变为沙漏标，然后在过程结束时将沙漏标恢复为鼠标指针。要试用此例，先将下面的代码粘贴到窗体的声明部分。按 F5 键 以运行该程序，然后单击窗体。

Private Sub Form_Click ()
Dim I ' 声明变量。
' 将鼠标指针改变为沙漏标。
Screen.MousePointer = vbHourglass
' 设置随机的颜色和在窗体上画圆。
For I = 0 To ScaleWidth Step 50
ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Circle (I, ScaleHeight * Rnd), 400
Next
' 返回鼠标指针到正常状态。
Screen.MousePointer = vbDefault
End Sub

追问

请看题

Answer 2

Private Sub Form_Click ()
Dim I ' 声明变量。
' 将鼠标指针改变为沙漏标。
Screen.MousePointer = vbHourglass
' 设置随机的颜色和在窗体上画圆。
For I = 0 To ScaleWidth Step 50
ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Circle (I, ScaleHeight * Rnd), 400
Next
' 返回鼠标指针到正常状态。
Screen.MousePointer = vbDefault
End Sub
VB代码