# 请教Mouse关于您执导的如何使表单不可调整大小问题

Posted by 初学者 on November 07, 1999 at 11:27:40:

我是将Dim hMenu As Long, MII As MENUITEMINFO放在表单模组的一般宣告区内，
将以下放至From_Resize的事件程序内，
hMenu = GetSystemMenu(Me.hwnd, 0)
'设定大小不可使用
MII.cbSize = Len(MII)
MII.dwTypeData = String(80, 0)
MII.cch = Len(MII.dwTypeData)
MII.fMask = MIIM_STATE
MII.wID = SC_SIZE
GetMenuItemInfo hMenu, SC_SIZE, False, MII
MII.wID = 12&
MII.fMask = MIIM_ID
SetMenuItemInfo hMenu, SC_SIZE, False, MII
MII.fState = MII.fState Or MFS_GRAYED
MII.fMask = MIIM_STATE
SetMenuItemInfo hMenu, MII.wID, False, MII
SendMessage Me.hwnd, WM_NCACTIVATE, True, ByVal 0&
其余的 Function 和 TYpe 放到一般模组内，这样对吗？执行时无误，只是游标仍是会改变。

Follow Ups:

- Re: 请教Mouse关于您执导的如何使表单不可调整大小问题 Mouse 13:24:33 11/07/99 (1)
  - 谢谢！(无内文) 初学者 15:34:29 11/07/99 (0)