📄 21075.html

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

💻 HTML

字号:

<html>  <head>    <title>请教Mouse关于您执导的如何使表单不可调整大小问题</title>  </head>  <body bgcolor="#FFFFFF" vlink="#808080">    <center>      <h1>请教Mouse关于您执导的如何使表单不可调整大小问题</h1>    </center><hr size=7 width=75%><hr size=7 width=75%><p>Posted by 初学者 on November 07, 1999 at 11:27:40:<p>我是将Dim hMenu As Long, MII As MENUITEMINFO放在表单模组的一般宣告区内，<br>将以下放至From_Resize的事件程序内，<br>hMenu = GetSystemMenu(Me.hwnd, 0)<br>'设定大小不可使用<br>MII.cbSize = Len(MII)<br>MII.dwTypeData = String(80, 0)<br>MII.cch = Len(MII.dwTypeData)<br>MII.fMask = MIIM_STATE<br>MII.wID = SC_SIZE<br>GetMenuItemInfo hMenu, SC_SIZE, False, MII<br>MII.wID = 12&<br>MII.fMask = MIIM_ID<br>SetMenuItemInfo hMenu, SC_SIZE, False, MII<br>MII.fState = MII.fState Or MFS_GRAYED<br>MII.fMask = MIIM_STATE<br>SetMenuItemInfo hMenu, MII.wID, False, MII<br>SendMessage Me.hwnd, WM_NCACTIVATE, True, ByVal 0&<br>其余的 Function 和 TYpe 放到一般模组内，这样对吗？执行时无误，只是游标仍是会改变。<br><br><hr size=7 width=75%><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 21075--><!--top: 21080--><li><a href="21080.html">Re: 请教Mouse关于您执导的如何使表单不可调整大小问题</a> <b>Mouse</b> <i>13:24:33 11/07/99</i>(<!--responses: 21080-->1)<ul><!--insert: 21080--><!--top: 21084--><li><a href="21084.html">谢谢！(无内文)</a> <b>初学者</b> <i>15:34:29 11/07/99</i>(<!--responses: 21084-->0)<ul><!--insert: 21084--></ul><!--end: 21084--></ul><!--end: 21080--></ul><!--end: 21075--><br><hr size=7 width=75%><p></body></html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -