- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 无边框 after 事件 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=148210)
-- 发布时间：2020/4/2 13:52:00
-- 无边框 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
-- 发布时间：2020/4/2 14:16:00
--
Private改为Public