论坛引用 的，，无边框 模式代码，一直用得好好的，现在
无边框 after 事件 “ 出现错误，理解不了。求
此主题相关图片如下：傲游截图20200402135144.png
助
AddHandler e.Form.Panel.MouseDown,AddressOf Panel_MouseDown
e.form.BaseForm.FormBorderStyle = Windows.Forms.FormBorderStyle.none
e.Form.BaseForm.ShowInTaskbar = True
全局代码；
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Integer,ByVal wMsg As Integer, ByVal wParam As Integer, lParam As Integer) As Integer
Private Const WM_NCLBUTTONDOWN = &HA1
Private Const HTCAPTION = 2
Public Sub Panel_MouseDown(sender As Object, e As System.Windows.Forms.MouseEventArgs)
If e.Button=MouseButtons.Left Then
ReleaseCapture()
SendMessage(sender.Parent.Handle.ToInt32, WM_NCLBUTTONDOWN, HTCAPTION, 0)
End If
End Sub
加好友 
发短信
Post By：2020/4/2 13:52:00 [只看该作者]
