带菜单的无边框窗体

带菜单的无边框窗体

前几天做了一个窗体，是无边框的，可是在我加了一些右键菜单后，窗体的边框就出来了，很是纠结。后来就上网查了一些资料，终于把边框去掉了，甚至是边框处的黑色框线。现在拿出来晒晒。

继续前一篇的文章自定义形状窗体，把窗体做成自定义的的形状后，这时，你进行菜单编辑后，可能窗体边框就又回来了，不急，下面我们就一步把边框再隐藏起来。

一，首先是一种很直接的解决方案：

要解决这点，VB自身做不到，需要用到API函数

那个边框，其实是窗体样式的一种(WS_BORDER)，用SetWindowLong修改GWL_STYLE即可。

这是声明块

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. 做一个用户自定义控件，然后添加到窗体中。

靠用户自定义控件来实现你的隐式功能，不过这样就不是右键单击功能了，属于曲线救国的策略了。