文章类别：VB 来源： 作者： 发表日期：2006-2-28 字体：[大 中 小]

小游戏 | 在线影院 | 幽默笑话 | 源码下载 | Flash MTV | 音乐试听 | 书屋 | 美女写真

---

其实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->

上一篇:VisualBasic产生渐层的Form背景

下一篇:VB中OLE调用的优化方法