移动无标题栏的窗口

本来是想在vb.net中移动无标题栏的窗口的位置,找了很多资料,还是没能解决.

第1种方法:这种方法在vs2003中好象还可以,但是在vs 2005中会报错,实现代码如下

Public Const WM_NCLBUTTONDOWN = &HA1S

Public Const HTCAPTION = 2

Public Declare Function SendMessage()Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Object) As Long
  Public Declare Function ReleaseCapture()Function ReleaseCapture Lib "user32" () As Integer

'在要移动的控件上处理MouseDown事件
 Private Sub titleBar1_MouseDown()Sub titleBar1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles titleBar1.MouseDown
    Try
      If e.Button = MouseButtons.Left Then
        ReleaseCapture()
        SendMessage(Me.pnlInfo.Handle.ToInt32, WM_NCLBUTTONDOWN, HTCAPTION, 0&)
      End If
    Catch ex As Exception
      MsgShow(txtInfo, ex.Message)
    End Try
  End Sub

但如果你是在C#中使用又没有问题,把上面的一段代码改为C#的语法就可以了,实现的方法是一样

 [System.Runtime.InteropServices.DllImport("user32.dll", EntryPoint = "SendMessage")]
        public static extern int SendMessage(int hWnd, int wMsg, int wParam, int lParam);
        [System.Runtime.InteropServices.DllImport("user32.dll", EntryPoint = "ReleaseCapture")]
        private  static extern int ReleaseCapture();
        public const int WM_SysCommand = 0x0112;
        public const int SC_MOVE = 0xF012;

因此最后只有结合这两种
用C#写一个DLL,在VB中调用
实现如下:
C#类库:

namespace MoveWindow
{
    public class ClassMoveWindow
    {


        [System.Runtime.InteropServices.DllImport("user32.dll", EntryPoint = "SendMessage")]
        private  static extern int SendMessage(int hWnd, int wMsg, int wParam, int lParam);
        [System.Runtime.InteropServices.DllImport("user32.dll", EntryPoint = "ReleaseCapture")]
        private  static extern int ReleaseCapture();
        private  const int WM_SysCommand = 0x0112;
        private  const int SC_MOVE = 0xF012;

      
        public void SendMessage(Int32 Handle)
        {
            ReleaseCapture();
            SendMessage(Handle , WM_SysCommand, SC_MOVE, 0);
        }

    }
}

在VB.net中调用,先添加Dll的引用,实现代码如下

Private Sub titleBar1_MouseDown()Sub titleBar1_MouseDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles titleBar1.MouseDown
    Dim MoveObj As New MoveWindow.ClassMoveWindow

    Try
      If e.Button = Windows.Forms.MouseButtons.Left Then
        MoveObj.SendMessage(Me.pnlInfo.Handle.ToInt32)
      End If
    Catch ex As Exception
      MsgBox(ex.Message)
    Finally
      MoveObj = Nothing

    End Try


  End Sub

方法3:
如果你是直接在在窗体上移动位置,则可以加入下面的代码,但如果窗体上有控件则不能响应到MouseDown,这个道理很简单,因为被别的控件挡住了

Public Const WM_NCLBUTTONDOWN = &HA1S

Public Const HTCAPTION = 2

Public Declare Function SendMessage()Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Object) As Long
  Public Declare Function ReleaseCapture()Function ReleaseCapture Lib "user32" () As Integer

'在要移动的控件上处理MouseDown事件
 Private Sub titleBar1_MouseDown()Sub titleBar1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles titleBar1.MouseDown
    Try
      If e.Button = MouseButtons.Left Then
        ReleaseCapture()
        SendMessage(Me.pnlInfo.Handle.ToInt32, WM_NCLBUTTONDOWN, HTCAPTION, 0&)
      End If
    Catch ex As Exception
      MsgShow(txtInfo, ex.Message)
    End Try
  End Sub

e