带菜单的无边框窗体
前几天做了一个窗体，是无边框的，可是在我加了一些右键菜单后，窗体的边框就出来了，很是纠结。后来就上网查了一些资料，终于把边框去掉了，甚至是边框处的黑色框线。现在拿出来晒晒。
一，首先是一种很直接的解决方案：
这是声明块
Private DeclareFunction SetWindowLong Lib "user32" Alias "SetWindowLongA"(ByVal hwnd As Long,ByVal nIndex As Long,ByVal dwNewLong As Long) As Long
Private ConstGWL_STYLE = (-16)
然后在窗体加载模块中加入:SetWindowLongMe.hwnd,GWL_STYLE,lStyleAndNotWS_SIZEBox
这时，你的窗体就如你所愿了。
二，下面是间接达到目的的方法
1.另外做一个窗体form2 ，在form2中设置form1中需要的菜单。然后在form1中调用form2的右键菜单。
PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)
If Button=2Then
PopupMenu form2.PopMenu
EndIf
EndSub
2. 做一个用户自定义控件，然后添加到窗体中。