vb6.0如何让窗体跟随鼠标运动

发布时间：2020-12-17 07:50:35 所属栏目：百科来源：网络整理

导读：首先将form的boderstyle属性设为0 Dim movesScreen As Boolean Dim mousX As Integer Dim mousY As Integer Dim currX As Integer Dim currY As Integer Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single) If Button

首先将form的boderstyle属性设为0

Dim movesScreen As Boolean

Dim mousX As Integer
Dim mousY As Integer
Dim currX As Integer
Dim currY As Integer

Private Sub Form_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)

If Button = 1 Then

movesScreen = True
mousX = X
mousY = Y
End If

End Sub

Private Sub Form_MouseMove(Button As Integer,Y As Single)

If movesScreen Then

currX = Form1.Left - mousX + X
currY = Form1.Top - mousY + Y
Form1.Move currX,currY
End If

End Sub

Private Sub Form_MouseUp(Button As Integer,Y As Single)

movesScreen = False

End Sub

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!