带菜单的无边框窗体
发布时间：2020-12-16 22:32:55 所属栏目：大数据 来源：网络整理
导读：带菜单的无边框窗体 前几天做了一个窗体，是无边框的，可是在我加了一些右键菜单后，窗体的边框就出来了，很是纠结。后来就上网查了一些资料，终于把边框去掉了，甚至是边框处的黑色框线。现在拿出来晒晒。 继续前一篇的文章自定义形状窗体，把窗体做成自定
|
带菜单的无边框窗体
前几天做了一个窗体，是无边框的，可是在我加了一些右键菜单后，窗体的边框就出来了，很是纠结。后来就上网查了一些资料，终于把边框去掉了，甚至是边框处的黑色框线。现在拿出来晒晒。
继续前一篇的文章自定义形状窗体，把窗体做成自定义的的形状后，这时，你进行菜单编辑后，可能窗体边框就又回来了，不急，下面我们就一步把边框再隐藏起来。
一，首先是一种很直接的解决方案：
要解决这点，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. 做一个用户自定义控件，然后添加到窗体中。靠用户自定义控件来实现你的隐式功能，不过这样就不是右键单击功能了，属于曲线救国的策略了。 （编辑：李大同） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |