1 调用api函数中的鼠标控制ShowCursor
Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long
当参数值为0时,隐藏鼠标,为1时,显示鼠标。
2 将label的属性autosize设为true即可
3 www.vb60.com 不错
1.
添加到窗体申明部分
Private Declare Function ShowCursor Lib "user32" Alias "ShowCursor" (ByVal bShow As Long) As Long
具体实现部分
ShowCursor(True)显示 ,ShowCursor(Flase)隐藏