📄 17478.html

📁 VB技巧问答10000例 VB技巧问答10000例

💻 HTML

字号:

<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 18, 1999 at 23:38:42:<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: 17478--><!--top: 17484--><li><a href="17484.html">参考</a> <b>cww</b> <i>08:38:32 8/19/99</i>(<!--responses: 17484-->1)<ul><!--insert: 17484--><!--top: 17527--><li><a href="17527.html">Re: 参考</a> <b>Jack</b> <i>21:41:10 8/19/99</i>(<!--responses: 17527-->0)<ul><!--insert: 17527--></ul><!--end: 17527--></ul><!--end: 17484--></ul><!--end: 17478--><br><hr size=7 width=75%><p></body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -