VisualBasic移除Form右上方之『X』按钮
下面图老师小编要跟大家分享VisualBasic移除Form右上方之『X』按钮,简单的过程中其实暗藏玄机,还是要细心学习,喜欢还请记得收藏哦!
由于『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->