Question

VB中控件拖动DragMode 设置了还要设置什么才能拖动的

Answer 1

还要设置接收被拖动控件的控件的事件
例如以下代码是窗体（form）接收被拖动的checkbox
Private Sub Form_DragDrop(Source As Control, X As Single, Y As Single)
Dim ck As CheckBox
Set ck = Source
ck.Left = X
ck.Top = Y
End Sub

追问

不对啊，我记的好象不是这样的 好象也就是一个属性的

追答

那是你记错了

追问

我想问的是这样的，比如说我想把一个Command1 拖动到另一个地方 DragMode设置为1后 接着要怎么做 不想意思 刚刚没说清楚

追答

我给你的代码就是实现这个功能啊，他可以让你在form里任意拖动dragmode设置为1的控件
当然如果要放到别的容器里只要给那个容器加上相应的事件就行了
Private Sub xxx_DragDrop(Source As Control, X As Single, Y As Single)
Dim ck As 你的控件类型
Set ck = Source
ck.Left = X
ck.Top = Y
End Sub

Answer 2

Dim oX, oY As Single

Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
oX = X: oY = 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 - oX: Command1.Top = Command1.Top + Y - oY
End Sub
'你讲的还是不够详细，不知道这是不是你想要的结果

追问

运行时用鼠标选中command1拖动，鼠标松开后command1就移过去了

追答

我这个就是你要的那样子，只不过不需要吧DragMode设置为1，要不不好使