拖动没有标题栏的窗体程序(vb6.0源代码编写)在没有标题栏的窗体情况下，通过代码控制， 用鼠标可以拖动 Dim r As Long Dim i If Button = 1 Then i = ReleaseCapture() r = SendMessage(hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0) End If
在WinForm程序中，要移动没有标题栏的窗口，基本的实现思路是监听需要拖动窗口内的控件的鼠标事件，然后将鼠标位置发送给窗口进行相应的位移就可以了。通过借用Windows API也可以很容易实现这一点，比如像下面这样。
public class Win32Api
{
public const int WM_SYSCOMMAND = 0x112;
public const int SC_DRAGMOVE = 0xF012;
[DllImport(user32.Dll, EntryPo
