运行中，平稳移动控件

Question

Private Sub Command1_Click()
Timer1.Enabled = True
End SubPrivate Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 50
End SubPrivate Sub Timer1_Timer()
If i > 2000 Then i = 0
i = i + 50
Command2.Move Command2.Left + i, Command2.Top
End Sub

Answer 1

Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Const HTCAPTION = 2
Public Const WM_NCLBUTTONDOWN = &HA1private sub command1_mousedown(button as integer .......)
    sendmessage command1.hwnd,wm_nclbuttondown,htcaption,0&
end sub试试看, 要移动的控件需俱备hwnd属性

Answer 2

得到控件句柄http://expert.csdn.net/Expert/topic/1522/1522377.xml?temp=.9539148

Answer 3

hengxin54(火星) ( ):
不明白，如何移动

Answer 4

Private Sub Pics_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
MoveObj = True
ObjX = X
ObjY = Y
End SubPrivate Sub Pics_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
If Not MoveObj Then Exit Sub
   Pics(Index).left = Pics(Index).left + (X - ObjX)
   Pics(Index).Top = Pics(Index).Top + (Y - ObjY)
End Sub