精华区文章阅读

发信人: windoe (为中国电信做贡献), 信区: program
标  题: VB:用什么语句移动鼠标的位置？鼠标可以设置消失/显�
发信站: 听涛站 (Fri Mar 10 19:09:16 2000), 转信

Windows API中的SetCursorPos函数用于设置鼠标的当前位置，ShowCursor函数用
于控制鼠标的显示/消失。程序实现如下：
Declare Function ShowCursor& Lib "user32" (ByVal bShow As Long)
Declare Function SetCursorPos Lib "user32" Alias "SetCursorPos"
(ByVal x As Long, ByVal y As Long) As Long
Private Sub Command1_Click() '在按钮1中控制鼠标移动
SetCursorPos 20,50
End Sub
Private Sub Command2_Click() '在按钮2中控制鼠标消失
ShowCursor 0
End Sub

--By Kammi's SuperPost General Version
--

夜中不能寐，起坐弹鸣琴。
    薄帷鉴明月，清风吹我襟。
孤鸿号外野，翔鸟鸣北林。
    徘徊将何见，忧思独伤心。

computer 版 (精华区)