VisualBasic移除Form右上方之『X』按钮

操比吃炫迈

操比吃炫迈

2016-02-19 19:27

下面图老师小编要跟大家分享VisualBasic移除Form右上方之『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->

展开更多 50%)
分享

猜你喜欢

VisualBasic移除Form右上方之『X』按钮

编程语言 网络编程
VisualBasic移除Form右上方之『X』按钮

教你清除QQ空间右上方广告

聊天软件
教你清除QQ空间右上方广告

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

Excel批注较多时如何将批注框批量恢复到单元格的右上方

软件教程 excel
Excel批注较多时如何将批注框批量恢复到单元格的右上方

VisualBasic制作透明的表单(Form)

编程语言 网络编程
VisualBasic制作透明的表单(Form)

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

VisualBasic产生渐层的Form背景

编程语言 网络编程
VisualBasic产生渐层的Form背景

Asp Object 之:Form

ASP
Asp Object 之:Form

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

如何设节PPT里面的图片透明度

如何设节PPT里面的图片透明度

使用Objptr函数快速查找集合中的对象

使用Objptr函数快速查找集合中的对象
下拉加载更多内容 ↓