VisualBasic移除Form右上方之『X』按钮
2006-02-27 21:10:02 来源:WEB开发网核心提示:其实Form右上方之三个按钮分别对应到Form左上方控制盒(ControlBox)中的几个选项(缩到最小/放到最大/关闭),而其中的最大化(MaxButton)及最小化(Minbutton)都可以直接在Form的属性中设定,VisualBasic移除Form右上方之『X』按钮,但是VB并没有提供设定『X』按钮的功能!要
其实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->
由于『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->
Tags:VisualBasic Form 右上
编辑录入:爽爽 [复制链接] [打 印]- ››Form Reset Function
- ››VisualBasic.Net引人注目的语言革新
- ››VisualBasic窗体背景花纹的实现
- ››VisualBasic程序中如何启动默认的拨号连接
- ››VisualBasic开发应用程序如何使用INI文件
- ››VisualBasic中实现绘图区的大十字光标
- ››VisualBasic连续变量的声明Dima,b,casstring*4
- ››VisualBasic编程输入时,自动转换成小写
- ››VisualBasic实现某一天的下/上一个星期几是那一天...
- ››VisualBasic实现在程序中开启网页
- ››VisualBasic让表单一开始就显示在荧幕中央(含工作...
- ››VisualBasic让表单一开始就显示在荧幕中央(不含工...
更多精彩
赞助商链接