📄 20815.html
字号:
<html> <head> <title>Re: 表单之BorderStyle=2(大小可调整)，MaxButton=False时如何使表单不可调整大小？</title> </head> <body bgcolor="#FFFFFF" vlink="#808080"> <center> <h1>Re: 表单之BorderStyle=2(大小可调整)，MaxButton=False时如何使表单不可调整大小？</h1> </center><hr size=7 width=75%><hr size=7 width=75%><p>Posted by <a href="mailto:kuotsani@tpts4.seed.net.tw">Mouse</a> on October 30, 1999 at 00:27:49:<p>In Reply to: <a href="20763.html">表单之BorderStyle=2(大小可调整)，MaxButton=False时如何使表单不可调整大小？</a> posted by 初学者 on October 29, 1999 at 10:23:36:<p>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&<p><br>Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long<br>Declare Function GetMenuItemInfo Lib "user32" Alias "GetMenuItemInfoA" (ByVal hMenu As Long, ByVal un As Long, ByVal b As Boolean, lpMenuItemInfo As MENUITEMINFO) As Long<br>Declare Function SetMenuItemInfo Lib "user32" Alias "SetMenuItemInfoA" (ByVal hMenu As Long, ByVal un As Long, ByVal bool As Boolean, lpcMenuItemInfo As MENUITEMINFO) As Long<br>Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long<br><br><br><hr size=7 width=75%><p><a name="followups">Follow Ups:</a><br><ul><!--insert: 20815--></ul><!--end: 20815--><br><hr size=7 width=75%><p></body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -