17526.html

来自「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题」· HTML 代码 · 共 26 行

HTML
26 行
字号 
<html>  <head>    <title>是VB的BUG吗??</title>  </head>  <body bgcolor="#FFFFFF" vlink="#808080">    <center>      <h1>是VB的BUG吗??</h1>    </center><hr size=7 width=75%><hr size=7 width=75%><p>Posted by <a href="mailto:ice1018@ucs.com.tw">Jack</a> on August 19, 1999 at 21:37:20:<p>请问...我想要使MDIForm子表单右上角的[X]钮Disabled<br>但在MDI子表单为最大化时却没用..还是可以用右上角的[X]钮来关闭视窗<br>请问这是VB的BUG吗???<p>P.S:我要Disabale的是mdiform中的子表单<p>'抓取系统  Menu 的 hwnd<br>Private Declare Function GetSystemMenu Lib "user32" (ByVal _<br>hWnd As Integer, ByVal bRevert As Integer) As Integer<p>'移除系统  Menu 的 API<br>Private Declare Function RemoveMenu Lib "user32" _<br>(ByVal hMenu As Integer, ByVal nPosition As Integer, _<br>ByVal wFlags As Integer) As Integer<br>'第一个参数是系统  Menu 的 hwnd<br>'第二个参数是要移除选项的 Index<p>Const MF_BYPOSITION = &H400<p>Private Sub Form_Load()<br>    SystemMenu% = GetSystemMenu(hWnd, 0)<br>    Res% = RemoveMenu(SystemMenu%, 5, MF_BYPOSITION)<br>    Res% = RemoveMenu(SystemMenu%, 5, MF_BYPOSITION)<br>End Sub<br><br><hr size=7 width=75%><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 17526--><!--top: 17534--><li><a href="17534.html">Re: 是VB的BUG吗??</a> <b>wawa</b> <i>23:53:16 8/19/99</i>(<!--responses: 17534-->0)<ul><!--insert: 17534--></ul><!--end: 17534--></ul><!--end: 17526--><br><hr size=7 width=75%><p></body></html>

17526.html - 源码说明

本页面展示了「以电子书的形式收集了VB一些常见问题解决方法,可以很方便的查找自己需要解决的问题.对一些VB初学者很用.」中的 17526.html 源码文件，采用 HTML 编程语言编写，共 26 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与VB相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?