vb控件拖动

Question

小弟想通过在界面上拖动控件来调整打印的位置
并把大印位置存到数据库中

Answer 1

Option Explicit
'*************************************************************************
'**模 块 名：ModMoveIt
'**说    明：移动某对象,有句柄的即可
'**创 建 人：马大哈
'**日    期：2007年3月15日
'**版    本：V1.0
'*************************************************************************Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Const HTCAPTION = 2
Private Const WM_NCLBUTTONDOWN = &HA1Public Function MoveIt(ByVal mHwnd As Long)
    '在目标对象的MouseMove事件里调用即可
    ReleaseCapture
    SendMessage mHwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
End Function
有句柄+有mousemove事件的都可拖动.以下是拖动窗体.
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = vbLeftButton Then
        Call MoveIt(Me.hwnd)
    End If
End Sub

Answer 2

http://www.j2soft.cn/static_html/200511072159460952admin.html这里有源码，可以拖动VB中的任何控件，包括非windows标准控件（无句柄的，如Label,Line控件等）。