vb.net 无边框窗体如何拖拽大小

[best丨Zp]

我有一个窗体，添加一个panel 用来播放视频，把窗体样式设置无边框None，后无法 拖拽窗体大小了和移动了。 坑爹的是 播放器组件把窗体事件和panel事件全遮挡了，播放器本身还没有那些事件。 有没有其他方式能拖拽窗体大小？

[best丨Zp]

多谢！有思路了。

[轻鸿万里]

Public Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, ByVal lParam As Integer) As Integer Public Declare Function ReleaseCapture Lib "user32.dll" Alias "ReleaseCapture" () As Integer Private Const WM_SYSCOMMAND = &H112 Private Const SC_MOVE = &HF010& Private Const WM_NCLBUTTONDOWN = &HA1 Private Const HTCAPTION = 2 Private Sub PictureBox1_Ck(ByVal sender As System.Object, ByVal e As MouseEventArgs) Handles PictureBox1.MouseDown If e.Button = MouseButtons.Left Then '为当前的应用程序释放鼠标捕获 ReleaseCapture() '发送消息，让系统误以为你在标题拦上按下鼠标 SendMessage(Me.Handle.ToInt32, WM_SYSCOMMAND, SC_MOVE + HTCAPTION, 0) End If End Sub 把这个事件改下就行了