Question

vb2013如何去掉标题栏拖动窗体

我在VB2013里面把窗口标题栏去掉了，把一张PICTUREBOX5的图片设置成了标题栏，怎么实现鼠标左键拖动整个标题栏任意移动，正真实现标题栏的作用

Answer 1

　　''' </summary> 

       ''' <returns></returns> 

       ''' <remarks></remarks>

        <DllImport("user32.dll")> _

        Private Shared Function ReleaseCapture() As Boolean

        End Function

        <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Auto)> _

        Private Shared Function SendMessage(ByVal hWnd As IntPtr, ByVal Msg As UInteger, ByVal wParam As IntPtr, ByVal lParam As IntPtr) As IntPtr

        End Function

　　''' <summary>

　　''' 无边框窗体移动。

　　''' </summary>

　　''' <param name="FormHandle">设置为无边框窗体的窗体句柄。</param>

　　''' <returns></returns>

　　''' <remarks></remarks>

　　Public Shared Function NoneFormBorderMove(ByVal FormHandle As IntPtr) As IntPtr　　Const WM_SYSCOMMAND As UInteger = CUInt(&H112)

　　Dim SC_MOVE As IntPtr = New IntPtr(&HF012)

　　ReleaseCapture()

　　Return SendMessage(FormHandle, WM_SYSCOMMAND, SC_MOVE, IntPtr.Zero)

　　End Function

MouseDown事件，设置条件并调用

追问

刚复制好就奔溃了
每次都是啊！

追答

往里面复制的时候，vs崩溃吗？
你把代码打进去吧
这个是可以用的