新生儿肛门上方小个坑:如何用程序控制滑鼠游标

70、如何用程序控制滑鼠游标 (Mouse Cursor) 到指定位置？
以下这个例子，当 User 在 Text1 中按下 ‘Enter‘ 键后，滑鼠游标会自动移到 Command2 按钮上方
请在声明区中加入以下声明：
‘16 位版本： ( Sub 无传回值 )
Declare Sub SetCursorPos Lib "User" (ByVal X As Integer, ByVal Y As Integer)
‘32 位版本： ( Function 有传回值，Integer 改成 Long )
Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
‘在 Form1 中加入以下程序码：
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
x% = (Form1.Left + Command2.Left + Command2.Width / 2 + 60) / Screen.TwipsPerPixelX
y% = (Form1.Top + Command2.Top + Command2.Height / 2 + 360) / Screen.TwipsPerPixelY
SetCursorPos x%, y%
End If
End Sub

71、如何用鼠标移动没有标题的 Form，或移动 Form 中的控制项？
在声明区中放入以下声明：
‘16 位版本： ( Sub 无返回值 )
Private Declare Sub ReleaseCapture Lib "User" ()
Private Declare Sub SendMessage Lib "User" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, lParam As Long)
‘32 位版本： ( Function 有返回值，Integer 改成 Long )
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
‘共用常数：
Const WM_SYSCOMMAND = &H112
Const SC_MOVE = &HF012
‘若要移动 Form，程序码如下：
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim i As Long
i = ReleaseCapture
i = SendMessage(Form1.hwnd, WM_SYSCOMMAND, SC_MOVE, 0)
End Sub
‘以上功能也适用于用鼠标在 Form 中移动控制项，程序码如下：
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim i As Long
i = ReleaseCapture
i = SendMessage(Command1.hwnd, WM_SYSCOMMAND, SC_MOVE, 0)
End Sub

VB+SQL 如何用游标删除记录 如何用VB程序控制远程服务器上的ACCESS数据库？ 如何用数据线和nokia 3230连接，用JAVA程序控制手机发短信？ 在哪里可以上传滑鼠游标? ★06月22日★【询问】谁有KT的滑鼠游标或是小亀的滑鼠游标没有? 在那里可以上传自家电脑的滑鼠游标然后get the URL? 关于程序控制 开机程序控制？？？ 如何用PS抠图? 如何用启动光盘重装系统 简谱如何用键盘输入? QQ视频如何用 如何用墨盒合算 墨盒如何用节约 如何用保险套 如何用电脑看电视 如何用aicohol120％装载 马钱子如何用 如何用优化大师？ ICQ如何用 如何用“BT”下载？ 赤道仪如何用？ 如何用摄相头拍照？ 如何用摄相头拍照？?????