|
#2
风吹过b2014-09-11 17:48
没了 发现错误啊。这是我测试用的代码，增加了最后一个的判断事件，其他的照你的代码。
 程序代码：'变量定义 Dim x1 As Single, y1 As Single Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) x1 = X y1 = Y End Sub Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then Command1.Left = Command1.Left + (X - x1) Command1.Top = Command1.Top + (Y - y1) End If End Sub Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) '放开鼠标后，确保按钮在 Picture 的可见范围内 If Command1.Left < 0 Then Command1.Left = 0 If Command1.Top < 0 Then Command1.Top = 0 If Command1.Left > Picture1.ScaleWidth - Command1.Width Then Command1.Left = Picture1.ScaleWidth - Command1.Width If Command1.Top > Picture1.ScaleHeight - Command1.Height Then Command1.Top = Picture1.ScaleHeight - Command1.Height End Sub |
程序代码：Dim x1, y1 As Double
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
x1 = X
y1 = Y
End Sub
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Command1.Left = Command1.Left + (X - x1)
Command1.Top = Command1.Top + (Y - y1)
End If
End Sub
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
x1 = X
y1 = Y
End Sub
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Command1.Left = Command1.Left + (X - x1)
Command1.Top = Command1.Top + (Y - y1)
End If
End Sub
但是，现在添加完后，移动command控件后，控件消失了，不知道怎么解决了，求助大家！