VB拖動控件 只能向上拖動 或 只能向下拖動 這樣的代碼怎麽寫.

Dim cy As Single

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

cy = Y

mouseIsDown = True

End Sub

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

If mouseIsDown Then

Picture1.Move Picture1.Left, IIf(Y - cy < 0, Picture1.Top + (Y - cy), Picture1.Top) '向上

' Picture1.Move Picture1.Left, IIf(Y - cy > 0, Picture1.Top + (Y - cy), Picture1.Top) '向下

End If

End Sub

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

mouseIsDown = False

End Sub

'****比如移動Picture1，添加壹個Picture1

已經修改