欢迎光临
我们一直在努力

visualbasic移除form右上方之『x』按钮_visualbasic教程

建站超值云服务器,限时71元/月

其实Form右上方之三个按钮分别对应到Form左上方控制盒(ControlBox)中的几个选项(缩到最小/放到最大/关闭),而其中的最大化(MaxButton)及最小化(Minbutton)都可以直接在Form的属性中设定,但是VB并没有提供设定『X』按钮的功能!要达到这个功能,必须借助API:

由于『X』按钮对应到ControlBox的关闭选项,所以我们只要移除系统Menu(就是ControlBox)的关闭选项即可!您自己可以先看看您现在使用的Browser左上方的系统Menu,【关闭】选项是在第几个,不是第6个!是第7个,分隔线也算一个!分隔线才是第6个!

当我们移除了关闭选项之後,会留下一条很奇怪的分隔线,所以最好连分隔线也一并移除。而Menu的Index是从0开始,分隔线是第6个,所以Index=5。

修正:为了让程序码在WindowsNT也能运作正常,将各Integer型态改成Long。89.05.04

抓取系统Menu的hwnd
PrivateDeclareFunctionGetSystemMenuLib”user32″Alias”GetSystemMenu”(ByValhwndAsLong,ByValbRevertAsLong)AsLong

移除系统Menu的API
PrivateDeclareFunctionRemoveMenuLib”user32″Alias”RemoveMenu”(ByValhMenuAsLong,ByValnPositionAsLong,ByValwFlagsAsLong)AsLong
第一个参数是系统Menu的hwnd
第二个参数是要移除选项的Index->

赞(0)
版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com 特别注意:本站所有转载文章言论不代表本站观点! 本站所提供的图片等素材,版权归原作者所有,如需使用,请与原作者联系。未经允许不得转载:IDC资讯中心 » visualbasic移除form右上方之『x』按钮_visualbasic教程
分享到: 更多 (0)