Question

在VB中如何拖动image控件，并且只能在水平范围内拖动。

如题。最好附上代码 谢谢

Answer 1

比如控件名为Image1，则代码如下：
Dim DownX As Single, DownY As Single

Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
DownX = X
DownY = Y
End Sub

Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Image1.Left = Image1.Left + X - DownX
'Image1.Top = Image1.Top + Y - DownY '若允许垂直移动则加上该条语句
End If
End Sub

Answer 2

根据你的要求，写了一个代码，参考一下吧：
Dim MX As Single

Private Sub Form_Load()
Image1.DragMode = 1
End Sub

Private Sub Image1_DragOver(Source As Control, X As Single, Y As Single, State As Integer)
With Image1
.Left = .Left + X - MX
End With
End Sub

Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
MX = X
End Sub