在一个Form中，怎样用鼠标移动一个按钮？

2006-09-11 05:47:50 420 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

(四) Spring整合ActiveMQ---超详细教程 Spring整合ActiveMQ环境配置Spring整合ActiveMQ之队列生产者Spring整合ActiveMQ之队列消费者三级目录前面三节讲了ActiveMQ的安装、测试。JMS介绍以及四大组成元素，还有ActiveMQ的可靠性（持久化、事务、签收），还有Broker等等。但是光学会还不够，我们还要把ActiveMQ应用到我们已有的框架中，如Spring和SpringBoot等等。这一节主要学习如何在Spring中使用ActiveMQ。环境配置首先创建一个spring项目，在pom文件中导入阅读详情

在一个Form中，只有一个按钮控件cmdMove。

想用鼠标拖着这个按钮移动，但是效果很不好。发现.Left 和 X 的单位不一致。

代码如下：

Dim MouseDown As Boolean

Private Sub cmdMove_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then MouseDown = True
End Sub

Private Sub cmdMove_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If MouseDown Then
If X > 0 And X < Me.ScaleWidth Then

cmdMove.Left = X

End If
End If
End Sub

Private Sub cmdMove_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
MouseDown = False
End Sub

...全文