无标题栏窗体移动的实现

 

方法一:

Private HTCAPTION As IntPtr = 2
    Private HTCLIENT As IntPtr = 1
    Private WM_NCHITTEST As Integer = 132

    Protected Overrides Sub WndProc(ByRef m As Message)
        If (m.Msg = WM_NCHITTEST) Then
            MyBase.WndProc(m)
            If (m.Result = HTCLIENT) Then
                m.Result = HTCAPTION
            End If
        ElseIf (m.Msg = 163) Then
        Else
            MyBase.WndProc(m)
        End If
    End Sub

 方法二(手柄控件 ):

using System;
using System.Drawing;
using System.Windows.Forms;

namespace Size_MoveCtr
{
 /// <summary>
 /// Mover 的摘要说明。
 /// </summary>
 public class SizeGrip: System.Windows.Forms.Control
 {
  private const int WM_NCHITTEST = 0x84;
  private const int WM_NCLBUTTONDOWN = 0xa1;

  private const int HTCLIENT =  1;
  private const int HTBOTTOMRIGHT = 17;
 
  private System.Drawing.Drawing2D.GraphicsPath m_Path;

  [System.Runtime.InteropServices.DllImport("user32.dll")]
  public static extern int SendMessage( IntPtr hWnd,
   int Msg,
   IntPtr wParam,
   IntPtr lParam
   );

  public SizeGrip()
  {
   this.m_Path = new System.Drawing.Drawing2D.GraphicsPath();

   this.m_Path.StartFigure();
   this.m_Path.AddLines(new Point[]{new Point(this.Width, 0),new Point(this.Width-this.Height, this.Height), new Point(this.Width, this.Height)});
   this.m_Path.CloseFigure();
  }

  protected override void OnPaint(PaintEventArgs e)
  {
   base.OnPaint (e);
   ControlPaint.DrawSizeGrip(this.CreateGraphics(), System.Drawing.SystemColors.Control, this.Width-this.Height, 0, this.Height, this.Height);

  }

  protected override void OnSizeChanged(EventArgs e)
  {
   System.Drawing.Drawing2D.GraphicsPath path = new System.Drawing.Drawing2D.GraphicsPath();
   path.StartFigure();
   path.AddLines(new Point[]{new Point(this.Width, 0),new Point(this.Width-this.Height, this.Height), new Point(this.Width, this.Height)});
   path.CloseFigure();

   Region reReg = new Region(path);
   reReg.Complement(m_Path);

   this.Invalidate(reReg);

   base.OnSizeChanged(e);
   this.m_Path = path;

   ControlPaint.DrawSizeGrip(this.CreateGraphics(), System.Drawing.SystemColors.Control, this.Width-this.Height, 0, this.Height, this.Height);
  }

  protected override void WndProc(ref Message m)
  {
   if (this.DesignMode)
   {
    base.WndProc(ref m);
    return;
   }

   switch (m.Msg)
   {
    case WM_NCHITTEST:
     SendMessage(this.Parent.Handle, m.Msg, m.WParam, m.LParam);
     base.WndProc(ref m);
     if ((int)m.Result == HTCLIENT)
     {
      m.Result = (IntPtr)HTBOTTOMRIGHT;//右下
     }
     break;
    case WM_NCLBUTTONDOWN:
     SendMessage(this.Parent.Handle, m.Msg, m.WParam, m.LParam);
     break;
    default:
     base.WndProc(ref m);
     break;
   }
  }
 }
}

方法三:

先将 FormBorderStyle 设置为 FormBorderStyle.None，然后：

 Dim theScreen As Rectangle
    Dim MousX As Short
    Dim MousY As Short
    Dim CurrX As Short
    Dim CurrY As Short
    Dim MoveScreen As Boolean
    Private Sub Form1_Load()Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        theScreen = Screen.PrimaryScreen.Bounds()
        Me.Location = New Point((theScreen.Width - Me.Width) / 2, (theScreen.Height - Me.Height) / 2)     
    End Sub

    Private Sub Form1_MouseMove()Sub Form1_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
        CurrX = Me.Left - MousX + e.X
        CurrY = Me.Top - MousY + e.Y
        If MoveScreen = True Then
            Me.Location = New Point(CurrX, CurrY)
        End If
    End Sub

    Private Sub Form1_MouseDown()Sub Form1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
        MousX = e.X
        MousY = e.Y
        MoveScreen = True
    End Sub

    Private Sub Form1_MouseUp()Sub Form1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseUp
        MoveScreen = False
    End Sub