VB6.0中怎样使控件可以在运行时实现拖动操作

最新推荐文章于 2024-02-27 12:52:02 发布

userl

最新推荐文章于 2024-02-27 12:52:02 发布

阅读量4.8k

点赞数

文章标签： vb6.0 控件拖动控件运行时拖动移动 MouseDown

本文链接：https://blog.youkuaiyun.com/userl/article/details/81260431

版权

本文介绍了如何在VB6.0中通过MouseDown和MouseUp事件，实现控件在运行时的拖动操作，避免使用DropMode属性，以实现更灵活的移动效果。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

在程序中有时可能需要控件能在程序窗口拖动，这时就需要拖动控件的代码。我们可以用控件的MouseDown，MouseUp事件实现控件的拖动。例如图1，我们怎么实现窗口中控件PictureBox1的拖动那？
![这里写图片描述](https://img-blog.youkuaiyun.com/2018072813552824?watermark/2/text/aHR0cHM6Ly9ibG9nLmNzZG4ubmV0L3VzZXJs/font/5a6L5L2T/fontsize/400/fill/I0JBQkFCMA==/dissolve/70)
图中我们已经在窗体上放了一个控件Picture1，需要拖动的就是它，我们在上面加了一个Label来标注它的名字。
我门现在在窗体代码中定义两个变量xPos，yPos，并在Picture1的MouseDown，MouseUp中添加如下代码：

Dim xPos As Long
Dim yPos As Long

‘注意要使用MouseDown，MouseUp，就不要设置控件的DropMode为1
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
xPos = X
yPos = Y
End If
End Sub

Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Picture1.Move Picture1.Left + (X - xPos), Picture1.Top