VB的“不能确定”按扭

来源：百度知道 编辑：UC知道 时间：2024/06/04 07:36:58
很久以前，玩过一个整人的游戏，是一窗体，上面有一个写着“确定”的按扭，当鼠标移动到按扭时，怎么也去不到按扭的区域。不如从按扭的上方移下去，快移到按扭了，鼠标马上跳到按扭下面，左右都是一样的情况，求这个小程序的完整代码。

用按扭的MOUSE_MOVE事件
改变按钮的left和top属性

VB6：
新建一个VB工程，在窗口里面放置一个Command，名称为Command1
输入如下代码：
Private Declare Function SetCursorPos Lib "user32" (ByVal X As Long, ByVal Y As Long) As Long

Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If X < Command1.Width / 2 Then
SetCursorPos (Left + Command1.Left + Command1.Width) / 15 + 1, (Top + Command1.Top + Y) / 15
Else
SetCursorPos (Left + Command1.Left) / 15 + 1, (Top + Command1.Top + Y) / 15
End If

If Y < Command1.Height / 2 Then
SetCursorPos (Left + Command1.Left + X) / 15, (Top + Command1.Top + Command1.Height) / 15 + 1
Else
SetCursorPos (Left + Command1.Left + X) / 15, (Top + Command1.Top) / 15 + 1
End If
End Sub

Private Sub Form_Load()
Command1.Caption = "欠打"
End Sub

可以了，运行看下

private sub commad1_mousemove()
if command1