Question

VB移动窗体

如何在VB内使鼠标拖动Label时，窗体被拖动。

Answer 1

根本不用API,这样就可以啦:
Dim TF As Boolean
Dim MX As Integer
Dim MY As Integer

Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
TF = True
MX = X
MY = Y
End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If TF = True And Button = 1 Then
Form1.Move Form1.Left - MX + X, Form1.Top - MY + Y
End If
End Sub

Private Sub Label1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
TF = False
End Sub

Answer 2

人家是问你VB你跟LZ来个易语言，这样都能有最佳答案，我真是服了楼主了，楼下说的也有问题，不是什么接口不接口的问题，这个完全可以用API函数来实现：
Private
Declare
Function
SetWindowPos
Lib
"user32"
_
(ByVal
Hwnd
As
Long,
_
ByVal
hWndInsertAfter
As
Long,
_
ByVal
x
As
Long,
_
ByVal
y
As
Long,
_
ByVal
cx
As
Long,
_
ByVal
cy
As
Long,
_
ByVal
wFlags
As
Long)
As
Long
'为窗口指定一个新位置和状态
Private
Declare
Function
FindWindow
Lib
"user32"
Alias
"FindWindowA"
(ByVal
lpClassName
As
Any,
_
ByVal
lpWindowName
As
String)
As
Long
Private
Sub
Command1_Click()
Const
SWP_NOSIZE
=
&H1
'忽略cx,cy
Const
SWP_NOZORDER
=
&H4
'忽略hWndInsertAfter
Dim
mHwnd&
mHwnd&
=
FindWindow(0&,
"无标题.txt
-
记事本")
’这里用记事本来举例
SetWindowPos
mHwnd&,
0,
100,
100,
0,
0,
SWP_NOZORDER
Or
SWP_NOSIZE
End
Sub你可以修改以下相关的数值来达到你要的目的，！